In einem Kalender bestimmte Zellen (Termine) blinken lassen

[Flotter Feger]

Hallo,

der MausDoppelKlick hat die Strg-Taste nicht akzeptiert.


Ich musste daher das Ein- und Ausschalten des Blinkens, auf Strg+MausRechtsKlick legen.
Der normale MausRechtsKlick, ohne Strg-Taste funktioniert noch immer und öffnet das Cells-Menu.

Gelbe Zellen blinken in Rot
Blaue Zellen blinken in Grün
Schwarze Zellen blinken in Weiß
Die Roten Zellen vom Wochenende blinken in Gelb - falls du die überhaupt brauchst.
Die Blink-Farben, kannst du jederzeit ändern.

Code:

'Kalender-Farben
Const Color1 As Long = rgbYellow    'Gelb
Const Color2 As Long = 8388608      'Blau
Const Color3 As Long = rgbBlack     'Schwarz
Const Color4 As Long = rgbRed       'Rot
'Blink-Farben
Const ColorG As Long = rgbRed       'Rot
Const ColorB As Long = rgbGreen     'Grün
Const ColorS As Long = rgbWhite     'Weiß
Const ColorR As Long = rgbYellow    'Gelb

  Muster_Sabina.xls (Größe: 410 KB / Downloads: 4)
Sabina

[Wolf-one]

Hallo Sabina,
vielen, vielen Dank für Deine Mühe. Ich habe gerade erst gesehen,
dass Du schon vor einigen Tagen geantwortet hast.
Möglicherweise mache ich etwas falch?! Wenn ich mit rechter Maustaste
doppelklicke passiert erst nichts, dann bekomme ich immer eine Fehlermeldung (siehe Anhang).
Vielleicht hast Du ja noch eine Idee...
HG
Wolf-one

[Flotter Feger]

Du must die API auf 64Bit umstellen - seltsam nur, dass es Office2010 gar nicht in 64Bit gibt.

Versuch mal so ...

Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

[Wolf-one]

Okay ich habe die Zeile duch
Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
ersetzt.
Nun bekomme ich keine Fehlermeldung mehr, aber Strg + Doppelklicken hat keine Wirkung...

[Wolf-one]

Hallo Sabina,
ich weiß nicht warum, aber jetzt bekomme ich blinkende Zellen.
Es funktioniert genau so, wie ich es mir vorgestellt habe.
Damit kann ich wichtige Termine nun einfacher erkennen.
Hab herzlichen Dank.
VG
Wolf-one

[Flotter Feger]

Gern geschehen ...