Es geht um folgendes Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Steuersatz
Steuersatz = Range("G7").Value ' In G7 steht der Steuersatz z.B. 16%
If Target.Address = "$G$4" Then ' In G4 steht der Nettobetrag
Range("G8").Value = Range("G4") / (100 + Steuersatz) * 100
ElseIf Target.Address = "$G$8" Then ' In G8 steht der Bruttobetrag
Range("G4").Value = Range("G8") * (100 + Steuersatz) / 100
Else
Exit Sub
End If
End Sub
Das obige Makro funktioniert zwar, aber es durchläuft offensichtlich jede Menge Schleifen.
Wie kann ich erreichen, dass das Makro die Schleife genau einmal durchläuft und dann stoppt.
Bereits jetzt schon herzlichen Dank für die Hilfe.
Franz