Hallo an alle

Ich habe das Makros Progamm hier Bekommen. habe das Programm mehr mal´s Kopiert für Zelle G3;G4;G5;G6;G7.

Für Zelle G3

Sub Miete()
If Range("G3") = 500 Then
Range("G3") = 0
Else
Range("G3") = 500
End If
End Sub

Frage: Gibt es noch ein Makro Programm, wo in zelle O4 zusammen gerechnet wir und wenn ich dann in Zelle ("G3") 500 stehen habe zieht das makros Proramm dann von O4 der gesamten summe die 500 ab?

z.B.: Habe ich mit einem Makro Programm dann in
Zelle ("G3") = 0(500)
Zelle ("G4") = 0(30)
Stehen.
Dann soll in O4 = 530 stehen
Steht aber in Zelle ("G3") = 500 anstadt 0
Dann soll in O4 von denn 530, 500 abgezogen werden so das dann nur noch 30 in O4 Stehen

MfG Frank