aus Calc mit basic ein externes Programm automatisch starten

[med]

Hallo an alle,

in diesem Forum bin ich neu da ich bis jetzt nie Basic brauchte, jetzt möchte ich aber ein Makro in Calc ein bauen dass, wenn in einer Zelle ein bestimmter Wert oder eine Zahl eingetragen wird, dass denn das Makro ein externes Programm automatisch öffnet. Eine Syntax für ein Makro habe ich auch schon, dieses startet aber nicht automatisch:

Sub Starten()
Shell "C:\Programme\Akademische Arbeitsgemeinschaft\Steuertipps\2007\Steuerprogramm\StPCStart.exe", vbNormalFocus
End Sub

und die Formel ist ganz einfach:

=WENN(A1=1;"Start";"")

Wenn jemand eine Idee hat, wie man das automatisieren kann wäre ich sehr dankbar.

Viele Grüße med

[Karolus]

Hallo
Du musst es als 'function' schreiben oder über eine 'function' aufrufen:
Etwa so:

Code: Alles auswählen

 function showstarten(wert)
if wert = 1 then : show
end if
showstarten = wert
end function
'______
sub show
  sURL = "C:\Programme\Akademische Arbeitsgemeinschaft\Steuertipps\2007\Steuerprogramm\StPCStart.exe"  'Programmnamen mit Pfad
  oService = createUnoService("com.sun.star.system.SystemShellExecute")
  oService.execute(sURL,,0)
end sub

Die Sub show entspricht einem Doppelklick auf das eingetragene Programm, ist etwas Einfacher in der Handhabe als die Benutzung von 'shell'
In der Calczelle schreibst du dann einfach
=showstarten(A1)

[med]

Hallo Karolus,

bin jetzt schon seit ein paar Tagen an der Sache dran, hab's auch schon mit MSOffice versucht, aber keiner konnte mir so schnell und kompetent helfen. Vielen Dank dafür, so macht computern Spaß

Viele Grüße med