OpenOffice.info

Hallo,
ich möchte unter einer bestimmten Bedingung mit einem Makro eine wav-Datei öffnen wo eine Glocke läutet.
Bedingung :
In Zelle A1 muss der Wert 1 sein, damit das Makro startet - hier steht 0 und um 12 Uhr trägt sich eine 1 ein.
In Zelle A2 steht =wenn(A1=1;Glocke())
Beim einrichten dieser 2 Zellen funktionierte das einwandfrei.
Nach speichern und neu aufrufen der Datei funktioniert das plötzlich nicht mehr
Es kommt die Fehlermeldung 'Name?

Makro direkt aufrufen funktioniert weiterhin....

sub Glocke
PlaySound("Dateipfad....\Glocke.wav")
end sub

Sub PlaySound(i_soundpath as string)
dim oPlayer1 as object
dim sUrlSound as string
dim oSounMgr as object

if not isnull(oSounMgr) then
S_Start_New
exit sub
endif

sUrlSound = ConvertToUrl(i_soundpath)

If not fileexists(sUrlSound) Then
msgbox sUrlSound & " does not exist",16
else
If GetGuiType() = 1 Then
oSounMgr = CreateUnoService("com.sun.star.media.Manager_DirectX")
Else
oSounMgr = CreateUnoService("com.sun.star.comp.media.Manager_GStreamer")
End If
If IsNull(oSounMgr) Then
msgbox "Sound Mgr not set",16
else
oPlayer1 = oSounMgr.createPlayer(sUrlSound)
oPlayer1.setMediaTime(0.0)
oPlayer1.setVolumeDB(-10)
oPlayer1.setPlayBackLoop( 0 )
oPlayer1.start(0)
while oPlayer1.isplaying()
doevents
wend
oPlayer1 = nothing
oSounMgr = nothing
End If
End If
End Sub

Mit funktion statt sub funktioniert es auch nicht
Es ist mir ein Rätsel, warum der =wenn-Aufruf am Anfang funktionierte und nach Neustart nicht mehr
Die beiden Makros befinden sich in MeineMakros-Standard-Module1
Das Makro PlaySound habe ich aus einem US-Forum