Umrechnung
09.03.2008 09:53:32
ottgunter
Ich habe vor ein paar Tagen diese Lösung bekommen. Ich möchte jetzt gerne, das ich diese umrechnung im Zellenbereich AP4:AP40 durchführen kann.
Gruß Gunter
Private Sub Worksheet_Change(ByVal Target As Range)
'Beispiel für Zelle A1
If Target.Address Range("A1").Address Then Exit Sub
Application.EnableEvents = False
Range("A1") = Range("A1") / 1.325
Application.EnableEvents = True
End Sub