Warum bleibt bei der Verwendeung des Kombinationsfeld das UserForms leer.
Habe folgenden Code heute hier erhalten und eingebaut (unten mein gesamter Code)
Private Sub ComboBox1_Change()
For i = 1 To 3
ComboBox1.AddItem i
Next
End Sub
________________________________________
Private Sub ComboBox1_Change()
For i = 1 To 3
ComboBox1.AddItem i
Next
End Sub
Private Sub CommandButton1_Click()
[A65536].End(xlUp).Offset(1, 0) = ComboBox1
If [A1] = "" Then [A1].Delete shift:=xlUp
Eingabe.Hide
MsgBox "Danke für Ihr Voting", vbInformation, "V O T I N G"
End Sub
Private Sub CommandButton2_Click()
Eingabe.Hide
MsgBox "Schade, hätte mich interessiert was Sie dazu meinen." & Chr(10) & "Trotzdem danke! und hoffentlich bis bald", vbExclamation, "Bye"
End Sub
was ist falsch?
Gruss, Glen