Leerzeilen Makro versagt bei keiner Leerzeile?!?
08.08.2006 14:51:38
B.
ich setze folgendes Makro standardmässig zum aussortieren von Leerzeilen aus umfangreichen Listen ein:
Sub BezugA_Leerzeilen_entfernen()
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Funzt auch prächtig, solange in der Ursprungsliste leere Zeilen vorhanden sind.
Gerade eben hatte ich aber den Fall, daß ich zufällig eine Liste OHNE Leerzeilen hatte und dann läuft mein Makro in einen Laufzeitfehler ("'1004': Keine Zellen gefunden") und hält an.
Zusätzlich: Das Leerzeilenentfernungs-Makro ist Bestandteil eines großen übergeordneten Makros zum Listen verarbeiten und ich muss eine Lösung finden, das LeerzeilenMakro in VBA so zu verbiegen, daß es passt...
ich benötige also ein Makro zum entfernen von Leerzeilen, daß im Falle von vorhandenen Leerzeilen diese killt und wenn keine da sind halt leer durchläuft.
Danke & Grüße,
Bernd