Userform bei "Betätigung" aufleuchten lassen

[McArthur1]

Hallo liebe Community,
Ich hoffe Ihr könntet mir bei meinem Problem weiterhelfen. Und zwar bin Ich dabei, ein Auswertungstool für einen Fragebogen über Excel zu erstellen. Dafür habe Ich eine Vorlage des Fragebogens in Excel eingefügt und mehrer Userformen angelegt, welche Ich über die verschiedenen Auswahlmöglichkeiten gelegt habe. Wenn man jetzt ein Feld anklickt, wird in einer Zelle mitgezählt, wie oft man dieses Feld schon betätigt hat. Nun ist meine Frage ob es noch die Möglichkeit gibt, dass sobald man das Auswahlfeld betätigt, dieses kurz aufleuchtet, sodass man im Endeffekt deutlich sieht, welches Feld man "angeklickt" hat?
Ich kenne mich dabei mit VBA noch nicht so gut aus :D.
Den Code den Ich bisher verwende, lautet folgenderweise:

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

Viele Grüße 
McArthur1

[Kuwer]

Hallo,

vielleicht geht das so?

Private Sub MeinDrehfeldUp()
 Dim lngBackColor As Long
 
 lngBackColor = MeinDrehfeld.BackColor
 MeinDrehfeld.BackColor = RGB(0, 200, 0)
 ActiveSheet.Cells(1, 1).Value = _
 ActiveSheet.Cells(1, 1).Value + 1
 Application.Wait Now + TimeSerial(0, 0, 1)  '1 Sekunde Pause
 MeinDrehfeld.BackColor = lngBackColor
End Sub

Gruß Uwe

[McArthur1]

Hallo Kuwer,
Danke für die schnelle Antwort.
Leider wird mir angezeigt, sobald Ich das Textfeld anklicke, dass das Makro in dieser Arbeitsmappe wohl nicht verfügbar ist. 
Ich habe den Code einfach als neues Modul im Dokument angelegt, allerdings kommt trotzdem ständig diese Fehlermeldung.

Viele Grüße

McArthur1

[Käpt'n Blaubär]

Hallo,

Ich habe den Code einfach als neues Modul im Dokument angelegt, allerdings kommt trotzdem ständig diese Fehlermeldung.

da gehört es auch nicht hin. Es gehört hinter das Tabellenblatt, in dem es wirken soll

Später:
... bzw. gehört es, wie Uwe gerade verraten hat, in das UserForm

[Kuwer]

Hallo,

das Makro war auch nur mal so ins Blaue geschrieben, da ich die genauen Gegebenheiten ja nicht kenne.
Konkret bezieht es sich auf ein Drehfeld in einem Userform, weshalb es da dann auch stehen müsste.

Gruß Uwe

[McArthur1]

Hallo,

also soweit hab Ich es jetzt hinbekommen, dass das Makro angezeigt wird. Nur wenn Ich dieses der Textform zuweise und drauf klicke kommt die Meldung:

Laufzeitfehler '424': Objekt erforderlich.

Dabei wird mir daraufhin die dritte Zeile gelb hinterlegt:

Public Sub MeinDrehfeldUp()
 Dim lngBackColor As Long
 
 lngBackColor = MeinDrehfeld.BackColor
 MeinDrehfeld.BackColor = RGB(0, 200, 0)
 ActiveSheet.Cells(1, 1).Value = _
 ActiveSheet.Cells(1, 1).Value + 1
 Application.Wait Now + TimeSerial(0, 0, 1)  '1 Sekunde Pause
 MeinDrehfeld.BackColor = lngBackColor
End Sub

Viele Grüße

McArthur1

[Kuwer]

Hallo,

Laufzeitfehler '424': Objekt erforderlich.

dann ersetze MeinDrehfeld mit dem Namen des Objektes, dass Du blinken lassen willst. ;)

Gruß Uwe

[McArthur1]

Hallo,
also Ich habe jetzt den Namen von MeinDrehfeld in "Textfeld_2" geändert. Allerdings kommt immer noch die selbe Fehlermeldung. 
Woran könnte das den noch liegen?


Viele Grüße 

McArthur1

[Kuwer]

Hallo Arthur,

Hallo,
also Ich habe jetzt den Namen von MeinDrehfeld in "Textfeld_2" geändert. Allerdings kommt immer noch die selbe Fehlermeldung. 
Woran könnte das den noch liegen?

magst Du nicht Deine Datei zeigen?
Da ich leider nicht über hellseherische Fähigkeiten verfüge, wäre ich sonst hier raus.

Gruß Uwe

[McArthur1]

Hallo Kuwer,
die Datei kann Ich ehrlich gesagt schlecht zeigen, da dort persönliche Informationen vorhanden sind. Ich könnte allerdings ein kleines Beispiel vielleicht aufbauen, damit man besser erkennt, was Ich vorhabe, falls das weiterhelfen würde.
Ansonsten habe Ich an sich kein Problem damit, den Code einzufügen. Mir ist nur unklar, weshalb dort immer die Fehlermeldung '424' kommt.
Ich freue mich über deine Antwort.

Viele Grüße

McArthur1