|
VBA - Leere Zeilen löschen |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Mittwoch, 07. Mai 2008 um 03:25 Uhr |
|
Dieses kleine Makro zeigt, wie man unbeschriebene Zeilen in einem Bereich löschen kann. Gegeben ist folgende Situation: | | A | B | C | D | E | | 1 | | | | | | | 2 | | | | | | | 3 | | | | | | | 4 | 2 | | | | | | 5 | | | | 5 | | | 6 | | | | | | | 7 | | | | | | | 8 | | | | | 5 | | 9 | 1 | | | | | | 10 | | | | | | | 11 | 1 | | | | |
Wir möchten nun, dass alle Zeilen, welche keinen Eintrag haben, gelöscht werden.
Der folgende Code kann uns dabei helfen:
Option Explicit
Sub Leer()
Dim Zeile As Variant
For Zeile = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
'Hier wird der Arbeitsbereich angegeben
With Range(Cells(Zeile, 1), Cells(Zeile, 14))
If Application.WorksheetFunction.CountBlank(.Cells) = .Cells.Count Then
Rows(Zeile).Delete
End If
End With
Next
End Sub
|
VBA Makro Beispiele 