Zeilen löschen - Makro anpassen
09.04.2008 18:12:16
Wrobel
habe leider nicht so viel Ahnung von VBA. Den u.g. Code kann man den so anpassen das nur der Bereich A1:J1000 angesprochen wird?
Bin dankbar für jede Hilfe!!!
Hier der Code:
Sub Leerzeilen_löschen()
Dim LoI As Long, RaZeile As Range
Const Passwort As String = "pw" 'Passwort für Blattschutz
'alle Leerzeilen löschen
For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Rows(LoI).SpecialCells(xlCellTypeBlanks).Count = ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeLastCell).Column Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI)
Else
Set RaZeile = Union(RaZeile, Rows(LoI))
End If
End If
Next LoI
RaZeile.Delete
Set RaZeile = Nothing
End Sub
Gruß
André aus SH