Zeilen löschen
08.03.2007 09:53:41
Fritz
Habe ein Tabellenblat mit 1900 gefüllten Zeilen.
Wenn ich mit folgendem Makro alle Zeilen außer Leerzeilen löschen möchte, die nicht der Bedingung entsprechen, muß ich dieses Makro 3x laufen lassen, bis alle gelöscht sind.
Kann Excel nur eine bestimmte Anzahl an Zeilen bei einem Durchgang löschen?
Gruß und vielen Dank im Vorraus.
Fritz
Sub Namenlöschen() ' Löscht die Namen anderere Sportler
Worksheets("Auswertung").Select
Dim LetztezeileA
Dim Name
LetztezeileA = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
a = LetztezeileA
Name = InputBox("Für welchen Sportler soll diese Datei sein?" & vbLf & _
" Alle anderen Sportler werden gelöscht", " Sportler auswählen", "Lugo")
For Each zelle In Range(Cells(7, 1), Cells(a, 1))
If zelle.Value <> Name Then _
zelle.Select
Selection.EntireRow.Delete
Application.CutCopyMode = False
End If
Next
End Sub