Visual Basic Forum

vba-neuling · Newbie Anmeldedatum: 17.01.2011 Beiträge: 1

hi an alle,

ich habe noch nicht all zu viel erfahrung mit vba und soll eine preiszuordnung mit anschließender berechnung durchführen.

ich weiß nur nur nicht wie ich aus der zuordnungstabelle 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

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 565

hi

is doch kein problem... mit einer forschleife ist das leicht zu lösen

for i = 1 to 20
If menge = anzahl(i, 1) Then
preis = anzahl(i, 2)
exit for
Else
preis = 1.4
End If
next

summe = menge * preis

p_staffel = summe

'wie geb ich hier den preis extra (eigene zelle) aus
cells(10,2) = preis 'in zelle ausgeben

End Function

lg Deepack