Leerzeilen löschen
07.09.2006 09:29:07
Holger
in den Blättern der Register 3 bis 8 habe ich einige nicht ausgefüllte Zeilen, die ich über folgenden Befehl löschen möchte:
'Sub Leerzeilen_Löschen
For k = 3 To 8
Sheets(k).Select
On Error Resume Next
Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Next k
Auf jedem Blatt habe ich aber die Zeilen 1 bis 5 für Überschriften vorgesehen, wobei die Zellen A1:S2 und A3:S5 verbunden sind. Mit obigem Befehl werden auch diese Zeilen gelöscht, obwohl in den verbundenen Zellen eine Überschrift steht.
Wie kann ich das Problem beheben? Die Zeilen 1 bis 5 sollen NIE gelöscht werden.
Gruss, Holger