OpenOffice.info

function beepifkleiner(sollwert,wert)
if wert < sollwert then 'wenn der Wert kleiner als der Sollwert ist-
beep    'dann piepts
else ' wenn er aber >= dem Sollwert ist :
for i = 1 to fix(wert) 'Dann-
beep : wait 200    'piepts -
next               ' öfters ;-)
' ! Gib bitte keine grossen Zahlen ein !
end if
End function

....
Dim start as object
start = createUnoService("com.sun.star.system.SystemShellExecute")
start.execute(ConvertToUrl("dein/pfad/zu/irgendwas"), "", 0)
..... 

Hallo K
Ja das geht im Prinzip über eine Makrofunktion, die bsplw. so aussieht:
[code]function beepifkleiner(sollwert,wert)
if wert < sollwert then 'wenn der Wert kleiner als der Sollwert ist-
beep 'dann piepts
else ' wenn er aber >= dem Sollwert ist :
for i = 1 to fix(wert) 'Dann-
beep : wait 200 'piepts -
next ' öfters ;-)
' ! Gib bitte keine grossen Zahlen ein !
end if
End function[/code]

In einer Zelle rufst die Funktion wie eine normale Calc-funktion auf:
=beepifkleiner(A1;A2)
oder auch direkt mit Zahlenwerten:
=beepifkleiner(3;A5)

Möchtest in Abhängigheit von den Funktionskriterien ein externes Programm aufrufen, benutzt du anstelle von beep im Funktioncode die Zeilen:
[code]....
Dim start as object
start = createUnoService("com.sun.star.system.SystemShellExecute")
start.execute(ConvertToUrl("dein/pfad/zu/irgendwas"), "", 0)
..... [/code]

Gruß Karo

Hallo K,

K, wie Kurz und Knackig? :lol:
Kann sein das ich jetzt was falsches sage, aber ich würde sagen das dass nicht geht. Weder Sound, noch Programm ausführen.
Könnte mir aber vorstellen das dies wohl mittels Makro realisierbar ist. Versuche es doch mal im Basic-Bereich.

Gruß
balu