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
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
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
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
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
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
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
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
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
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