VBA Button, User Form

[Izzy]

Danke, ich wusste nicht, dass es bei der Listbox genauso funktioniert, da dort ja eine auswahl getroffen werden muss und nicht was eingetragen wird.

[schauan]

Hallo Izzy,

einen Hinweis hab ich noch. Das geht nur bei Single-Auswahl. Eine Listbox kann man auch auf MultiSelect einstellen, da müsste man was anderes nehmen.

[Izzy]

Ah ok, wieder was gelernt, wusste bissland nicht, das man in einer Listbox auch mehr auswählen kann.

Danke :)

[Izzy]

Endergebnis:

Code Button - UserForm Lieferscheine

Code:

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

Sheets("Lieferscheine").Cells(X + 1, 1) = TextBox1.Text
Sheets("Lieferscheine").Cells(X + 1, 2) = Format(TextBox2.Text, "dd.mm.yyyy")
Sheets("Lieferscheine").Cells(X + 1, 3) = ListBox1.Text
Sheets("Lieferscheine").Cells(X + 1, 4) = ComboBox1.Text
Sheets("Lieferscheine").Cells(X + 1, 5) = TextBox3.Text
Sheets("Lieferscheine").Cells(X + 1, 6) = TextBox4.Text
End If
If ComboBox2 = True Then

Sheets("Lieferscheine").Cells(X + 2, 1) = TextBox1.Text
Sheets("Lieferscheine").Cells(X + 2, 2) = Format(TextBox2.Text, "dd.mm.yyyy")
Sheets("Lieferscheine").Cells(X + 2, 3) = ListBox1.Text
Sheets("Lieferscheine").Cells(X + 2, 4) = ComboBox2.Text
Sheets("Lieferscheine").Cells(X + 2, 5) = TextBox5.Text
Sheets("Lieferscheine").Cells(X + 2, 6) = TextBox6.Text
End If

If ComboBox3 = True Then

Sheets("Lieferscheine").Cells(X + 3, 1) = TextBox1.Text
Sheets("Lieferscheine").Cells(X + 3, 2) = Format(TextBox2.Text, "dd.mm.yyyy")
Sheets("Lieferscheine").Cells(X + 3, 3) = ListBox1.Text
Sheets("Lieferscheine").Cells(X + 3, 4) = ComboBox3.Text
Sheets("Lieferscheine").Cells(X + 3, 5) = TextBox7.Text
Sheets("Lieferscheine").Cells(X + 3, 6) = TextBox8.Text
End If

If ComboBox4 = True Then

Sheets("Lieferscheine").Cells(X + 4, 1) = TextBox1.Text
Sheets("Lieferscheine").Cells(X + 4, 2) = Format(TextBox2.Text, "dd.mm.yyyy")
Sheets("Lieferscheine").Cells(X + 4, 3) = ListBox1.Text
Sheets("Lieferscheine").Cells(X + 4, 4) = ComboBox4.Text
Sheets("Lieferscheine").Cells(X + 4, 5) = TextBox9.Text
Sheets("Lieferscheine").Cells(X + 4, 6) = TextBox10.Text
End If

If ComboBox5 = True Then

Sheets("Lieferscheine").Cells(X + 5, 1) = TextBox1.Text
Sheets("Lieferscheine").Cells(X + 5, 2) = Format(TextBox2.Text, "dd.mm.yyyy")
Sheets("Lieferscheine").Cells(X + 5, 3) = ListBox1.Text
Sheets("Lieferscheine").Cells(X + 5, 4) = ComboBox5.Text
Sheets("Lieferscheine").Cells(X + 5, 5) = TextBox11.Text
Sheets("Lieferscheine").Cells(X + 5, 6) = TextBox12.Text
End If





ActiveWorkbook.Save
Unload Me
End Sub

Private Sub CommandButton2_Click()
Hinweis.Show vbModeless
End Sub


Private Sub UserForm_Initialize()
ListBox1.AddItem "1"
ListBox1.AddItem "2"
ComboBox2.Locked = True
ComboBox3.Locked = True
ComboBox4.Locked = True
ComboBox5.Locked = True
TextBox7.Locked = True
TextBox11.Locked = True
TextBox9.Locked = True
TextBox5.Locked = True
TextBox3.Locked = True
End Sub

Code Button - UserForm Auslagerung

Code:

Private Sub CommandButton1_Click()
Dim X As Long

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

Sheets("Lieferscheine").Cells(X + 1, 8) = Format(TextBox1.Text, "dd.mm.yyyy")
Sheets("Lieferscheine").Cells(X + 1, 9) = ListBox1.Text
Sheets("Lieferscheine").Cells(X + 1, 10) = ComboBox1.Text
Sheets("Lieferscheine").Cells(X + 1, 11) = TextBox2.Text
Sheets("Lieferscheine").Cells(X + 1, 12) = TextBox3.Text
 

ActiveWorkbook.Save
Unload Me
End Sub


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

Private Sub CommandButton2_Click()
End
End Sub

[Izzy]

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.


Was ich schon versucht habe

Code:

Format(TextBox4.Text, "#.###,#")

Code:

Format(TextBox4.Text, Number)

[schauan]

Hallöchen,

mit Format erzeugst Du eigentlich eine Textvariable. Versuche es mal mit CDbl(Format(...))
(ungetestet)

[Izzy]

super, danke funktioniert

Code:

Sheets("Lieferscheine").Cells(X + 1, 6) = CDbl(Format(TextBox4.Text, Number))