Ich habe folgendes Tabellenblatt-Makro
1. der erste teil setzt einen datumsstempel in D
2. teil setzt alle manuellen einträge auf farbe schwarz
Wenn ich einzelne einträge mache, klappt das gut, löschen ebenso.
wenn ich aber mehrere zell-inhalte gleichzeitig lösche, bekomme ich Laufzeitfehler 13: Typen unverträglich.
wie kann ich das lösen?
best,
tobias
------------------------------------------------------
1.)
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="xyz"
ActiveSheet.EnableAutoFilter = True
For Each Cell In Target
If Cell.Row >= 5 Then
If Cell.Column 1 Then
'If Cells(Cell.Row, 1) "" Or Cells(Cell.Row, 2) "" Or Cells(Cell.Row, 3) "" Then Cells(Cell.Row, 4) = Now
If Cells(Cell.Row, 2) "" Or Cells(Cell.Row, 3) "" Then Cells(Cell.Row, 4) = Now
If Cells(Cell.Row, 2) = "" And Cells(Cell.Row, 3) = "" Then Cells(Cell.Row, 4) = ""
End If
2.)
' Standardfarbe für manuelle Einträge
If Intersect(Target, Columns(2)) Is Nothing Or Target.Count > 1 Or Target.Value = " Target.Font.ColorIndex = 1
End If
Next Cell