Dieses Makro soll mir die Zeilen, wo in den Zellen
kleiner als =HEUTE()-1 (also 02.07.2007)
drin steht, löschen
Das Makro hängt sich aber nach dem löschen der Zeilen mit einem Laufzeitfehler '13': Typen unverträglich auf.
Sub KleinerDatumlöschen()
Dim iCounter As Integer, iRow As Integer
iRow = Cells(Rows.Count, 5).End(xlUp).Row
For iCounter = iRow To 1 Step -1
an dieser Stelle: If Cells(iCounter, 2) And CDbl(Cells(iCounter, 2).Value)
In dieser Spalte Range("G12:G38") sollen die Zeilen gelöscht werden.
Gruß
Andreas