makro: lösche zeilen mit "0" in Spalte A
04.01.2004 18:52:38
Sylvia
ich hab noch nie ein makro programmiert, möchte aber eines, das alle zeilen löscht, in denen in der Spalte A "0" steht. ich hab versucht, folgendes unten angeführte umzuschreiben, das ich im Internet gefunden hab, ich krieg das aber nicht hin. oder gibt es eine funktion mit der man das machen kann?
löschen aller zeilen:
Sub DeleteEmptyRows()
Dim intRow As Integer, intLastRow As Integer
intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For intRow = intLastRow To 1 Step -1
If Application.CountA(Rows(intRow)) = 0 Then
Rows(intRow).Delete
End If
Next intRow
End Sub
kann mir bitte jemand helfen?
Gruß, Sylvia
Anzeige