Wenn ich den Code ohne das Woksheet_change ausführe und ohne eine Target-Adresse, dann funktioniert meine Anweisung, aber eben nicht automatisch.
Ich habe schon mehrere Varianten ausprobiert, aber ich finde keine Möglichkeit die richtige Zelle anzuwählen. Wie kann ich die Anweisung umformulieren, damit bei Zelländerung das Datum in die gewünschte Zelle eingetragen wird.
Ich habe schon mehrere Varianten ausprobiert, aber ich finde keine Möglichkeit die richtige Zelle anzuwählen. Wie kann ich die Anweisung umformulieren, damit bei Zelländerung das Datum in die gewünschte Zelle eingetragen wird.
Code:
Sub Worksheet_change(ByVal Target As Excel.Range)
If Target.Address = ("$E$5") Then
Cells.Find(What:="Test", LookIn:=xlFormulas).Activate
ActiveCell.Offset(1, -1) = Date
End If
End Sub
Zuletzt bearbeitet: