kannst du mir vielleicht auch sagen wie ich das hier mit einfüge?
Private
Sub
Button_Schließen_Click()
Unload meinFormular_Eingang
End
Sub
Private
Sub
Button_Übernehmen_Click()
Dim
last
As
Integer
last = ActiveSheet.Cells(Rows.Count, 1).
End
(xlUp).Row + 1
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()
ComboBox_Lager.BackColor = vbYellow
End
Sub
Private
Sub
ComboBox_Lager_Exit(
ByVal
Cancel
As
MSForms.ReturnBoolean)
ComboBox_Lager.BackColor = vbWhite
End
Sub
Private
Sub
ComboBox_Lieferant_Enter()
ComboBox_Lieferant.BackColor = vbYellow
End
Sub
Private
Sub
ComboBox_Lieferant_Exit(
ByVal
Cancel
As
MSForms.ReturnBoolean)
ComboBox_Lieferant.BackColor = vbWhite
End
Sub
Private
Sub
ComboBox_Produkt_Enter()
ComboBox_Produkt.BackColor = vbYellow
End
Sub
Private
Sub
ComboBox_Produkt_Exit(
ByVal
Cancel
As
MSForms.ReturnBoolean)
ComboBox_Produkt.BackColor = vbWhite
End
Sub
Private
Sub
TextBox_Gewicht_Enter()
TextBox_Gewicht.BackColor = vbYellow
End
Sub
Private
Sub
TextBox_Gewicht_Exit(
ByVal
Cancel
As
MSForms.ReturnBoolean)
TextBox_Gewicht.BackColor = vbWhite
End
Sub
Private
Sub
TextBox_LabelNummer_Enter()
TextBox_LabelNummer.BackColor = vbYellow
End
Sub
Private
Sub
TextBox_LabelNummer_Exit(
ByVal
Cancel
As
MSForms.ReturnBoolean)
TextBox_LabelNummer.BackColor = vbWhite
End
Sub
Private
Sub
UserForm_Initialize()
meinFormular_Eingang.TextBox_Datum.Value =
Date
Dim
lngZeileMax
As
Long
With
Tabelle5
lngZeileMax = .Range(
"A"
& Rows.Count).
End
(xlUp).Row
Me
.ComboBox_Produkt.RowSource = Tabelle5.Name &
"!A2:A"
& lngZeileMax
End
With
With
Tabelle3
lngZeileMax = .Range(
"A"
& Rows.Count).
End
(xlUp).Row
Me
.ComboBox_Lieferant.RowSource = Tabelle3.Name &
"!A2:A"
& lngZeileMax
End
With
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
Image1.Picture = LoadPicture(
"C:\Dokumente und Einstellungen\Administrator\Desktop\Logo\Bongardt Logo grün gold.jpg"
)
Image1.PictureSizeMode = fmPictureSizeModeStretch
End
Sub