kannst du mir vielleicht auch sagen wie ich das hier mit einfüge?



Private Sub Button_Schließen_Click()
    
'Eingabefenster schließen
    Unload meinFormular_Eingang

End Sub

Private Sub Button_Übernehmen_Click()

'Eingaben der Schaltfläschen in die Arbeitsmappe übernehmen
    Dim last As Integer
    
    last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 'Nächste freie Zelle suchen
    
    ActiveSheet.Cells(last, 1).Value = CDate(meinFormular_Eingang.TextBox_Datum.Value)
    ActiveSheet.Cells(last, 2).Value = meinFormular_Eingang.ComboBox_Produkt.Value
    ActiveSheet.Cells(last, 3).Value = meinFormular_Eingang.TextBox_LabelNummer.Value
    ActiveSheet.Cells(last, 4).Value = meinFormular_Eingang.TextBox_Gewicht.Value
    ActiveSheet.Cells(last, 5).Value = meinFormular_Eingang.ComboBox_Lieferant.Value


End Sub

Private Sub ComboBox_Lager_Enter()
    
'aktivierte Zelle gelb färben
    ComboBox_Lager.BackColor = vbYellow
    
End Sub

Private Sub ComboBox_Lager_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
'deaktivierte Zelle Weiß färben
    ComboBox_Lager.BackColor = vbWhite

End Sub


Private Sub ComboBox_Lieferant_Enter()
    
'aktivierte Zelle gelb färben
    ComboBox_Lieferant.BackColor = vbYellow

End Sub

Private Sub ComboBox_Lieferant_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
'deaktivierte Zelle Weiß färben
    ComboBox_Lieferant.BackColor = vbWhite

End Sub

Private Sub ComboBox_Produkt_Enter()
    
'aktivierte Zelle gelb färben
    ComboBox_Produkt.BackColor = vbYellow

End Sub

Private Sub ComboBox_Produkt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
'deaktivierte Zelle Weiß färben
    ComboBox_Produkt.BackColor = vbWhite

End Sub


Private Sub TextBox_Gewicht_Enter()
    
'aktivierte Zelle gelb färben
    TextBox_Gewicht.BackColor = vbYellow

End Sub

Private Sub TextBox_Gewicht_Exit(ByVal Cancel As MSForms.ReturnBoolean)

'deaktivierte Zelle Weiß färben
    TextBox_Gewicht.BackColor = vbWhite

End Sub

Private Sub TextBox_LabelNummer_Enter()
    
'aktivierte Zelle gelb färben
    TextBox_LabelNummer.BackColor = vbYellow

End Sub

Private Sub TextBox_LabelNummer_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
'deaktivierte Zelle Weiß färben
    TextBox_LabelNummer.BackColor = vbWhite

End Sub


Private Sub UserForm_Initialize()

'DatumKästchen zeigt immer das aktuelle Datum
    meinFormular_Eingang.TextBox_Datum.Value = Date

Dim lngZeileMax As Long

'ComboBox_Produkt füllen
With Tabelle5
    lngZeileMax = .Range("A" & Rows.Count).End(xlUp).Row
    Me.ComboBox_Produkt.RowSource = Tabelle5.Name & "!A2:A" & lngZeileMax
End With


'ComboBox_Lieferant füllen
With Tabelle3
    lngZeileMax = .Range("A" & Rows.Count).End(xlUp).Row
    Me.ComboBox_Lieferant.RowSource = Tabelle3.Name & "!A2:A" & lngZeileMax
End With


'ComboBox_Lager füllen
    With meinFormular_Eingang.ComboBox_Lager
    
    .AddItem "Lager 1"
    .AddItem "Lager 2"
    .AddItem "Lager 3"
    .AddItem "Lager 4"
    .AddItem "Lager 5"
    .AddItem "Lager 6"
    .AddItem "Lager 7"
    .AddItem "Lager 8"
    .AddItem "Lager 9"
    .AddItem "Lager 10"
    .AddItem "Lager 11"
    .AddItem "Lager 12"
    .AddItem "Lager 13"
    .AddItem "Lager 14"
    .AddItem "Lager 15"
    .AddItem "Lager 16"
    .AddItem "Lager 17"
    .AddItem "Lager 18"
    .AddItem "Lager 19"
    .AddItem "Lager 20"
    .AddItem "Außenlager"
    .AddItem "Lager Sonsbeck"

    End With



'Logo einfügen
    Image1.Picture = LoadPicture("C:\Dokumente und Einstellungen\Administrator\Desktop\Logo\Bongardt Logo grün gold.jpg")

'Logo Größe anpassen
    Image1.PictureSizeMode = fmPictureSizeModeStretch


End Sub