Combobox ohne leere Zeilen
30.06.2017 03:33:30
Marco
Public zeile As Integer
Public bFuellen As Boolean
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 _
Worksheets("Dashboard").ComboBox1.AddItem .Cells(iZeile, 6)
Next iZeile
bFuellen = False
Worksheets("Dashboard").ComboBox1.ListIndex = 0
End With
End Sub
PS: noch eine Frage am Rand. Meine Combobox füllt sich nur beim öffnen der Datei. Mit welchem Befehl wird sie denn aktiv befüllt also wenn ich was ändere in der Liste dass das gleich mitübernommen wird?