Leere Zeilen an Blattanfang löschen
19.02.2016 16:42:33
Mike
ich möchte gerne per VBA alle leeren Zeilen zu Beginn eines Blattes löschen, wobei die Anzahl dieser Zeilen variiert - das betreffende Blatt ist als "Import" bzw. Worksheets(2) bezeichnet.
Ich habe es mit folgendem Code probiert, der aber leider nicht funktioniert (auch keine Fehlermeldung):
On Error Resume Next
Set Rng = Range("Import").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not Rng Is Nothing Then
Rng.Delete Shift:=xlUp
End If
VG,
Mike