Combobox Autofill anstatt open workbook?
30.06.2017 13:47:31
Marco
Ich bin gerade auf der Suche nach einem Befehl meine Combobox aktiv zu befüllen, das heißt wenn ich was im tabellenblatt ändere soll das sofort in der Combobox erscheinen und nicht erst nach dem speichern und erneuten öffnen. muss ich da nur einen befehl hinzufügen oder komplett alles ändern? Ich bin für jede Hilfe dankbar. Grüße Marco
Mein aktueller Code wird im Workbook Open mit Call CB1fuellen aufgerufen.
Der CB1fuellen Code sieht aktuell so aus:
Sub CB1fuellen()
Dim iZeile As Long
With Worksheets("Database")
bFuellen = True
Worksheets("Dashboard").ComboBox1.Clear
For iZeile = 13 To .Cells(.Rows.Count, 6).End(xlUp).Row
If WorksheetFunction.CountIf(.Range("F13:F" & iZeile), .Cells(iZeile, 6)) = 1 Then
If .Cells(iZeile, 6) "" Then
Worksheets("Dashboard").ComboBox1.AddItem .Cells(iZeile, 6)
End If
End If
Next iZeile
bFuellen = False
Worksheets("Dashboard").ComboBox1.ListIndex = -1
End With
End Sub