Oo_calk [ Makro ]

mike6 · 08.08.2004

Hallo,

ich möchte, das durch ein Makro alle Tabellenblätter
einer Datei, egal wie viele und wie sie heissen, auf
die Position A15 gestellt werden.

++++++++++++++++++++++++++++++++++++++++++++++++++++
Openoffice - Calc Version 1.1.2
++++++++++++++++++++++++++++++++++++++++++++++++++++

Mfg
mike6

Fizbin · 16.06.2005

Hi.

Das sollte sich so regeln lassen:

Code:

dim objDoc as object
dim objSheet as object
dim objCell as object
dim i as integer
dim strName as string

objDoc =thiscomponent
for i = 0 to objdoc.sheets.count -1
	objSheet=objDoc.sheets(i)
	strName= strName &amp; objSheet.Name &amp; ; 
next i

objSheet=objDoc.sheets(0)
objCell=objSheet.getCellRangebyName(A15)
objCell.string=strName

Oo_calk [ Makro ]

mike6

Fizbin

Oo_calk [ Makro ]

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums