Übernahme Listbox + Textfeldwerte in eine Tabelle
13.12.2016 09:04:57
Robert
ich brauch mal wieder Hilfe und hoffe einer der Experten kann einspringen.
Ich habe eine Listbox welche via Drag and Drop befüllt wird. Durch klicken auf einen Button werden die Daten dann in eine Tabelle immer ans Ende übernommen.
Der Code sieht wie folgt aus:
Sub Test_abschliessen()
Dim Datum As Date
If bolEingabeMoeglich Then
End If
With Sheets("Test")
If Me.ListBox_Quality.ListCount > 0 Then Sheets("Quality + Pick & Pack").Cells(Rows.Count, 1). _
End(xlUp).Offset(1, 0).Resize(Me.ListBox_Quality.ListCount, Me.ListBox_Quality.ColumnCount) = Me.ListBox_Quality.List
If Me.ListBox_PickPack.ListCount > 0 Then Sheets("Quality + Pick & Pack").Cells(Rows.Count, 6). _
End(xlUp).Offset(1, 0).Resize(Me.ListBox_PickPack.ListCount, Me.ListBox_PickPack.ColumnCount) = Me.ListBox_PickPack.List
End With
End Sub
Wenn möglich sollte immer eine 1 übernommen werden wenn das Textfeld leer ist ansonsten die Zahl die im Textfeld steht. Ich könnte das Textfeld aber auch beim inizialisieren automatisch mit einer 1 befüllen, das wäre also nicht so wichtig aber es soll natürlich auch bei jedem Artikel dann diese Zahl dahinter stehen.
Ich hoffe Ihr versteht was ich meine.
Bei Bedarf kann ich noch eine Beispieldatei erstellen.
Danke schonmal und Gruß
Robert
Nun