Combobox füllen aber noch keinen Wert anzeigen
30.06.2017 09:53:03
Marco
Ich habe 5 Comboboxen die beim Öffnen der Datei per dem unten aufgeführten Code befüllt werden.
Private Sub Workbook_Open()
Call CB1fuellen
Call CB2fuellen
Call CB3fuellen
End Sub
Dieser Code ruft dann die einzelnen CB1fuellen auf:
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 = 0
End With
End Sub
Mein Problem ist das beim öffnen die befüllten Comboboxen dann einen Wert anzeigen, ich möchte aber das kein Wert angezeigt wird sondern erst wenn ich drauf klicke und einen aussuche. Das ist sehr wichtig für mein weiteres vorgehen. Kann mir jemand sagen wie das geht?
Ich war der Meinung das ich mein Problem damit lösen kann aber dem ist nicht so:
ComboBox1.Value = ""
Anzeige