Private Sub (ByVal Target As Excel.Range)
Dim Netto As Range
Dim Brutto As Range
If Target.Address = "$G$4" Then
Set Brutto = Range("G4")
Range("G8") = Brutto / 1.16
ElseIf Target.Address = "$G$8" Then
Set Netto = Range("G8")
Range("G4") = Netto * 1.16
Else: End
End If
Zahlwort ' Bruttobetrag als Zahlwort
End Sub
Wenn ich in die Zelle G4 eine Zahl schreibe, wird in der Zelle G8 der Nettobetrag ausgewiesen, schreibe ich nun in die Zelle G8 eine Zahl, errechnet Excel in der Zelle G4 den Bruttobetrag.
In der Zelle G10 soll der Bruttobetrag aus Zelle G4 als Zahlwort erscheinen (z.B. Einhundert 25/100) . Die Funktion hat den Namen Zahlwort (von Herbers CD). Das Zahlwort erscheint auch, aber nach ein paar Sekunden (beim Wechsel des Zellzei-gers) verschwindet das Zahlwort wieder und es erscheint die Fehlermeldung #WERT!
Wie kann ich das verhindern?
Bereits jetzt schon herzlichen Dank für die Hilfe.
Franz