Listenfeld füllen
02.01.2004 18:52:17
Ernst Dunkel
Mit dem untenstehenden Code lässt sich ein Listenfeld mit den Namen der Tabellenblätter einer Arbeitsmappe füllen.
Wie muss der Code abgeändert werden, das die Namen der Blätter erst ab Tabelle 5 eingefügt werden?
Für eine Antwort bin ich dankbar
Mit freundlichen Grüssen
Ernst Dunkel
Sub ListenfeldFüllen()
Dim Blatt As Worksheet
For Each Blatt In ThisWorkbook.Worksheets
Sheets("Tabelle1").ListBox1.AddItem Blatt.Name
Next Blatt
End Sub
Anzeige