....noch bestimmte Tabellen auflisten
03.11.2003 10:07:28
Daniel O.
ich dachte wäre einfacher!!!!!
Mit diese Code werden die ersten 12 Tabellen aufgelistet:
Private Sub UserForm_Initialize()
Dim Tabelle As Worksheet
Dim x as integer
UserForm12.ListBox1.Clear
x=0
For Each Tabelle In ThisWorkbook.Worksheets
If Tabelle.Visible = True Then
UserForm12.ListBox1.AddItem Tabelle.Name
x=x+1
if x=13 then exit for
end if
Next Tabelle
End Sub
....jetzt möchte die Tabellen von 13 bis 26 aufgelistet haben; wie gesagt,
ich dachte wäre einfacher, aber....habe nicht geschafft!!!!
Caio
Daniel