Private Sub ComboBox1_Click()
ComboBox1.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox1_DropButtonClick()
ComboBox1.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox1_Change()
If ComboBox1 Then
TextBox3 = Worksheets("Artikel").Cells(ComboBox1.ListIndex + 2, 2)
ComboBox2.Locked = False
End If
End Sub
Private Sub ComboBox2_DropButtonClick()
ComboBox2.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox2.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox2_Change()
If ComboBox2 Then
TextBox5 = Worksheets("Artikel").Cells(ComboBox2.ListIndex + 2, 2)
ComboBox3.Locked = False
End If
End Sub
Private Sub ComboBox3_DropButtonClick()
ComboBox3.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox3.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox3_Change()
If ComboBox3 Then
TextBox7 = Worksheets("Artikel").Cells(ComboBox3.ListIndex + 2, 2)
ComboBox4.Locked = False
End If
End Sub
Private Sub ComboBox4_DropButtonClick()
ComboBox4.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox4.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox4_Change()
If ComboBox4 Then
TextBox9 = Worksheets("Artikel").Cells(ComboBox4.ListIndex + 2, 2)
ComboBox5.Locked = False
End If
End Sub
Private Sub ComboBox5_DropButtonClick()
ComboBox5.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox5.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox5_Change()
If ComboBox5 Then
TextBox11 = Worksheets("Artikel").Cells(ComboBox5.ListIndex + 2, 2)
End If
End Sub
Private Sub CommandButton1_Click()
Dim X As Long
If Trim(CStr(TextBox1.Text)) = "" Then
MsgBox "Lieferschein Nummer fehlt", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(TextBox2.Text)) = "" Then
MsgBox "Datum fehlt", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(ListBox1.Text)) = "" Then
MsgBox "Kühlhaus auswählen", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(TextBox3.Text)) = "" Then
MsgBox "Artikel fehlt", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(TextBox4.Text)) = "" Then
MsgBox "Menge fehlt", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(ComboBox2.Text)) <> "" And Trim(CStr(TextBox6.Text)) = "" Then
MsgBox "Menge fehlt", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(ComboBox3.Text)) <> "" And Trim(CStr(TextBox8.Text)) = "" Then
MsgBox "Menge fehlt", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(ComboBox4.Text)) <> "" And Trim(CStr(TextBox10.Text)) = "" Then
MsgBox "Menge fehlt", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(ComboBox5.Text)) <> "" And Trim(CStr(TextBox12.Text)) = "" Then
MsgBox "Menge fehlt", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If ComboBox1 = True Then
X = Sheets("Lieferscheine").Range("A1048576").End(xlUp).Row
If Trim(CStr(TextBox1.Text)) = "" Then
MsgBox "Datum fehlt", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(ListBox1.Text)) = "" Then
MsgBox "Kühlhaus auswählen", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(TextBox2.Text)) = "" Then
MsgBox "Artikel auswählen", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(TextBox3.Text)) = "" Then
MsgBox "Menge eingeben", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
X = Sheets("Lieferscheine").Range("H65536").End(xlUp).Row
Private Sub CommandButton2_Click()
Hinweis.Show vbModeless
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem "Wulbusch"
ListBox1.AddItem "Transthermos"
End Sub
Private Sub ComboBox1_DropButtonClick()
ComboBox1.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.RowSource = "Artikel!$A$2:" & _
Worksheets("Artikel").Cells(Worksheets("Artikel").Rows.Count, 1).End(xlUp).Address
End Sub
Private Sub ComboBox1_Change()
If ComboBox1 Then
TextBox2 = Worksheets("Artikel").Cells(ComboBox1.ListIndex + 2, 2)
TextBox2.Locked = True
End If
End Sub
Code Hinweis Fenster (UserForm), wenn man in UserForm auf Abbrechen geht:
Code:
Private Sub CommandButton1_Click()
Unload Me
End Sub
ein problem gibt es doch noch.
Wenn ich in der Userform bei der menge (Textbox) eine Komma Zahl eingebe, wird dies bei meiner Übersicht nicht berücksichtigt.
Anbei die Formel in der Übersicht und die Anzeige der Komma Zahl.
Anscheinend überträgt Excel die "Zahl" nicht als Zahl, sondern als Text und Somit kann meine Funktion auf der Übersichtsseite nichts damit anfangen.