ich möchte prüfen ob in Spalte H "erledigt" steht, wenn ja Aktuelles Datum eintragen in Spalte K
in der selben Zeile!
Wie müsste da das Makro aussehen?
Gruss MaBlu
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H1:H200")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 1).ClearContents
Else:
Target.Offset(0, 3) = CDate(Format(Now, "dd.mm.yyyy"))
End If
End Sub
Hoffe es passt so?Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H1:H200")) Is Nothing And _
Target.Count = 1 Then
If Target.Value = "erledigt" Then Target.Offset(0, 3).Value = Date
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H1:H200")) Is Nothing And _
Target.Count = 1 Then
If Target.Value = "erledigt" Then Target.Offset(0, 3).Value = Date
If Target.Column = 8 Then
If Target.Value = "" Then
Cells(Target.Row, 11) = ""
End If
End If
End If
End Sub
Bin kein VBA Profi, habe es quasi auch nur so zusammen geschustert, hoffe aber es hilft.Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H6:H99999")) Is Nothing And _
Target.Count = 1 Then
If Target.Value = "erledigt" Then Target.Offset(0, 3).Value = Date
If Target.Value "erledigt" Then Target.Offset(0, 3).Value = Clear
End If
End Sub