Hi liebe Forumsmitglieder,
ich bin gerade verzweifelt dabei in einer Combobox einer Userform einen Wert auszuwählen. Leider klappt es nicht mit meinem Code. Könnt Ihr mir sagen, was ich ändern muss, um von einem Makro in Datei „Auswahl“ in einer Dateien mit dem Namen „Waren“ in der Combobox den Wert „Stuhl“ auszuwählen?
Danke
Option Explicit
Sub Einkauf ()
Dim i As Integer
Workbooks.Open Filename:="D:\Waren.xlsb"
For i = 0 To UserFormAuswahl.ComboBoxAuswahl.ListCount
If UserFormAuswahl.ComboBoxAuswahl.List(i) = "Stuhl" Then
UserFormAuswahl.ComboBoxAuswahl.ListIndex = i
Exit For
End If
Next i
UserFormAuswahl.ComboBoxAuswahl.Show
End Sub
|