Signalton

[kealfra]

Hallo,
Gibt es bei einem VBA-Makro in Excel aus Office 2007 eine Möglichkeit, ein bestimmtes Ereignis (z. B. das Erreichen einer bestimmten Zahl in einer For-Next-Schleife) durch einen Signalton kundzutun? Und bitte nicht (wie manche Leute ihre Intelligenz -oder ihren Humor?-dokumentieren müssen) einfach nur mit "JA" antworten, sondern angeben, wie man das programmiert. Ein einfaches "Beep" nimmt der Makro nämlich nicht zur Kenntnis.

Bis dann, keakfra

[maninweb]

Hallo,

das Beep müsste eigentlich funktionieren.

Code: Visual Basic

1. Sub test()
2.  
3.   Dim n As Long
4.  
5.   For n = 1 To 10000000
6.    
7.     Select Case n
8.    
9.       Case 5000000
10.        
11.         Beep
12.      
13.       Case Else
14.    
15.     End Select
16.    
17.   Next
18.  
19. End Sub

Gruß

[SekkiChrissi]

Das hat bei mir geklappt! Vielen Dank!

[kealfra]

Mallo maninweb,
Bei mir klappt das leider nicht. Es kommt kein Tönchen. Es wird zwar kein Fehler gemeldet, aber beim Durchgang im Einzelschrittverfahren wird das "Beep" ignoriert. Es wird einfach übersprungen.

Liegt es an meiner Uralt-Exel-Version? Das Verfahren mit "Select Case" ist mir nämlich auch noch nie untergekommen. Wenn ich den sog. Objektkatalog nach Beep durchsuche, taucht es in der Klasse "Interaction" auf. Was das bedeutet ist mir schleierhaft. Ich bin allerdings auch kein Profi in Sachen Makroprogrammierung.

mfg kealfra

[maninweb]

Hallo,

ist durchaus möglich, dass bei Deinem Rechner der Systemlautsprecher (der, der piepst, wenn man den Rechner anmacht)
nicht ansprechbar ist (Excel ruft m.W. eine Betriebssystemfunktion auf). Wenn also Beep in einer einfachen Sub nicht geht,
muss das nicht an Excel liegen. Was für ein Excel hast Du denn?

Gruß

[kealfra]

Hallo, Maninweb,

Allem Anschein nach hast Du recht. Bei mir piept es nicht. Wenn ich die angeschlossenen Lautsprecher wegschalte und den PC neu starte, ist Ruhe im Schiff. Es liegt also offensichtlich an meinem PC und nicht an meinem Excel 2007. Ich werde mal nachschauen, ob der Piepser im PC überhaupt angeschlossen ist.

mfg kealfra

[gmg-cc]

Moin,

vielleicht hilft dir ja der Ansatz aus diesem Link.