Private Sub Button_Übernehmen_Click()
Dim last As Long
If Me.ComboBox_Lager.ListIndex > -1 Then
With Worksheets(Me.ComboBox_Lager.Value)
last = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(last, 1).Value = CDate(Me.TextBox_Datum.Value)
.Cells(last, 2).Value = Me.ComboBox_Produkt.Value
.Cells(last, 3).Value = Me.TextBox_LabelNummer.Value
.Cells(last, 4).Value = Me.TextBox_Gewicht.Value
.Cells(last, 5).Value = Me.ComboBox_Lieferant.Value
End With
Else
MsgBox "Fehler: Es ist kein Lager ausgewählt."
End If
End Sub