Protokollierung Ersteingabe
29.01.2007 09:51:02
Ben
Habe folgenden Code für die Protokollierung von Änderungen mit Datum/Zeit und User im Forum gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
If ReadGlobalState = True Then Exit Sub
If Target.Column > 15 Then Exit Sub
If Target.Column = 1 Then
Cells(Target.Row, 14) = Date
Cells(Target.Row, 15) = Time
Cells(Target.Row, 13) = Environ("Username")
Else: Exit Sub
End If
End Sub
Dieser funktioniert bestens. Nun sollte ich aber noch die Ersteingabe einer Zeile mit dem Usernamen protokollieren können. Immer wenn in Spalte C etwas eingegeben wird, die Zelle also nicht leer ist, soll in z.B. Spalte H der Username geschrieben werden. Wenn der Wert in Spalte C von einem anderen User geändert wird, ändert der Eintrag in Spalte H nicht. Erst wenn der Wert in C gelöscht und neu eingegeben wird, ändert ggf. der Username.
Da ich von VBA wenig Ahnung habe, bin ich mit eigenem Probieren nicht weiter gekommen und auch im Archiv habe ich nichts dazu gefunden.
Kann mir da jemand weiter helfen.
Vielen Dank und Gruss
Ben