aus Calc mit basic ein externes Programm automatisch starten

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: aus Calc mit basic ein externes Programm automatisch starten

Re: aus Calc mit basic ein externes Programm automatisch starten

von med » Do, 14.06.2007 09:15

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

Re: aus Calc mit basic ein externes Programm automatisch starten

von Karolus » Mi, 13.06.2007 17:00

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)

aus Calc mit basic ein externes Programm automatisch starten

von med » Mi, 13.06.2007 14:39

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

Nach oben