Vorzeit Blattwechsel bei Betätigung der Leertaste
22.08.2003 18:07:58
Fritz
mit Hilfe vieler netter Excel-Experten in diesem Forum habe ich mich an das Thema VBA gewagt und letztlich die nachfolgend
beschriebene Ausgangssituation geschaffen. In einer Excel-Arbeitsmappe wird mittels der beigefügten Prozeduren zunächst
immer das Blatt "Tabelle1" aufgerufen und dabei die Sounddatei "Sound1.wav"
15 Sek. lang abgespielt. Danach wird das Blatt "Tabelle2" aufgerufen.
Wie muss ich jetzt bewerkstelligen, dass bei Betätigung der Leertaste (oder auch ESC) das Abspielen der WAV-Datei und der
Wechsel des Tabellenblatts vorzeitig erfolgt.
Ich hoffe, dass ihr mir auch hier helfen könnt und bedanke mich bereits an dieser Stelle für eure Anregungen.
Gruß Fritz
Option Explicit
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Worksheets("Tabelle1").Activate
Application.ScreenUpdating = True
Call PlayWAV
End Sub
Dim WAVFile As Variant
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Sub PlayWAV()
On Error GoTo ERRORHANDLER
WAVFile = "sound1.wav"
'WAVFile = ThisWorkbook.Path & "\ico_wav_mid\" & WAVFile
WAVFile = ThisWorkbook.Path & "\" & WAVFile
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Application.OnTime Now + TimeValue("00:00:15"), "Wechseln"
End
ERRORHANDLER:
MsgBox "Bitte Pfad und Namen der WAV-Datei anpassen!"
End Sub
Sub Wechseln()
If ActiveSheet.Name <> "Tabelle2" Then Worksheets("Tabelle2").Activate
End Sub