Bein UF start in der cbo den 1, Wert ausgeben
chandler
wie erreiche ich es, das beim öffnen der UserForm in der ComboBox sofort (leer) ausgegeben wird?
Warum ist die ComboBox vorerst immer ohne Wert?
Private Sub UserForm_Initialize()
Dim strList(4) As String, intIndex As Integer
strList(0) = "(leer)"
strList(1) = "N"
strList(2) = "S"
strList(3) = "W"
strList(4) = "O"
For intIndex = 1 To 36
Me.Controls("cbo" & intIndex).List = strList
Next
End Sub
Vorab vielen Dank. Grüße
Anzeige