Typen unverträglich
08.02.2008 15:09:00
Waven
Ich habe eine Tabelle in der in Spalte A ein Datum oder gar nichts steht. Jetzt möchte ich alle Zeilen wo in A nichts drin steht oder das Datum nicht im Januar ist löschen. Ich mache das mit folgendem Code:
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "" Or Application.WorksheetFunction.Sum(Month(Cells(i, 1))) 1 Then
Rows(i).Delete Shift:=xlUp
End If
Next
Wenn ich es in einer neuen Arbeitsmappe ausführe, funktioniert es ohne Probleme. Wenn ich es allerdings in einem grössseren Makro ausführe, kommt der Fehler "Typen unverträglich". Hat jemand eine Idee, wieso es einmal klappt und das andere mal nicht?
Gruss
Waven