Fehlermeldung
23.09.2005 12:27:19
Susi
leider habe ich ein Problem mit unten genannten Code in Userform.
Wie muss ich den Code ändern das beim zweiten clicken kein
debuggen auftritt sondern eine Fehlermeldung das keine leeren
Zellen mehr vorhanden sind.
Hätte mir bitte jemand eine Lösung!!!!!!!!
Private Sub CommandButton2_Click()
Dim LoI As Long
Dim RaZeile As Range
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
Gruss
Susi
Anzeige