ich würde gern ein Kombinationsfeld beim öffnen der Excel Datei mit Einträgen befüllen.
Kann mir jemand helfen?
gruß stefan
Private Sub Workbook_Open()
Dim i As Integer
For i = 1 To Sheets.Count
Combobox1.AddItem Sheets(i).Name
ComboBox1.ListIndex = 0
Next i
End Sub
Private Sub Workbook_Open()
Dim imax As Integer
imax = Worksheets("Zulieferdaten").UsedRange.Rows.Count
For i = 1 To imax
With ComboBox1
.AddItem Sheets("Zulieferdaten").Cells(i, 1)
End With
Next i
End Sub