ab letzte Zelle abwärts löschen!
10.04.2008 13:36:00
lisa
Hallo Leute
Ich möchte gern, ab der letzten beschriebenen Zelle in Spalte B, alle nachfolgenden Zeilen gelöscht haben.
Ich habe aber in Spalte B kein Endpunkt.
Weil ich keinen Endpunkt in Spalte B habe funktioniert dieser Code nicht.
Private Sub CommandButton1_Click()
Dim a As Integer
For b = Range("b65536").End(xlUp).Row To 2 Step -1
If Cells(b, 1) = "" Then Rows(b).Delete
'If Cells(b, 1).SpecialCells(xlCellTypeBlanks) Then Rows(b).Delete
Next a
End Sub
kann mir hier jemand helfen?
Lieben Gruß Lisa
Anzeige