Text aus ComboBox übergeben
08.09.2022 13:42:13
Frank
ich habe ein Problem und offensichtlich stehe ich auf dem Schlauch. Ich habe eine ComboBox1 die beim Click Ereignis drei Zellen ausliest und sich befüllt. Damit der ComboBox1 Liste nicht immer länger wird. leere ich zu Beginn die ComboBox. Anschließend werden die Einträge eingelesen UND nun soll der ausgewählte Eintrag nach Excel übergeben werden. Da es aber durch die Clear Aktion auch in das Change Event springt leert er ComboBox1 wieder. Und somit wird kein Wert übergeben.
Ich hoffe das war verständlich. Wie kann man das sauber programmieren?
Private Sub ComboBox1_Change()
Worksheets(1).Cells(4, 5) = ComboBox1.Text
End Sub
Private Sub ComboBox1_Click()
Dim i As Integer
ComboBox1.Clear
For i = 1 To 3
If Worksheets(1).Cells(i, 1) "" Then
ComboBox1.AddItem Worksheets(1).Cells(i, 1)
Else
Exit For
End If
Next
End Sub
Frank