06.07.2015, 10:20
06.07.2015, 21:11
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
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
07.07.2015, 03:50
Hallo Daniel,
das ist ganz einfach. Füge im VBA-Editor in DieseArbeitsmappe folgenden code ein:
Private Sub Workbook_Open()
Blinker
End Sub
das ist ganz einfach. Füge im VBA-Editor in DieseArbeitsmappe folgenden code ein:
Private Sub Workbook_Open()
Blinker
End Sub
07.07.2015, 05:09
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
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
07.07.2015, 06:11
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
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
07.07.2015, 07:11
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)
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
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 SubWenn 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
07.07.2015, 07:39
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:
Viel Spaß! :21:
Ralf
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 SubViel Spaß! :21:
Ralf
07.07.2015, 09:36
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
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
07.07.2015, 17:09
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:
Gruß Ralf
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:
Zitat: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
09.07.2015, 06:30
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
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