mit dem Sub ändern möchte ich den Wert der Zelle A1 ändern. Wenn dort FALSCH steht, soll WAHR eingetragen werden, wenn dort WAHR steht, FALSCH. Also immer genau umgekehrt. Das mach mein
Sub auch ganz brav. Aber irgendwie kommt mir das total umständlich vor!!! Wer kann mir eine einfachere Lösung für dieses Problem geben.
Sub ändern
dim zellwert as boolean
Range("a1").Select
zellwert = ActiveCell.Value
ActiveCell.Value = zellwert = False
End Sub
Brauche ich immer zwei Zeilen? Eine zum aktivieren der Zelle und eine um den Wert einzutragen, oder geht das auch in einer Zeile? Geht es auch ohne die Hilfsvariable zellwert?
Ich habe das dazugehörige Programm auch hauptsächlich geschrieben um VBA zu lernen/üben und nicht um es nachher viel anzuwenden (ist ein kleines Spiel). Daher bin ich an besserem Code sehr interessiert.
Danke schon jetzt
Cirrus