Excel VBA ComboBox Standardwert

Question

Bin auf der Suche nach einer Möglichkeit, die Combobox auf meinem Benutzerformular einen Standardwert von nichts oder so etwas wie "Wählen von unten" haben.

Haben verschiedene Google-Vorschläge ausprobiert, aber der Wert, der in meiner Combobox angezeigt wird, ist leer, wenn es sich um die erste Iteration des Codes handelt, oder schlimmer noch, den zuvor ausgewählten Wert.

-Code ist unten ...

' Begin Code 
Private Sub UserForm_Initialize() 
    Dim RngTags As Range, RngNames As Range, i As Long 

ComboBox1.Value = "SomeText" 

'Set rng1 = Sheets("Admin").Range("deptrange2") 
Set rng1 = Range("ALLDEPT") 

With ComboBox1 
    .ColumnCount = 1 
    .Style = fmStyleDropDownList 
    .TextAlign = fmTextAlignLeft 
    .BoundColumn = 1 

    For i = 1 To rng1.Count 
     .AddItem rng1(i).Value 
     .List(.ListCount - 1, 1) = rng1(i).Value 
    Next i 
End With 

End Sub 


' Puts the value chosen from the list on admin f6 
Private Sub ComboBox1_Change() 
    Sheets("Admin").Range("f8").Value = ComboBox1.Value 

    Call myUnLoad 
End Sub 

' Gets rid of userform 
Sub myUnLoad() 
    UserForm1.Hide 
End Sub 
' End code 

Dank

Andrew

Answer 1

Nachdem die Werte hinzufügen, müssen Sie die Listindex auf 0.

Combobox1.ListIndex=0