Schaltflächen zum Addieren
08.04.2003 18:20:31
Burkhard
ich habe eine Tabelle, die ich zur Auswertung von Fragebögen benutzen möchte. Dazu legte ich Schaltflächen an, die dann per Macro entsprechend eine Zelle um den Wert 1 erhöhen.
Bsp:
Sub s1()
Range("C5").Value = Range("C5").Value + 1
End Sub
Das ist bei 3 Spalten und 4 Zeilen kein Problem, da es nur 12 Macros sind. Was kann ich jedoch machen, wenn ich in 4 Spalten und 34 Zeilen Schaltflächen brauche ???
(ausser 136 Macros zu schreiben ;-))) )
Vielen Dank im Voraus.
Anzeige