Löscht aber zusätzlich Laufzeitfehler
10.01.2015 11:17:40
Walter
Guten Morgen Hary,
erst mal Danke für die Reaktion, Hilfe und das Verständnis das ich halt ein wenig
blöd beschrieben hatte !
Ich habe die Tabelle etwas verändern müssen.
Die Spalte B fängt jetzt ab Zeile 7 an.
Alles läuft soweit gut habe auch andere Monate eingegeben und die Werte wurden
ebenfalls gelöscht.
Leider kommt am ENDE
Laufzeitfehler 13
Typen unverträglich und die gelbe Zeile ist diese:
If Weekday(Cells(i, 2), 2) > 5 Then
So steht das kompl. Makro drin:
Public Sub ALLE_Zeitangaben_löschen()
Dim i As Long
For i = Cells(7, 2).End(xlDown).Row To 2 Step -1
If Weekday(Cells(i, 2), 2) > 5 Then
Union(Cells(i, 4).Resize(1, 2), Cells(i, 7).Resize(1, 2)).ClearContents
End If
Next
End Sub
gruß walter mb