Überarbeitung einer kleinen Kunden-/Adreßverwaltung

[Heiko2000]

Guten Abend,

ich habe Probleme den Code zu verstehen:
Private Sub ListBoxLaden()
Dim arrtab(), i&, j&
With Tabelle1.ListObjects(1)
If .DataBodyRange Is Nothing Then Exit Sub
arrtab = .DataBodyRange.Value
ReDim arrList(1 To UBound(arrtab), 1 To UBound(arrtab, 2) + 1)
For i = LBound(arrList) To UBound(arrList)
arrList(i, 1) = i
For j = 2 To UBound(arrList, 2)
arrList(i, j) = arrtab(i, j - 1)
Next j
Next i
End With
ListBox1.List = arrList
End Sub

Was ist Tabelle1.ListObjects(1) ?
Laut Gemini ist ListObjects(1) der 1. Eintrag in der Auflistung. Was für eine Auflistung? Tabelle1 ist doch ein Object oder gibts unter Tabelle1 mehrere Einträge?

DataBodyRange ist der Datenbereich einer intelligenten Tabelle. Was heißt das? Ist das in der Tabelle die einzelnen Zeilen beginnend mit der 2. Zeile (A2, B2, C2...)?

Wenn ich bei UserForm_Initialize() msgbox Tabelle1.ListObjects(1).DataBodyRange und Tabelle1.ListObjects(1).DataBodyRange.Value ausgeben möchte, erhalte ich einen Laufzeitfehler 13: Typen unverträglich.

Was heißt das alles?

Vielen Dank Euch.

LG
Heiko