Ich habe ein .xla, in dem eine Tabelle ("Abt") hinterlegt ist. mit diesem .xla lade ich eine Vorlage (".xlt") in der sich eine ComboBox befindet - diese will ich mit den Daten der Tabelle füllen. Da sich die Anzahl der Einträge ändern kann, will ich das Ganze "dynamisch" haben. Ich habe bis jetzt die ListFillRange in den Eigenschaften der ComboBox gesetzt - eben nicht dynamisch.
Mit diesem angehängten Code klappt´s nicht. Wenn ich UserForm_Initialize() schrittweise ausführe, werden die Daten geladen, wenn ich das Formular per Makro starte, nicht.
Vielleicht hat jemand ´ne Lösung
Den Helfern Dank im Voraus
Gruß Herbert
Private Sub ComboBox2_Change()
Dim wks As Worksheet
Set wks = Workbooks("BeschNEU.xla").Sheets("Abt")
With ComboBox2
Range("Abt") = wks.Cells(.ListIndex + 2, 2)
Range("KSt") = wks.Cells(.ListIndex + 2, 1)
End With
Range("Nummer").Select
End Sub
Private Sub UserForm_Initialize()
Dim iRow As Integer
iRow = 2
With Workbooks("BeschNEU.xla").Worksheets("Abt")
Do Until IsEmpty(.Cells(iRow, 2))
ComboBox2.AddItem .Cells(iRow, 2).Value
iRow = iRow + 1
Loop
End With
ComboBox2.ListIndex = 0
End Sub