Combobox füllt nur bis Zeile 55?
02.05.2021 21:50:18
Benedikt
Wäre Dankbar für Hilfe, ich drehe vermutlich im Kreis
wg = Workbooks("Material 2020.xlsm").Sheets("Material").Cells(z, 1) sollte eigentlich alle Daten aus Zeile 1 in die Cobobox einlesen, aber bei Zeile 55 ist Schluss
Habe ich eine Handbremse im Code oder übersehe ich an den Einstellungen der Combobox etwas?
Private Sub ComboBox1_Change()
Dim wgn, z, wg
ListBox1.Clear
wgn = ComboBox1
For z = 2 To 2000
wg = Workbooks("Material 2020.xlsm").Sheets("Material").Cells(z, 1)
If wg = wgn Then
ListBox1.AddItem Workbooks("Material 2020.xlsm").Sheets("Material").Cells(z, 2)
End If
Next z
End Sub
Anzeige
