KW in Ps umrechnen oder umgekehrt
18.04.2003 17:43:12
Werner
Ich gebe in die Zelle A3 die PS ein oder in die Zelle B3 die KW.
Es soll dann je nach Eingabe in der anderen Zelle der berechnete Wert stehen. Dazu hab ich folgendes Makro gemacht. Leider funktioniert es nicht - es produziert einen Zirkelbezug, da es in beide Zellen (A3 und B3) die Formel einträgt, trotz meiner 2 IF-Bedingungen.
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$3" And Target.Address <> "$B$3" Then Exit Sub
If Target.Address = "$A$3" Then Call PS
If Target.Address = "$B$3" Then Call KW
End Sub
Sub PS()
Range("B3").FormulaR1C1 = "=RC[-1]/1.36"
End Sub
Sub KW()
Range("A3").FormulaR1C1 = "=RC[+1]*1.36"
End Sub
Kennt jemand eine Lösung für mein Problem.
Besten Dank - Werner