AW: Makro funktioniert nach Beenden von Excel nicht
Excel
Hallo zusammen,
vielen Dank für die schnellen Antworten. Ich habe es wieder probiert it dem Hochladen. Ich habe es auch gestern schon genauso wie beschrieben probiert und finde die Datei auch auf meinem Schreibtisch. Leider ist diese grau und kann nicht ausgewählt werden. Hat dafür noch jemand eine Lösung?
Ich würde jetzt mal noch den Code hier rein kopieren. Vllt hilft auch das schon.
Dim AlterWert
Private Sub Worksheet_change(ByVal Target As Range)
If Target.Value <> AlterWert Then
With Sheets("Log").Range("A1000").End(xlUp)
.Offset(1, 0).Value = Format(Now, "dd.mm.yyyy hh:mm:ss")
.Offset(1, 1).Value = Application.UserName
.Offset(1, 2).Value = Target.Address
.Offset(1, 3).Value = AlterWert
.Offset(1, 4).Value = Target.Value
End With
End If
End Sub
Private Sub Worksheet_selectionchange(ByVal Target As Range)
AlterWert = Target.Value
End Sub
Vielen Dank schon mal und viele Grüße,
Maik der ahnungslose ;)