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.