beliebige Zelle blinken lassen

[Wolf06]

Hallo, ich möchte in meiner Excel-Tab beliebige
Zellen blinken lassen (auch mehrere gleichzeitig)
und bei Bedarf das Blinken wieder (einzeln) deaktivieren.
Da ich keine Ahnung vom Makroschreiben habe, kann die von
mir bisher gefundenen Beiträge nicht so ändern, dass es für mich passt.
Meine Vorstellung:
Cursor auf Zelle, Strg + b und Zelle blinkt rot!
Cursor auf Zelle, Strg + x und Zelle ist wieder Standard.

Vielen Dank
Wolf06

[Gast 123]

Hallo

da gibt es fertige Mkros, hier ein Link zu Hajos Excelwelt blinkende Zelle:   Ansonstn mal şm ınternet googeln, da gibt es genug Tipps
http://hajo-excel.de/vba_blinken_formeln_doppel.htm

mfg  Gast 123

[Wolf06]

Hallo Gast 123,

ich habe das Netz durchsucht, aber alles was ich gefunden habe,
ist für mich nicht zu gebrauchen.
Es blinken zwar immer Zellen, aber es sind meist bestimmte Zellen,
die dann blinken, wenn eine Bedingung erfüllt wird.

MfG
Wolf06

[Helvetier]

Hallo Wolf
Da ist etwas zum spielen ... viel mehr ist das nicht. Bitte in einem Modul ablegen, die Tastenkombinationen aktivieren, eine oder mehrere Zellen oder auch Zellbereiche markieren und starten. Stoppen mit Ctrl+x in einer beliebigen Zelle.
Gruss

Code:

Option Explicit
Public strAktiveZelle As String
Public b
Sub BlinkenEin()
    ' Tastenkombination: Strg+b
    b = 1
    strAktiveZelle = Selection.Address
    MarkierteZellenBlinken
End Sub
Sub BlinkenAus()
    ' Tastenkombination: Strg+x
    b = 0
    MarkierteZellenBlinken
End Sub
Sub MarkierteZellenBlinken()
    Dim t As Date
    Dim m
    Dim Farbe
    Dim Schrift
    t = Now + TimeValue("00:00:01")
    m = Format(Now, "ss")
    If strAktiveZelle = "" Then Exit Sub
    If m Mod 2 = 0 Then
        Farbe = xlNone
    Else:
        Farbe = 255
    End If
    Range(strAktiveZelle).Interior.Color = Farbe
   
    If b = 1 Then
        'blinken Ein
        Application.OnTime t, "MarkierteZellenBlinken"
    Else
        'blinken Aus
        Range(strAktiveZelle).Interior.Color = xlNone
        strAktiveZelle = ""
    End If
End Sub

[Wolf06]

Hallo Helvetier,

vielen Dank für Deine Rückmeldung. Leider bekomme ich
im VBA-Editor die Fehlermeldung Variable ist nicht definiert,
gemeint ist das a. Wie kann ich a definieren?

Gruß
Wolf

[Kuwer]

Hallo Wolf,

Leider bekomme ich
im VBA-Editor die Fehlermeldung Variable ist nicht definiert,
gemeint ist das a. Wie kann ich a definieren?

bitte verrate doch mal, welches a genau gemeint ist.

Gruß Uwe

[Helvetier]

Leider bekomme ich
im VBA-Editor die Fehlermeldung Variable ist nicht definiert,
gemeint ist das a.

Ja klar, ich habe das Problem auch erkannt. a war in einem andern Modul verwendet und definiert. Ich habe dann in unserer Prozedur a ersetzt durch b und  in unserem Modul b als Public definiert. Denn Code habe ich ausgewechselt. Du warst aber etwas zu schnell. Also nimm bitte das was oben steht.
Gruss

[Wolf06]

Hallo Wolf,


bitte verrate doch mal, welches a genau gemeint ist.

Gruß Uwe

Hallo Uwe,

danke für Deine Nachfrage. Dadurch ist mir gerade aufgefallen,
dass es im "Original" keine Variable a gibt. Ich kann nicht mehr
nachvollziehen, - da ich ja nur kopiert habe - wie ich zu dem a gekommen
bin.
Jetzt tut das Makro, was es tun soll!

Nochmal vielen Dank an Helvetier
und allen ein schönes Wochenende.
Gruß
Wolf

[Wolf06]

Ja klar, ich habe das Problem auch erkannt. a war in einem andern Modul verwendet und definiert. Ich habe dann in unserer Prozedur a ersetzt durch b und  in unserem Modul b als Public definiert. Denn Code habe ich ausgewechselt. Du warst aber etwas zu schnell. Also nimm bitte das was oben steht.
Gruss

Das erklärt mir, wie sich das a "einfach so" in ein b verwandeln konnte.
Der Mensch ist ja nie zufrieden:
Leider kann immer nur eine Zelle blinken lassen, was schon mal sehr gut ist!
Perfekt wäre es für mich, wenn ich beliebig viele Zellen, zu beliebigen Zeitpunkten,
einzeln aktivieren bzw. deaktivieren könnte.
Gruß
Wolfgang

[Helvetier]

Hallo Wolf
Was Du möchtest, geht natürlich! Vorgehen: Beispiel: setze den Cursor in F4+Ctrl gedrückt halten > G7 > H8 > Ctrl los lassen > Ctrl+b.
Du wirst sehen, dass Du ganze Bereiche markieren und blinken lassen kannst.
Zum stoppen kann der Cursor in irgend einer Zelle stehen > Ctrl+x.

Nachtrag: Oder meinst Du: zu bereits blinkenden Zellen / blinkenden Bereichen weitere hinzuschalten? Sollte dann auch das Abschalten "stufenweise" geschehen?
Gruss