Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.
Clever-Excel-Forum › Office-Anwendungen › Excel v
VBA Button, User Form

Thema geschlossen 
Baumstrukturmodus
VBA Button, User Form
Izzy Offline
Benutzer
ThreadStarter

Registriert seit: 25.04.2017
Version(en): 2016
#11
08.09.2017, 13:30
Danke, ich wusste nicht, dass es bei der Listbox genauso funktioniert, da dort ja eine auswahl getroffen werden muss und nicht was eingetragen wird.
Suchen
Antworten Top
schauan Offline
Einer von hier
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
#12
08.09.2017, 14:03
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.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Homepage Suchen
Antworten Top
Izzy Offline
Benutzer
ThreadStarter

Registriert seit: 25.04.2017
Version(en): 2016
#13
08.09.2017, 14:07
Ah ok, wieder was gelernt, wusste bissland nicht, das man in einer Listbox auch mehr auswählen kann.

Danke :)
Suchen
Antworten Top
Izzy Offline
Benutzer
ThreadStarter

Registriert seit: 25.04.2017
Version(en): 2016
#14
11.09.2017, 13:42
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


Angehängte Dateien
.xlsm   Bestand Kühlhäuser Code.xlsm (Größe: 42,24 KB / Downloads: 3)
Suchen
Antworten Top
Izzy Offline
Benutzer
ThreadStarter

Registriert seit: 25.04.2017
Version(en): 2016
#15
11.09.2017, 14:12
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)


Angehängte Dateien Thumbnail(s)
       
Suchen
Antworten Top
schauan Offline
Einer von hier
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
#16
11.09.2017, 22:00
Hallöchen,

mit Format erzeugst Du eigentlich eine Textvariable. Versuche es mal mit CDbl(Format(...))
(ungetestet)
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Homepage Suchen
Antworten Top
Izzy Offline
Benutzer
ThreadStarter

Registriert seit: 25.04.2017
Version(en): 2016
#17
12.09.2017, 07:15
super, danke funktioniert


Code:
Sheets("Lieferscheine").Cells(X + 1, 6) = CDbl(Format(TextBox4.Text, Number))
Suchen
Antworten Top
Thema geschlossen 


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste