ich habe ein kleines Problem mit meinem Code. Dieser Quellcode durchsucht eine bestimmte Matrix auf Änderung. Wenn in diesem Feld eine Änderung ist, soll er dies in einer bestimmten Zelle schreiben und genau das ist das Problem. Hier der Quellcode:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
' beim Start des Codes ist "target" die Zelle, der Zellbereich der geändert wurde
' Jetzt werden aus Target nur die Zelle übernommen die in Spalte CD13-CD5000 liegen
Set Target = Intersect(Target, Range("C4:AE32"))
' wenn es keine Zellen gibt, also die Änderung außerhalb CD13-CD5000 stattfand beenden des _
Codes
If Target Is Nothing Then Exit Sub
' Ausschalten da Vba auf Zelländerungen reagiert
Application.EnableEvents = False
' Jede Zelle einzeln nacheinander
For Each Zelle In Target
' trage Zeit & Datum in Zelle bei Änderung
Cells(Zelle.Row, "AF").Value = Date
'Cells(Zelle.Row, "CC").Value = "Zeit: " & Right(Now(), 8)
' Cells(Zelle.Row, "AL").Value = "Wer: " & Environ("Username") & vbL
Next Zelle
' Einschalten damit Vba auf Zelländerungen reagiert
Application.EnableEvents = True
End Sub
Was natürlich richtig elegant wäre, wenn die veränderte Zelle mit einer Farbnuance hervorgehoben wird. Wie ich das anstellen soll, weiß ich leider nicht.Also:
1. Es soll das Datum in einer bestimmten Zelle geschrieben werden.
2. DIe geänderte Zelle sollte am besten durch einen Farbton hervorgehoben werden.
Vielen Dank im vorraus und liebe Grüße