Formeln mit Case "..." in Zellen eintragen
22.09.2016 16:37:44
Fingayn
Ich hab eine Frage und zwar versuche ich über eine Case "..." Funktion bestimmte Rechnungen abhängig von anderen Zelleninhalten in eine Spalte einzutragen. Mein Cod sieht im Moment folgendermaßen aus:
Dim v As Integer, GP As Variant
For v = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Select Case Cells(v, 10)
Case "Position"
Select Case Cells(v, 7)
Case ""
GP = "0"
Case "?ei ?edarf"
GP = "=Cells(v, 12) * Cells(v, 14)"
Case "laufend"
GP = "=Cells(v, 12) * Cells(v, 14)"
Case "?ierteljährlich"
GP = "=Cells(v, 12) * Cells(v, 14) / 0.25"
Case "?albjährlich"
GP = "=Cells(v, 12) * Cells(v, 14) / 0.5"
Case "1/4 ?ährlich"
GP = "=Cells(v, 12) * Cells(v, 14) / 0.25"
Case "1/2 ?ährlich"
GP = "=Cells(v, 12) * Cells(v, 14) / 0.5"
Case "?ährlich"
GP = "=Cells(v, 12) * Cells(v, 14) / 1"
Case "*2*"
GP = "=Cells(v, 12) * Cells(v, 14) / 2"
Case "*3*"
GP = "=Cells(v, 12) * Cells(v, 14) / 3"
Case "*4*"
GP = "=Cells(v, 12) * Cells(v, 14) / 4"
Case "*5*"
GP = "=Cells(v, 12) * Cells(v, 14) / 5"
Case "*6*"
GP = "=Cells(v, 12) * Cells(v, 14) / 6"
Case "*10*"
GP = "=Cells(v, 12) * Cells(v, 14) / 10"
Case "*12,5*"
GP = "=Cells(v, 12) * Cells(v, 14) / 12.5"
Case "*25*"
GP = "=Cells(v, 12) * Cells(v, 14) / 25"
End Select
Case "Bedarfsposition"
GP = "0"
End Select
With Cells(v, 15)
.Formula = GP
End With
Next v
Kann mir jemand sagen, wie ich diesen Code so schreibe, dass er die gewünschten Rechnungen so in die Tabelle einfügt, dass man im Nachhinein etwas in der Spalte 14 einfügt und sich der Wert in Spalte 15 dann ändert? Also wie eine ganz normale z.B. "=SUMME()" Funktion es normalerweise tut?!
Wahrscheinlich stehe ich einfach nur total auf dem Schlauch aber nach zwei Stunden Zähneausbeißen und Recherche bin ich immernoch nicht weiter... :-/
Ich danke schonmal für eure Hilfe. Würde mich riesig freuen und mir mega helfen:-)
LG Lars
Anzeige