AW: Leerzeilen entfernen? wie?
27.12.2004 12:07:18
Sonnenpeter
Hallo Max,
habe da etwas für "X" Zellen.
Müsste auch mit "" funzen.
Musst jedoch mit der ESC- Taste abbrechen.
Gruß / Sonnenpeter
Sub XzellenLöschen()
'Variablendeklarationen gehören in die Prozedur,
'ausser man benötigt "Public" Variablen.
Dim Auftrag As String
Dim AuftragsBereich As Range
Dim AuftragsBereichFinden As Range
'Variablen sollten immer mit dem entsprechenden Typ deklariert werden
Auftrag = "X" 'Statt "X" / "" müsste funktionieren
'For i = 1 To 2000 'diese Schleife ist hier unnötig
Set AuftragsBereich = Sheets("Test").Columns("C:C")
Application.ScreenUpdating = False
With AuftragsBereich
Set AuftragsBereichFinden = .Find(Auftrag, LookIn:=xlValues, LookAt:=xlWhole)
If Not AuftragsBereichFinden Is Nothing Then
'um Fehlermeldung zu vermeiden wenn der Suchbegriff nicht vorhanden ist!
Do 'beginn der Schleife
AuftragsBereichFinden.EntireRow.Delete
Set AuftragsBereichFinden = .FindNext(AuftragsBereich.Range("A1"))
Loop While Not AuftragsBereichFinden Is Nothing
'Schleife verlassen, wenn nichts mehr gefunden wird!
End If
End With
Application.ScreenUpdating = True
'Next i
End Sub