Clever-Excel-Forum

Normale Version: Transparenter Zähler/Drehfeld mit Excel erstellen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo,  :19:
dies ist mein erster Beitrag in diesem Forum.

Meine Frage ist:
Ich muss einen Fragebogen mit Hilfe von Excel auswerten und hatte mir dafür überlegt ein Bild dieses Fragebogens in Excel als Vorlage einzufügen und dann mit Hilfe einer beliebigen Form (zB. Rechteck mit keiner Füllung (Transparent)) und Makros ein Drehfeld selber zu erstellen, welches Ich dann über die verschiedenen Auswahlmöglichkeiten lege. Sobald Ich dann dabei auf eine Auswahlmöglichkeit klicke, soll in einer anderen Zelle mitgezählt werden wie oft Ich schon auf dieses Feld geklickt habe. Allerdings kenne Ich mich im Bezug auf Makros eigentlich noch gar nicht aus.
Als Ich im Internet dabei gegoogelt habe, konnte Ich folgenden Code entdecken:


Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

 ActiveCell.Activate

 Me.Range("A1").Value = Me.Range("A1").Value + 1

Wenn Ich diesen allerdings einfüge, wird mir immer angezeigt, dass der Makro in dieser Arbeitsmappe nicht verfügbar wäre.
Ich hoffe Ihr könntet mir mit meinem "kleinen" Problem weiterhelfen :)
Hallo,

der Code, den Du gepostet bzw. gefunden hast, bezieht sich auf ein ActiveX-Steuerelement. Du möchtest jedoch ein Rechteck bzw.
eine AutoForm verwenden, da ist das etwas einfacher. Lege Dir ein zunächst neues Modul an, indem Du im VBA-Editor (Alt+F11)
den Befehl  Einfügen / Modul wählst. Dann füge dort diesen Code ein...

Code:
Public Sub MeinDrehfeldUp()
  
  ActiveSheet.Cells(1, 1).Value = _
  ActiveSheet.Cells(1, 1).Value + 1
  
End Sub

Erstelle Dir ein Rechteck in einer Tabelle und klicke Dein Rechteck mit rechter Maustaste an sowie weise das Makro dem Rechteck 
über das Kontextmenü "Makro zuweisen..." zu. Das Makro schreibt dann in Zelle A1 den Wert A1+1 in die Tabelle rein, die gerade
aktiv ist.

Gruß
Danke :D, hat mir wirklich weitergeholfen :)