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