ich habe folgenden code zusammengebastelt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static intVeraendert
Dim IngZeile As Long
If ActiveCell > 1 Then
With Worksheets("tab1")
IngZeile = .Cells(Rows.Count, 1).End(xlUp).Row + intVeraendert + 1
.Cells(IngZeile, 1).Value = Format(Now, "DD.MM.YYYY") 'Datum in Spalte A
.Cells(IngZeile, 2).Value = Format(Now, "HH:MM:SS") 'Uhrzeit in Spalte B
.Cells(IngZeile, 3).Value = Environ("Username") 'User in Spalte C
.Cells(IngZeile, 4).Value = ActiveCell 'Wert der aktiven Zelle in Spalte D
End With
Else
Exit Sub
End If
End Sub
dieser code schreibt jetzt, sofern die aktive zelle grösser 1 ist,
in A2 das aktuelle datum
in B2 die aktuelle uhrzeit
in C2 den angemeldeten user (datei liegt im Netz)
in D2 den wert der aktiven zelle
wenn nun der wert in der aktiven zelle geändert wird, möchte ich in C2 den
neuen wert reingeschrieben bekommen.
und genau da habe ich probleme.
kann mir da jemand helfen?
vielen dank im vorraus
gruss bernd