Comboboxverhalten anders als in 2003
andreas
mit dem vorhandenen Code befülle ich eine Combobox mit Werten aus einer externen Tabelle.
Beim ersten drücken der Combobox erscheint immer nur der erste Wert, erst bei nochmaligem drücken kommt die Liste wie bei 2003. Das ganze ist so nicht schön, aber ich weiss nicht was hier anders funktioniert wie in 2003
Private Sub Combobox2_GotFocus() 'Kunden anzeigen_Pfad anpassen
Dim Spaltenlänge, i As Long
Dim exapp As New Application
Dim datenquelle As Worksheet
ComboBox2.Clear
Set exapp = New Excel.Application 'Neue Excel Instanz eröffnen
exapp.Visible = False 'Excel bleibt unsichtbar
exapp.Workbooks.Open "C:\Users\Andi\Kalkulation_Frästeile\Kundenliste.xlsm" 'Quelldatei öffnen
Set datenquelle = exapp.Worksheets("Kundenliste") 'Quelltabelle angeben...
Spaltenlänge = datenquelle.Cells(Rows.Count, 1).End(xlUp).Row 'Einträge in Spalte A zählen
For i = 2 To Spaltenlänge
ComboBox2.AddItem datenquelle.Cells(i, 1) 'Combobox füllen mit Einträgen aus der Spalte A _
des Quellfiles
Next
Set datenquelle = Nothing 'Speicher wieder freigeben..
exapp.Workbooks("Kundenliste.xlsm").Close Savechanges:=True
exapp.Quit
Set exapp = Nothing
End Sub
bin für jede Hilfe dankbarGruß Andreas