Wert einer Zelle abwechselnd ändern

Moderator: ModerationP

Wert einer Zelle abwechselnd ändern

Beitragvon dino33 » 17. Mai 2022, 23:23

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
dino33
Neuling
 
Beiträge: 1
Registriert: 17. Mai 2022, 23:14

Re: Wert einer Zelle abwechselnd ändern

Beitragvon Gast » 18. Mai 2022, 05:34

Hallo,

so sollte es gehen:

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

Gruß Pit
Gast
 

Re: Wert einer Zelle abwechselnd ändern

Beitragvon DerHoepp » 18. Mai 2022, 08:43

Moin,

oder ohne iif:
Code: Alles auswählen
Range("B2").Value = Abs(Range("B2").Value-1)


Viele Grüße
derHöpp
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 10402
Registriert: 14. Mai 2013, 11:08

Re: Wert einer Zelle abwechselnd ändern

Beitragvon HKindler » 18. Mai 2022, 08:49

Hi

oder auch
Code: Alles auswählen
Range("A1") = -Not CBool(Range("A1"))
Gruß,
Helmut

----------------------------
Windows 10 Enterprise (64 Bit) / Office 365 ProPlus (32 Bit)
Benutzeravatar
HKindler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 7198
Registriert: 04. Jul 2013, 09:02
Wohnort: Schwarzwald

Re: Wert einer Zelle abwechselnd ändern

Beitragvon Gast » 18. Mai 2022, 20:40

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


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: maik@boettcher.blue und 37 Gäste