ich habe in einer tabelle in spalte h verschiedene zahlen stehen, nun möchte ich über ein makro in spalte L das ergebnis durch eine multiplikation mit der zahl aus spalte h ermitteln, wenn bestimmte kriterien erfüllt sind:
0 bis 165 in h = 32,77 in L
166 bis 499 in h = zahl in h multipliziert mit 197,37/1000 in L
500 bis 1499 in h = zahl in h multipliziert mit 169,17/1000 in L
1500 bis 1999 in h = zahl in h multipliziert mit 82,47/1000 in L
größer 2000 in h = zahl in h multipliziert mit 72,90/1000 in L
habe das mit folgendem text versucht, was aber leider nicht funktioniert:
For Each rng In Range("H2:H" & Range("H65536").End(xlUp).Row)
Select Case rng
Case Else
If rng.Value > "0" And rng.Value < "165" Then
rng.Offset(0, 4) = "32,77"
ElseIf rng.Value >= "165" And rng.Value < "499" Then
rng.Offset(0, 4).FormulaR1C1 = "=RC[-4]*197,37/1000"
ElseIf rng.Value >= "499" And rng.Value < "1499" Then
rng.Offset(0, 4).FormulaR1C1 = "=RC[-4]*169,17/1000"
ElseIf rng.Value >= "1499" And rng.Value < "1999" Then
rng.Offset(0, 4).FormulaR1C1 = "=RC[-4]*82,47/1000"
ElseIf rng.Value >= "1999" Then
rng.Offset(0, 4).FormulaR1C1 = "=RC[-4]*197,37/1000"
End If
End Select
Next 'rng
bin für jeden tipp dankbar.
gruß,
stefan