Moin! ALso auf die Tabellen musst du mit ListObjetcs zugreifen. DAbei kannst du dir die Anzahl und wenn vorhanden NAmen auslesen. In deinem Beispiel könnte es so gehen. VG
Dim tabtab As Long
Dim BLATBLAT As Long
For BLATBLAT = 2 To Worksheets.Count
For tabtab = Worksheets(BLATBLAT).ListObjects.Count To 1 Step -1
With ComboBox1
.AddItem Worksheets(BLATBLAT).ListObjects(tabtab).Name
End With
Next tabtab
Next BLATBLAT
|