Hallo zusammen,
es ist mein erster Beitrag den ich hier schreibe. Habe aber das Forum schon oft als Unterstützung aufgesucht.
Hier erstmal ein großes Lob denn ich habe viele gute Tipps und Codes gefunden.
Zu meinem Problem:
Ich habe eine UF mit einer LiBo. In dieser LiBo lasse ich mir in 10 Spalten anzeigen. 3 Dieser Spalten müssen allerdings berechnet werden. Ich komme mit der Berechnung aber leider nicht weiter :-(
Hier einmal der Code, den ich schon habe. In den Zeilen ist auch eine kurze Beschreibung der Aufgabe:
With Me.ListBox1
.ColumnCount = 10
.ColumnHeads = False
.Font.Size = 9
.ColumnWidths = "100;36;60;40;200;40"
End With
With Worksheets("DataBase LS")
lLetzte = .Cells(Rows.Count, 2).End(xlUp).Row
For lZeile = 2 To lLetzte
If .Cells(lZeile, 1) = "" Then Exit For
If .Rows(lZeile).Hidden = False Then
ListBox1.AddItem
ListBox1.List(lLibox, 0) = .Cells(lZeile, 22).Value 'Art.-Nr.
ListBox1.List(lLibox, 1) = .Cells(lZeile, 13).Value 'Art.-Bez
ListBox1.List(lLibox, 2) = .Cells(lZeile, 10).Value 'Liefermenge
ListBox1.List(lLibox, 3) = 'Anzahl Flaschen (Liefermenge * Application.WorksheetFunction.VLookup(UserForm1.TextBox1.Text, Worksheets("DataBase Art").Range("E2:AX100000"), 6, 0)
ListBox1.List(lLibox, 4) = 'Flaschen €/Stk = "Flaschen € Gesamt" / "Anzahl Flaschen"
ListBox1.List(lLibox, 5) = .Cells(lZeile, 24).Value 'Flaschen € Gesamt
ListBox1.List(lLibox, 6) = 'Träger €/Trg = "Träger € Gesamt" / "Liefermenge"
ListBox1.List(lLibox, 7) = .Cells(lZeile, 25).Value 'Träger € Gesamt
ListBox1.List(lLibox, 8) = .Cells(lZeile, 10).Value 'Paletten €/Stk
ListBox1.List(lLibox, 9) = .Cells(lZeile, 26).Value 'Paletten € Gesamt
lLibox = lLibox + 1
End If
Next
End With
Ich schaffe es einfach nicht die Spalten zu multiplizieren und den Wert auszugeben. Bei einer Spalte ist die Besonderheit, dass sich die Spalte zur Berechnung auch einen Wert über VLookup suchen muss.
Ich bitte um Hilfe und Anregungen.
Besten Dank
Patrick