ich tüftle gerade an einer zusätzlichen Aufgabe für ein Ereignis
Mit folgenden Code (ursprünglich von Hajo) wird bei Änderung links neben der betreffenden Zelle das Datum eingetragen
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row = 1 Or Target.Count > 1 Then Exit Sub
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("F16:F350")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
RaZelle.Offset(0, -1) = Date
RaZelle.Offset(0, -2) = "o"
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End If
End Sub
Zusätzlich soll nun auch links neben dem Datum ein "x" eingetragen werden (als Status-Spalte).
Dies hier tuts nicht. Ebenso wenig gehts mit AND, & oder vorstehenden Punkten
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
RaZelle.Offset(0, -1) = Date
RaZelle.Offset(0, -2) = "x"
Wie bekomm ich den zweiten Befehl (RaZelle.Offset(0, -2) = "x") da rein ?
Habe auch schon an Selection_Change gedacht, aber da sollen auch noch einige "Komfort-Funktionen" rein.
Danke schonmal
Harald
P.S.: Wenn-Formel bringt auch nix, da das x in der Status-Spalte nicht dauerhaft stehen bleiben soll.