Nummerierung mit Autowert
28.02.2005 17:17:57
Drazen
ich wollte Daten in eine ListBox einlesen mit folgendem Code:
Private Sub EINLESEN()
Sheets("KUNDEN").Activate
Dim l As Long, c As Range
Set c = ActiveSheet.Cells(1, Columns.Count)
l = c.Column: If IsEmpty(c) Then l = c.End(xlToLeft).Column
lstKunden.Column = "B1:17" & l
End Sub
Ich bekomme aber immer die Fehlermeldung, Index ausserhalb des gültigen Bereichs, woran liegt das?
Grüsse
Drazen
Anzeige