Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Userform bei "Betätigung" aufleuchten lassen
#1
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
Antworten Top
#2
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • McArthur1
Antworten Top
#3
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
Antworten Top
#4
Hallo,

Zitat: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
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
[-] Folgende(r) 1 Nutzer sagt Danke an Käpt'n Blaubär für diesen Beitrag:
  • McArthur1
Antworten Top
#5
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • McArthur1
Antworten Top
#6
Wink 
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
Antworten Top
#7
Hallo,

(19.03.2017, 21:26)McArthur1 schrieb: Laufzeitfehler '424': Objekt erforderlich.

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

Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • McArthur1
Antworten Top
#8
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
Antworten Top
#9
Hallo Arthur,

(20.03.2017, 12:32)McArthur1 schrieb: 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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • McArthur1
Antworten Top
#10
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste