Wenn in Textbox 5 steht, 5 Zeilen in Tabelle
07.08.2019 17:50:42
Andre
ich habe mal eine Frage an die Experten.
In einer Userform möchte ich Wareneingänge im Lager verbuchen.
Ich schreibe in eine Textbox die Artikelnummer. In der nächsten Textbox
wird mir die Artikelbezeichnung angezeigt (das läuft). Dann gebe ich in
der nächsten Textbox die Anzahl der Paletten ein und in einer weiteren
Textbox die Menge pro Palette.
Wenn jetzt der Wert der Textbox mit der Anzahl größer 1 ist, soll die
entsprechende Anzahl an Zeilen in das Tabellenblatt geschrieben werden.
Heißt also z.B. Anzahl Paletten ist 5, dann fünf Zeilen mit den
Textboxen Artikel, Bezeichnung, und Menge pro Palette. Geht das überhaupt?
Der derzeit noch einfache Code sieht so aus:
Private Sub CommandButton_speichern_Click()
Dim last As Integer
last = Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row + 1
Tabelle3.Cells(last, 1) = TextBox_Material.Value
Tabelle3.Cells(last, 2) = TextBox1.Value
Tabelle3.Cells(last, 5) = TextBox2.Value
Tabelle3.Cells(last, 3) = TextBox3.Value
Tabelle3.Cells(last, 4) = TextBox4.Value
Tabelle3.Cells(last, 6) = TextBox_Datum.Value
TextBox_Material.Value = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox_Material.SetFocus
End Sub
Gruß
Andre
Anzeige