COMBO in VBA mit TabellenNamen füllen
25.01.2005 18:22:59
Drazen
ich habe in eine UF eine Combo gesetzt. Im Workbook befinden sich 10 Tabellenblätter. Nun möchte ich die Combo mit den TabellenNamen von Tabelle 3 bis 8 Füllen. Ein einfaches AddItem geht nicht, da bei Auswahl des Namens das entsprechende Tabelenblatt aktiviert werden soll und die Excel-Maske aufgerufen werden soll.
So weit bin ich, aber nichts geht:
Private Sub UserForm_Initialize()
Dim wks As Worksheet
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
For ThisWorkbook.Worksheets(wks) = 3 To 8
cboPreisliste.AddItem wks.Name
Next wkscbo
End Sub
Bin ich wenigstens auf dem richtigen Weg?
Grüsse
Drazen