Markierte Zellen per VBA mit Inhalt beschreiben - Aber auf einem anderen Blatt

17/04/2009 - 08:56 von martyy | Report spam
Hallo,
meine VBA Kenntnisse sind seit langem eingerostet, aber ich muss mich
mal wieder an einer kleinen Aufgabe versuchen:

Der Mitarbeiter wàhlt in Excel einen Bereich auf Tabelle1 aus, z.B.
B2:C6 und drückt einen Knopf.
Nun soll auf dem ausgeblendeten Blatt Tabelle2 genau auf diesem
Bereich etwas geschrieben werden, z.B. "K".

Leider hakt es bei mir immer im VBA Code wenn es um Zellmarkierungen
geht. Ich weiß, dass ich einzelne Zellen mit ActiveCell ansprechen
kann, so habe ich das Zeichen auch übertragen bekommen, aber halt nur
auf eine einzelne Zelle. Selection.Interior kenne ich noch hilft mir
glaube ich aber nur beim Ändern des markierten Bereichs weiter.
Wie müsste der Code aussehen? Das sind ja sicherlich wieder nur ein
paar Zeilen, aber ich komme nicht dahinter...

Danke im Voraus!


ach ja...
Kann man den Windows-Benutzernamen eigentlich abfragen, so dass diese
Aktion nur bei bestimmten Benutzern ausgeführt wird? Wenn es nicht
geht, kommt eine Inputbox mit Kennwortabfrage drum herum (die bekomme
ich noch selbst hin *gg*)

Gruß
martyy
 

Lesen sie die antworten

#1 Andreas Killer
17/04/2009 - 09:20 | Warnen spam
On 17 Apr., 08:56, martyy wrote:

Der Mitarbeiter wàhlt in Excel einen Bereich auf Tabelle1 aus, z.B.
B2:C6 und drückt einen Knopf.
Nun soll auf dem ausgeblendeten Blatt Tabelle2 genau auf diesem
Bereich etwas geschrieben werden, z.B. "K".


...
Kann man den Windows-Benutzernamen eigentlich abfragen, so dass diese
Aktion nur bei bestimmten Benutzern ausgeführt wird? Wenn es nicht



'Nicht zwischen Groß-/Kleinschreibung unterscheiden
Option Compare Text

Sub Test()
'Der Windows-Anmeldename steht im Environment unter USERNAME
Select Case Environ("USERNAME")
'Ist es einer der gewünschten User?
Case "killer", "tylinski"
'Sind wir in der Quelltabelle?
If ActiveSheet.Name <> "Tabelle1" Then Exit Sub
'Selben Bereich in Tabelle2 mit K beschreiben
Sheets("Tabelle2").Range(Selection.Address) = "K"
End Select
End Sub

Ähnliche fragen