Nepomuk

Im Excelforum von Hans Herber hat Nepomuk am 29.12.2003 einen interessanten Tip gegeben, wie man leere Zellen ermitteln kann. Durch diesen Trick läßt sich VBA Code sehr stark verkürzen und beschleunigen, daher ist dieser Tip besonders interessant.

Nun aber zum Tip von Nepomuk:

Mit der Eigenschaft "SpecialCells" lassen sich Zellen ermitteln, die gewissen Eigenschaften entsprechen. So werden z.B. mit SpecialCells(xlCellTypeBlanks) alle leeren Zellen ermittelt.

Um alle Zeilen zu löschen, die im Bereich A1 bis A10 leer sind, könnte der Code wie folgt aussehen:

Sub Makro1()
'Die Zeilen löschen die im Bereich A1 bis A10 leer sind
Range("A1:A10").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

und hier eine Erweiterung auf alle Zellen in Spalte A:

Sub Makro1()
Dim wks as Worksheet
Set wks = ActiveSheet
'Die Zeilen löschen die in Spalte A leer sind
'wks.Range(wks.Cells(1, 1), wks.Cells(wks.Cells(wks.Rows.Count, 1).End(xlUp).Row, 1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

Diese Seite ist Teil der Webseite http://www.nikolai-stiehl.de

Themenbereich: MS Excel.

Sollten Sie diese Seite nicht innerhalb eines Framesets angezeigt bekommen,
gelangen Sie über diesen Link auf den Einstiegsframe.