blinkende Zelle

[Daniel L.]

Vielen vielen vielen Dank.
Bin so happy. Danke

[Daniel L.]

Hallo,

Habe da noch eine kleine Frage...
Gibt es eine Möglichkeit, dass die Zelle zu blinkenanfängt wenn die Excel-Datei geöffnet wird?

Gruß Daniel

[schauan]

Hallo Daniel,

das ist ganz einfach. Füge im VBA-Editor in DieseArbeitsmappe folgenden code ein:

Private Sub Workbook_Open()
Blinker
End Sub

[Daniel L.]

Hallo,

da kommt bei mir leider eine Fehlermeldung wenn ich dies einfüge (Sub oder Funktion nicht definiert). Habe ich da was falsch gemacht?

Gruß Daniel

[Daniel L.]

Hallo zusammen,

gibt es zudem noch die Möglichkeit mit der blinkende Zelle ein akkustisches Signal auszugeben, wie ein Klick beim Metronome?

Vielen Dank schon im Voraus für eure Antworten.

Gruß
Daniel

[RPP63]

Hallo!
1. Die Fehlermeldung aus #14 kommt nur, wenn Du die falsche Mappe gewählt hast.
2. Wenn Du einen PC-Speaker hast (Winz-Lautsprecher im Rechner), ist es einfach (per Beep):
(ich habe den Code noch ein wenig aufgeräumt)

Code:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" _
       (ByVal dwMilliseconds As Long)
Dim blBlinker As Boolean

Sub Blinker()
Dim aa As Variant

aa = Tabelle2.Range("E6").Value
blBlinker = True

Do While blBlinker
  Beep
  Cells(12, 4).Interior.ColorIndex = 3
  Sleep aa
  DoEvents
  Cells(12, 4).Interior.ColorIndex = xlNone
  Sleep aa
  DoEvents
Loop
End Sub

Wenn nicht (wie in vielen aktuellen Notebooks), dann wird es schwieriger!
Dann muss man über eine Windows-API gehen und ein Wave-File in der Schleife abspielen.

Aber: dieselbe Idee hatte ich gestern Abend auch, habe sie aus thermischen Gründen (nomen est omen) erst mal auf Eis gelegt ...  :19:

Mal schauen, ob ich da heute noch ran gehe ...

Gruß Ralf

[RPP63]

Hi again!
Weil ich das Projekt als durchaus sinnvoll erachte, habe ich mich mal gleich an die Arbeit gemacht.
Wichtig ist, dass sich Metronom_W.xlsm und 2.wav im selben Verzeichnis befinden.
Die Wave musste ich zippen, .wav ist hier nicht erlaubt.
Also erst entpacken und dann ins gleiche Verzeichnis wie die Excel-Datei verschieben.
Der Code:

Code:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
     (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Dim blBlinker As Boolean

Sub Blinker()
Dim aa As Variant

aa = Tabelle2.Range("E6").Value
blBlinker = True

Do While blBlinker
  Call sndPlaySound32(ThisWorkbook.Path & "\2.wav", 1)
  Cells(12, 4).Interior.ColorIndex = 3
  Sleep aa
  DoEvents
  Cells(12, 4).Interior.ColorIndex = xlNone
  Sleep aa
  DoEvents
Loop
End Sub

Viel Spaß! :21:

Ralf

[Daniel L.]

Hallo,

vielen vielen Dank.
Leider hört es sich ab einem Tempo von 250BPM holprig an (nicht gleichmässig)
Kann man da noch was machen?

Vielen Dank schon im Voraus.

Gruß

Daniel

[RPP63]

Nein, Daniel, der vorgreifende Dank ist überflüssig!
VBA ist eine Sprache, die die Anwendung (Application) steuern kann.
Mittels APIs (application programming interface) kann man den Funktionsumfang erweitern.
Wie Du gesehen hast, beschwert sich der "MaSter of the Universe", wenn man ihm die Kontrolle über sein BS entziehen will, die Routine crasht ...
Also gibt man ihm sein Recht mittels DoEvents.zurück.
Ich zitiere mal die VBA-Hilfe:

Führen Sie DoEvents auch dann nicht aus, wenn Sie nicht ausschließen können, daß andere Anwendungen in irgendeiner Weise eine Verbindung mit der Prozedur herstellen, während das Betriebssystem die Ausführung steuert.

Will heißen: Entweder "richtig" hardwarenah programmieren oder "Krüppel" wie das von mir vorgestellte Freeware-Programm oder auch mein API-Versuch.

Gruß Ralf

[Daniel L.]

Hallo Zusammen,

wenn ich nun zwei Mappen mit jeweils einer blinkenden Zelle offen habe und den Blinker starte dann nimmt er nur das Tempo von der zuerst geöffneten Mappe.
Gibt es eine Möglichkeit den Blinker für jede Mappe die Geschwinigkeit zuzuweissen ohne die andere Mappe schließen zu müssen? (Alle VBAs heissen bis jetzt Blinker)
Ich würde jedoch gerne den Blinker mit der gleichen Tastenkombination bei jeweils allen Mappen (nur die aktive; im Vordergrundstehende) an und ausschalten. 

Vielen Dank schon im Voraus für eure Antworten.

Gruß
Daniel