Ich habe ein Blatt "Pilot" und ein Blatt "Kombination". Zwischen diesen Blätter fügen die User eine unterschiedliche Anzahl Blätter ein.
Ich möchte nun diese Blätter mit Namen in eine ListBox übernehmen (DropDownListe in UserForm). Max 8 Tabellenblätter.
Ansatzmässig müsste folgendes Makro gehen, um die Namen zu eruieren, aber wie weiter, dass die Namen beim Öffnen einer UserForm in die ListBox übernommen werden?
Sub BlätterAuflisten()
Dim Blatt As Object
Dim Tabellenblatt As Variant
For Each Blatt In ActiveWorkbook.Sheets
Tabellenblatt = Blatt.Name
Next Blatt
End Sub
Vielen Dank im Voraus
Gregor