|
hi an alle,
ich habe noch nich all zu viel erfahrung mit vba und soll eine preiszuordnung mit anschließender berechnung durchführen.
ich weiß nur nur nich wie ich aus der zuornungstabelle die preise zur berechnung überführe.kann mir da jemand nen tip geben???
Function p_staffel(menge%)
Dim preis!, summe!, i%
Dim anzahl(1 To 20, 1 To 2) As Single
anzahl(1, 1) = "1": anzahl(1, 2) = 2
anzahl(2, 1) = "2": anzahl(2, 2) = 2
anzahl(3, 1) = "3": anzahl(3, 2) = 2
anzahl(4, 1) = "4": anzahl(4, 2) = 2
anzahl(5, 1) = "5": anzahl(5, 2) = 2
anzahl(6, 1) = "6": anzahl(6, 2) = 1.8
anzahl(7, 1) = "7": anzahl(7, 2) = 1.8
anzahl(8, 1) = "8": anzahl(8, 2) = 1.8
anzahl(9, 1) = "9": anzahl(9, 2) = 1.8
anzahl(10, 1) = "10": anzahl(10, 2) = 1.8
anzahl(11, 1) = "11": anzahl(11, 2) = 1.6
anzahl(12, 1) = "12": anzahl(12, 2) = 1.6
anzahl(13, 1) = "13": anzahl(13, 2) = 1.6
anzahl(14, 1) = "14": anzahl(14, 2) = 1.6
anzahl(15, 1) = "15": anzahl(15, 2) = 1.6
anzahl(16, 1) = "16": anzahl(16, 2) = 1.6
anzahl(17, 1) = "17": anzahl(17, 2) = 1.6
anzahl(18, 1) = "18": anzahl(18, 2) = 1.6
anzahl(19, 1) = "19": anzahl(19, 2) = 1.6
anzahl(20, 1) = "20": anzahl(20, 2) = 1.6
If menge = anzahl(20, 1) Then
preis = anzahl(20, 2)
Else
preis = 1.4
End If
summe = menge * preis
p_staffel = summe
'wie geb ich hier den preis extra (eigene zelle) aus
End Function
die menge soll eingegeben werden, preis zu geordnet werden, anschließend die summe berechnet und zum schluß
menge, preis und summe ausgegeben werden....
für profis glaub ich nen kinderspiel...
danke
|