ich benötige eure Hilfe ich bin gerade dabei mir ein Tool zum erstellen von Rechnungen zu "basteln"
Ich habe folgendes Problem über eine Combobox wird eine Artikel Nr. ausgewählt und per Button wird dieser Artikel mit Namen und Preis in ein Listbox geschrieben, das funktioniert auch soweit .
Private Sub CommandButton2_Click() 'auswahl in Listbox schreiben
Dim rngCell As Range
Dim strFirstAddress As String
With Worksheets("Artikel").Range("A:Z")
Set rngCell = .Find(Me.ComboBox3.Value, LookIn:=xlValues, lookat:=xlWhole)
With Me.ListBox1
.ColumnCount = 5
.AddItem
.List(.ListCount - 1, 0) = rngCell.Value
.List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = TextBox1
.List(.ListCount - 1, 3) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 4) = rngCell.Offset(0, 3).Value
.ColumnWidths = "1cm;3cm;1cm;1cm;2cm"
End With
End With
Label14 = ""
Label15 = ""
Label16 = ""
Label17 = ""
End Sub
Wenn jetzt mehrere Artikel in der Listbox vorhanden sind sollen diese in Tabelle4 "Rechnung" kopiert werden die erste Zeile der Listbox in Zelle A18 die zweite in B18 ... bis E18
die Zweite Zeile der Listbox soll dann ab Zelle A19 geschrieben werden, usw.
Leider hat bis jetzt keiner meiner Ansätze halbwegs funktioniert kann mir wer bei der Lösung helfen
Private Sub CommandButton4_Click()
Sheets("Rechnung").Select
With Me.ListBox1
Range("A18:G18").ClearContents
Range("A18").Value = .List(.ListIndex, 0)
Range("B18").Value = .List(.ListIndex, 1)
Range("E18").Value = .List(.ListIndex, 2)
Range("G18").Value = .List(.ListIndex, 3)
Range("F18").Value = .List(.ListIndex, 4)
End With
End Sub
Das ist der aktuell übrig gebliebene Code der die daten Kopieren soll
Hier der Link zur Datei
https://www.herber.de/bbs/user/121636.xlsm
vielen Dank schon mal im Voraus
Markus