Zeile entfernen
17.01.2007 21:29:53
Markus
ich versuche mit meinem untenstehenden Code, alle Zeilen ab Zeile 50 in Spalte 5 bis zum letzten Eintrag in Spalte 5 zu löschen, wenn die Zelle keinen Inhalt hat.
Jedoch erhalte ich immer die Fehlermeldung "Ausführung des Codes wurde unterbrochen" und es wird mir das End IF gelb markiert.
Private Sub CommandButton1_Click()
Dim R As Long
For R = 50 To Cells(Rows.Count, 5).End(xlUp).Row
If Cells(R, 5) = "" Then
Cells(R).EntireRow.Delete
End If
Next R
End Sub
Für eine Antwort schon jetzt besten Dank!
Markus