Hallo,
ich habe versucht, nach der unten stehenden Formel aktive Zellen kurz einzufärben, was jedoch nicht funktioniert hat. Die Formel stammt aus einem Buch. Ich verwendete Excel2007. Kann jemand vielleicht mir sagen, wo ich falsch mache. Ich habe in der Arbeitsmappe einfach ein neues Modul eingefügt und die Formel eingetippt! Fehlen da evtl. irgendwelche Deklarationen…?
Vielen Dank im Voraus
erwinus
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim colortime, start
colortime = 0.3
start = Timer
Do While Timer
Grüezi Erwinus
ich habe versucht, nach der unten stehenden Formel aktive
Zellen kurz einzufärben, was jedoch nicht funktioniert hat.
Die Formel stammt aus einem Buch. Ich verwendete Excel2007.
Kann jemand vielleicht mir sagen, wo ich falsch mache. Ich
habe in der Arbeitsmappe einfach ein neues Modul eingefügt und
die Formel eingetippt! Fehlen da evtl. irgendwelche
Deklarationen…?
Nein, aber ich denke, der Speicherort ist nicht korrekt.
Bei diesem Code handelt es sich um einen Ereignis-Code, der beim Markieren von Zellen aufgerufen wird, er gehört daher ins Codemodul des Tabellenlbattes und nicht in ein allgemeines Modul:
- Rechtsklick auf den Reiter des Tabellenblattes unten am Bildschirm
- ‚Code anzeigen‘
- Hier den Code reinkopieren
- Mit ALT+F11 den VBA-Editor wieder schliessen
Nun rennt der Code jedesmal beim Markieren eines Bereiches in diesem Tabellenblatt.
–
Mit freundlichen Grüssen
Thomas Ramel
Vielen Dank für die Farbzuweisung 
)
Servus Thomas,
vielen vielen Dank. Es funzt wunderbar. Solche Feinunterschiede sind mir leider nicht bekannt 
( Mit Rechtsklick-Code wird mein VBA-Leben viel leichter sein.
Schönen Abend
erwinus