ersten wert ermitteln mit bedingung und eintragen
14.01.2016 11:43:01
usenussi
Ich möchte gerne eine Liste erstellen um den günstigsten Versand zu berechnen.
Die liste enthält ca. 15 verschiene Produkte in Kartons zwischen ca.21,2KG und 0,66Kg Die ich nach DHL staffel zusammenstellen möchte.Zb. 1 Paket bis 31,5KG dann 2Paket 31,5Kg usw. Pakete = Kundenbestellung sollen verteilt werden.
DHL Staffelung
1 KG 3,5
3 KG 3,8
5 KG 4,4
10 KG 5,3
20 KG 6,8
31,5 KG 7,9
PG GG PM Rest
Sorten Inhalt Gewicht Gew.gesamt Menge Paket Rest Pkt. 35KG Pkt. 35KG Pkt. 35KG
Artikel 1 4x5000ml 21,20 63,6 3 10,3 1 1 1
Artikel 2 10x1000ml 11,10 22,2 2
Artikel 3 12x500 ml 7,00 7 1
Artikel 4 12x310 ml 6,60 19,8 3
Artikel 5 12x310 ml 6,60 26,4 4
Artikel 6 12x600 ml 6,30 0
Artikel 7 12x290 ml 5,95 0
Artikel 8 12x500 ml 5,60 0
Artikel 9 12x310 ml 5,05 0
Artikel 10 12x310 ml 5,00 0
Artikel 11 12x200 ml 2,45 2,45 1
Artikel 12 12x200 ml 2,35 0
Artikel 13 10x50 ml 1,15 23 20
Artikel 14 10x50 ml 1,00 0
Artikel 15 0,43 0
Artikel 16 0,48 0
Artikel 17 0,66 6,6 10
0
Gesamt 164,45 10,3 10,3
Eventuel könnt Ihr ir helfen Durch excel Formeln oder VBA mit Schleifen.Ich versuche schon eine Woche mit VBA, aber es klappt nicht. Vielen Dank im voraus.
Meine bisherige Programierung,Leider nur die ersten beiden Zeilen lauten:
Sub Schleife_Quer() '31,5 KG Pakete werden angelegt wenn einzelpakete über 15,75 Kilo wiegen
Dim Spalte As Integer
Dim Zeile As Byte
Dim Paket As Integer
Dim Rest As Integer
Let Paket = Range("E11").Value 'Wert der Paket Bestellung für ein Artikel
For Zeile = 7 To 6 + Paket 'Rechnet wie oft ein 35 KG Paket benötigt wird
If Range("E11").Value >= 0 Then
Cells(10, Zeile).Value = "Pkt. 35KG"
Cells(11, Zeile).Value = 1
End If
Rest = Range("A8").Value - (Range("C11").Value * Range("G11").Value)
Range("F11").Value = Rest
Next Zeile
End Sub