Sound-Makro in Makro integrieren
25.12.2013 09:36:50
Howard
Hallo,
habe ein Makro, das wie folgt aufgebaut ist:
Sub Name()
Dim a as Range
Do
if
elseif
elseif
elseif
else
End If
Loop until ....
Range("C10") = ""
End Sub
Nun möchte ich, daß nachdem das Makro am Ende die Zeile Range("C10") = ""
abgearbeitet hat, ein Sound erklingt. Recherche im Forum ergab folgenden
Code:
Option Explicit
Declare
Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA"
_ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub Abspielen()
Call sndPlaySound32("c:\sound\sound.wav", 0)
End Sub
Wenn ich versuche das zweite Makro in das erste einzubauen, kommt jedesmal
eine Fehlermeldung, daß nach End Sub
...nur Kommentare folgen können, auchwenn ich es vor End
Sub einfüge, was ich absolut nicht verstehe.
Zum Schluß noch Sorry für die seltsame Darstellung, aber ich tippe hier nur wie
gewohnt den Text ein. Wo kommen die Linien her?