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
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
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
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
Hallo Wolf,
(19.08.2017, 11:17)Wolf06 schrieb: [ -> ]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
(19.08.2017, 11:17)Wolf06 schrieb: [ -> ]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
(19.08.2017, 11:24)Kuwer schrieb: [ -> ]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
(19.08.2017, 11:45)Helvetier schrieb: [ -> ]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
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