Bestimmte Tabelle auflisten
03.11.2003 08:57:20
Daniel O.
Ich möchte die ersten 12 Tabelle in eine UF aufgelistet haben.
Mit folgenden Code werden ALLE Tabellen aufgelistet:
wie kann man der Code ändern, damit nur die 12 Tabellen auflistet?
Private Sub UserForm_Initialize()
Dim Tabelle As Worksheet
UserForm12.ListBox1.Clear
For Each Tabelle In ThisWorkbook.Worksheets
If Tabelle.Visible = True Then UserForm12.ListBox1.AddItem Tabelle.Name
Next Tabelle
End Sub
...Oder gibt's eine andere Möglichkeit?
Danke Daniel O.