Wert einer Zelle abwechselnd ändern

[dino33]

Hallo ihr Experten!
Ich habe eine kleines Problem wo sich hoffentlich ein Retter findet.
Ich möchte eine Zelle in einer Tabelle in VBA beim ausführen eines Makros den Wert wenn der 0 ist auf 1 setzten und wenn wert auf 1 ist dann auf 0 setzte und beim nächsten ausführen des Makros wieder den gegenteiligen Wert setzt.
In der Tabelle mit Eingabe des Code funktioniert es aber ich bräuchte das in VBA.
LG Günter

[Gast]

Hallo,

so sollte es gehen:

Sub STATUS()
Range("B2").Value = IIf(Range("B2").Value = 1, 0, 1)
End Sub

Gruß Pit

[DerHoepp]

Moin,

oder ohne iif:

Code: Alles auswählen

Range("B2").Value = Abs(Range("B2").Value-1)

Viele Grüße
derHöpp

[HKindler]

Hi

oder auch

Code: Alles auswählen

Range("A1") = -Not CBool(Range("A1"))

[Gast]

Hallo!
Danke für die rasche Hilfe. Es ist genau das was ich gesucht habe. Es funkt perfekt. Vielen vielen Dank
LG Günter