Übernahme ComboBoxen in Zelle
René
ich möchte aus einer Userform die Inhalte von 3 Comboboxen in eine Zelle von einem Tabellenblatt übernehmen. Irgendwas mache ich falsch. Es funktioniert nur wenn ich den Inhalt von einer ComboBox übernehme. So bald & ins Spiel kommt wird garnichts übernommen. Was muss ich da ändern. Habt ihr einen Tipp für mich?
MfG René
Private Sub CommandButton4_Click()
'Übernahme in Datenbank
Worksheets("Daten").Activate
Dim StartZeile&
Dim Ws As Worksheet
Set Ws = ActiveSheet
StartZeile = Ws.Cells(65536, 1).End(xlUp).Row + 1
'Nummer
Ws.Cells(StartZeile, 4) = Me.ComboBox7 & Me.ComboBox9 & Me.ComboBox8
UserForm3_Terminate
Application.EnableEvents = True
ActiveWorkbook.Save
End Sub
Anzeige