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]
