VBA: Listenfeld
04.01.2004 08:55:14
Ernst Dunkel
Komme nicht weiter.
Mit dem unten stehenden Code lässt sich ein Listenfeld in einer UserForm mit den Tabellen Namen füllen.
Nun habe ich den Code abgeändert, dass die Tabellen 1-4 nicht eingelesen werden.
Code funktioniert nun nicht.
Was mache ich falsch?
Für eine Antwort bin ich dankbar.
Mit freundlichen Grüssen
Ernst Dunkel
Code der funktioniert
Private Sub UserForm_Initialize()
Dim Blatt As Object
For Each Blatt In ThisWorkbook.Sheets
ListBox1.AddItem Blatt.Name
Next
End Sub
Code der nicht funktioniert
Private UserForm_Initialize()
Dim Blatt As Object, i%
For Each Blatt In ThisWorkbook.Sheets
i = i + 1
If i > 5 Then Sheets("Tabelle1").ListBox1.AddItem Blatt.Name
Next Blatt
End Sub