Hallo Wolfgang, ich nochmal,
Wolfgang Schaible schrieb:
wenn du dieses Makro in einem Calc-Dokument eingebunden hast und es aus diesem Dokument raus startest, solltest es so laufen.
REM ***** BASIC *****
Sub Main Dim Doc As Object Dim Sheet As Object
Doc=StarDesktop.CurrentComponent
Sheet=Doc.Sheets(0) 'dann kommt die MsgBox
End Sub
mit StarDesktop.CurentComponent bekommst du die derzeit aktive Componente. da du später ein Sheet holen willst musst du sicherstellen dass im Doc auch ein Sheet vorhanden ist, also muß die Komponente aus der raus du das Makro startest ein Calc-Dokument sein. Dann läuft es auch mit deinem Code.
Gruß Hermann Kienlein
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
