ich möchte, das sich nach öffnen einer Datei, eine Combobox füllt.
Dazu habe ich mir folgendes überlegt:
Private Sub workbook_open()
Sheets("auswahl").Select
Sheets("auswahl").Activate
With Sheets("auswahl")
ComboBox2.Clear
For i = 1 To Sheets.Count
ComboBox2.AddItem Sheets(i).Name
Next i
ComboBox2.ListIndex = 0
End With
End Sub
klappt aber nicht.
Wie muß der Code lauten, damit das funktioniert?
Mit freundlichen Grüssen Frank