Wert-Eingabe protokollieren
10.02.2010 12:44:22
NoNet
Hallo Michael,
kopiere dazu den folgenden VBA-Code in das Klassenmodul des Tabellenblattes (also: Namen des Blattes im Blattregister unten per Rechts anklicken und "Code anzeigen..." auswählen) :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Application.EnableEvents = False 'Ereignissteuerung temporär deaktivieren
For Each rngZelle In Target 'Für alle Zellen in die ein WERT eingegeben wurde
'In Spalte rechts neben der Eingabe den Benutzernamen eintragen :
If IsNumeric(rngZelle) Then rngZelle.Offset(, 1) = Environ("Username")
Next
Application.EnableEvents = True 'Ereignissteuerung wieder aktivieren
End Sub
Falls Du mit "Werte" auch Texte und nicht nur Zahlewerte meintest, dann folgenden Code kopieren :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Application.EnableEvents = False 'Ereignissteuerung temporär deaktivieren
For Each rngZelle In Target 'Für alle Zellen in die eine Eingabe erfolgte :
'In Spalte rechts neben der Eingabe den Benutzernamen eintragen :
If not IsEmpty(rngZelle) then rngZelle.Offset(, 1) = Environ("Username")
Next
Application.EnableEvents = True 'Ereignissteuerung wieder aktivieren
End Sub
Gruß, NoNet