Datum bei Änderung
11.04.2018 14:46:07
AlBa
ich bin VBA-Neuling und habe bereits im Forum gesehen, das mein Problem eigentlich hinreichend und gut beschrieben ist. Hier habe ich auch die Lösung von Hajo_Zi gefunden, die ich für meine Anwendung allerdings etwas abändern müsste.
Ich möchte Änderungen in Zellen eines Suchbereiches z.B. ("C4:AG4") mit einem aktuellen Datum in einer Zielzelle einige Zeilen unter dem Suchbereich versehen, in diesem Beispiel die entsprechende Zelle in ("C10:AG10"). In der Lösung von Hajo_Zi (siehe unten) wird das Datum aktualisiert, allerdings in der Nachbarzelle.
Weiß jemand Rat?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range
Dim RaZelle As Range
Set RaBereich = Range("B17:B32, D15:D19")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each RaZelle In RaBereich
RaZelle.Offset(0, 1) = Date
Next RaZelle
'ActiveSheet.protect "Passwort"
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
Set RaBereich = Nothing
End Sub
Anzeige