Fehler abfangen in Userform

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
Bild

Betrifft: Fehler abfangen in Userform
von: Chris
Geschrieben am: 13.07.2015 08:34:16

Hallo Forum,
mit Folgenden Makro verschiebe ich Einträge aus einer UF in eine andere UF.
Wenn jedoch UF1 leer ist, stürzt das Makro ab.
Wie kann ich diesen Fehler abfangen? Wenn UF1 leer, dann Exit Sub.
Gruß
Chris
Dim lngRow As Long, lngColumn As Long
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = True
Next i

With ListBox2
Do

If ListBox1.Selected(lngRow) Then
.AddItem
For lngColumn = 0 To 3
.List(.ListCount - 1, lngColumn) = ListBox1.List(lngRow, lngColumn)
Next
ListBox1.RemoveItem lngRow
Else
lngRow = lngRow + 1
End If
End If
Loop Until lngRow = ListBox1.ListCount
End With

Bild

Betrifft: doppelt und tschüss... (owT)
von: EtoPHG
Geschrieben am: 13.07.2015 08:40:59


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fehler abfangen in Userform"