Private Sub CommandButton1_Click()
Sheets("Tabelle1").Range("A1") = ComboBox1.Value
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim arr
arr = Sheets(2).Range("B1:B14")
Me.ComboBox1.List() = arr
End Sub
Private Sub CommandButton1_Click()
Sheets(1).Range("A1") = Me.ComboBox1.Value
End Sub
RowSource auf Tabelle2!B1:B14.Private Sub UserForm_Initialize()
Dim arr
arr = Sheets(2).Range("B1:B14")
Me.ComboBox1.List() = arr
End Sub
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Range("A1") = Me.ComboBox1.Value
Unload Me
End SubRowSource korrekt auf Tabelle2!B1:B14 gesetzt ist. Überprüfe auch, ob die Daten in diesem Bereich vorhanden sind.ComboBox1) mit dem Namen in der Userform übereinstimmt.Eine andere Möglichkeit, die ComboBox zu füllen, ist die Verwendung eines Arrays. So kannst du die Daten manuell einlesen. Der Code könnte wie folgt aussehen:
Private Sub UserForm_Initialize()
Dim arr(1 To 14) As String
Dim i As Integer
For i = 1 To 14
arr(i) = Sheets(2).Cells(i, 2).Value
Next i
Me.ComboBox1.List = arr
End SubEin praktisches Beispiel für die Verwendung einer ComboBox könnte die Auswahl von Produktnamen in einem Verkaufsbericht sein. Wenn der Benutzer ein Produkt auswählt, wird der entsprechende Preis in die Tabelle1 Zelle A1 übertragen.
ListIndex-Eigenschaft der ComboBox, um den ausgewählten Index leicht zu bestimmen.Unload Me zu entladen, um Speicherplatz freizugeben.1. Wie kann ich mehrere ComboBoxes in einer Userform verwenden?
Du kannst einfach weitere ComboBoxes hinzufügen und den obigen Code für jede ComboBox anpassen, um die jeweiligen Daten anzuzeigen.
2. Was mache ich, wenn ich mehr als 14 Einträge habe?
Erweitere einfach den Bereich in der RowSource oder passe den Code an, um mehr Zellen einzulesen. Achte darauf, dass die ComboBox ausreichend Platz hat, um alle Einträge anzuzeigen.