AW: leerzeilen im sheet löschen
09.03.2010 10:46:09
David
Hallo Helmut,
diesen Code verwende ich bei mir, damit kann vorab der zu "säubernde" Bereich festgelegt werden.
Sub delete_lines()
GetMoreSpeed True
Dim FL, LL, i, Spalte
FL = InputBox("erste Zeile?")
LL = InputBox("letzte Zeile?")
For i = LL To FL Step -1
Spalte = Range("IV" & i).End(xlToLeft).Column
If Spalte = 1 And Cells(i, 1) = "" Then
Rows(i).EntireRow.Delete
End If
Next
GetMoreSpeed False
End Sub
Sub GetMoreSpeed(bYesNo As Boolean)
Application.ScreenUpdating = Not (bYesNo)
Application.EnableEvents = Not (bYesNo)
Application.Calculation = IIf(bYesNo, xlCalculationManual, xlCalculationAutomatic)
If Not bYesNo Then Calculate
End Sub
Gruß
David