tabellennamen ermitteln, und in combobox schreiben
05.06.2007 12:32:13
Matthias
ich benötige bitte eure hilfe. meine arbeitsmappe enthält unterschiedlich viele tabellenblätter, deren namen beliebig geändert werden. in einer combobox sollen nun alle tabellennamen aktualisiert eingelesen werden.
als ersten vorschlag habe ich dieses makro:
Sub einlesen()
Dim i As Integer
Dim s As String
For i = 1 To ThisWorkbook.Worksheets.Count
s = s & Chr(13) & Worksheets(i).name
Next i
End Sub
habt ihr vorschläge? und wie funktioniert das mit der combobox?
danke schon mal im voraus,
Matthias
Anzeige