Bestimmte Tabelle auflisten

• Bestimmte Tabelle auflisten von Daniel O. vom 03.11.2003 08:57:20
  • AW: Bestimmte Tabelle auflisten - von WernerB. am 03.11.2003 09:07:16
  • AW: Bestimmte Tabelle auflisten - von Reinhard am 03.11.2003 09:09:47
    • DANKE, Werner u. Reinhrard - von Daniel am 03.11.2003 09:24:24

Betrifft: Bestimmte Tabelle auflisten
von: Daniel O.
Geschrieben am: 03.11.2003 08:57:20
Gut morgen Freunde,

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.

Betrifft: AW: Bestimmte Tabelle auflisten
von: WernerB.
Geschrieben am: 03.11.2003 09:07:16
Hallo Daniel,

versuche es mal so (ungetestet):

Private Sub UserForm_Initialize()
Dim Tabelle As Worksheet
Dim z As Byte
UserForm12.ListBox1.Clear
For Each Tabelle In ThisWorkbook.Worksheets
If Tabelle.Visible = True And z < 13 Then
z = z + 1
UserForm12.ListBox1.AddItem Tabelle.Name
End If
Next Tabelle
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).

Betrifft: AW: Bestimmte Tabelle auflisten
von: Reinhard
Geschrieben am: 03.11.2003 09:09:47
Moin Daniel,
probiere es mal so.
Gruß
Reinhard

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

Betrifft: DANKE, Werner u. Reinhrard
von: Daniel
Geschrieben am: 03.11.2003 09:24:24
.

Excel-Beispiele zum Thema " Bestimmte Tabelle auflisten"
Befindet sich die aktive Zelle in einem bestimmten Bereich?	Werte eins bestimmten Monats summieren
Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen	Alle Links zu einer bestimmten Arbeitsmappe löschen
Anzahl eines bestimmten Wochentages im Monat	Alle Dateien ab einem bestimmten Datum listen
Daten eines bestimmten Jahres filtern	Word mit bestimmtem Dokument starten
Bestimmte Anzahl von Zeichen zulassen	Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen