Beim aufrufen der UserForm1 bekomme ich immer die Fehlermeldung 9 = Index außerhalb des gültigen Bereichs.
Normal kommt die Fehlernummer 9 nur wenn ein TabBlatt nicht vorhanden ist, oder im Code falsch geschrieben wurde.
Habe die Namen des TabBlattes "Stammdaten" schon kontrolliert aber der Fehler kommt noch immer.
Wüsste jemand von euch wo sonst der Fehler liegt?
Danke
Sg, Heinz
Option Explicit
Private Sub UserForm_Initialize()
' Tabelle einlesen
Dim tbl As ListObject
Set tbl = Worksheets("Stammdaten").ListObjects("Kostenarten")
Dim Zeile As Long
' Schleife über alle Zeilen
For Zeile = 1 To tbl.DataBodyRange.Rows.Count
' Befüllen der Listbox
ListBox1.AddItem tbl.DataBodyRange(Zeile, 1).Value
Next Zeile
End Sub