ZΣhlknopf fⁿr Auswertungen anlegen
Fⁿr die Auswertung von Befragungen brauche ich einen ZΣhlknopf. Der soll beim Anklicken den Wert einer Zelle um eins erh÷hen. Bei meinen Versuchen entsteht immer ein Zirkelbezug. K÷nnen Sie mir weiterhelfen?
Eine L÷sung mit einem Funktionsaufruf verursacht an dieser Stelle immer einen Zirkelbezug, weil sich der neue Wert der Zelle auf den bisherigen beziehen muss. Mit einem kurzen VBA-Makro k÷nnen Sie dieses Problem jedoch umgehen. Aktivieren Sie die Formular-Werkzeuge mit dem Befehl ╗Ansicht | Symbolleisten | Formular½. Klicken Sie dort auf das Symbol ╗SchaltflΣche½. Im Tabellenblatt ziehen Sie nun mit der Maus eine SchaltflΣche der gewⁿnschten Gr÷▀e auf. Danach startet der Dialog ╗Zuweisen½. Im Feld ╗Makroname½ tragen Sie einen Namen fⁿr das Makro ein oder ⁿbernehmen den Programmvorschlag von Excel. Klicken Sie nun auf den Button ╗Neu½, um in den VBA-Editor zu gelangen. Fⁿgen Sie an dieser Stelle die folgenden drei Zeilen ein:
Range ("C5").Select
X=ActiveCell.Value
ActiveCell.Value=X+1
Der erste VBA-Befehl wΣhlt die gewⁿnschte Zelle im Tabellenblatt aus, in unserem Beispiel ist das C5. Anschlie▀end erhΣlt die Variable X den Wert der aktiven Zelle zugewiesen. Die letzte Zeile des Makros bestimmt den neuen Wert fⁿr die Zelle mit einer beliebigen Rechenoperation. Mit dem Befehl ╗Datei | Schlie▀en½ beenden Sie den VBA-Editor und gelangen wieder ins Tabellenblatt.
Ihr ZΣhlknopf ist nun bereits funktionsfΣhig. Klicken Sie mit der rechten Maustaste darauf, um den angezeigten Text und das Aussehen nach Belieben zu verΣndern.