Combobox mit Tabellenblatt-Namen füllen?

[Dj-Gottschalk]

Hallo,

Was giebt es für Möglichkeiten eine Combobox dynamisch mit den Namen der Tabellenblätter zu füllen?

Hat vielleicht jemand einen Beispiel-Code für mich?

Danke

Grüße

Dj-G

[Goos]

Versuchs mal mit

Sub comboInit()

Dim a As Integer

Dim b As Integer


b = ActiveWorkbook.Sheets.Count

Sheets("tabelle1").ComboBox1.Clear

Sheets("tabelle1").ComboBox1.ListRows = b


For a = 1 To b

Sheets("tabelle1").ComboBox1.AddItem (Worksheets(a).name)

Next a

End Sub[/PHP]

Das musst dann halt entsprechend aufrufen.....auf Workbook_open und Workbook_NewSheet wuerd ich sagen.

Naja probiers halt mal

Goos

[g_nikolai]

Welche Programmiersprache soll der Code den sein und welche Tabellennamen ?? aus EXCEL? oder wie?

[Dj-Gottschalk]

Vielen Dank.

Funzt einwandfrei.

Grüße

Dj