UF Comboboxen Werte eintragen
12.02.2014 18:24:16
Heinz
Ich habe einen Code der mir den Wert einer Combobox in den Sheets "Auswertung" in Spalte A einträgt.
Ich möchte von zusätzlichen Comboboxen den Wert eintragen.
Z.B. ComboBoxDatum in Spalte A - ComboBoxLinie in Spalte B usw..
Könnte mir dazu bitte jemand weiterhelfen?
Gruß Heinz
Private Sub CommandButtonEintragen_Click()
'Übernahme in Datenbank
Worksheets("Auswertung").Activate
Dim StartZeile&
Dim Ws As Worksheet
Set Ws = ActiveSheet
StartZeile = Ws.Cells(65536, 1).End(xlUp).Row + 1
Ws.Cells(StartZeile, 1) = Me.ComboBoxDatum 'Me.ComboBoxLinie Me.ComboBoxSchicht
Application.EnableEvents = True
End Sub
Anzeige