Hallo,
ich habe ein Problem von dem ich vermute, dass es nicht lösbar ist.
Ich will eine Variable erzeugen, deren Name zu Programmstart noch nicht
verfügbar ist.
global aSheetnamen(1)
sub init
'Ziel ist es, ein Makro zu haben, das universell einen einfachen Zugriff auf die
'Tabellen gibt
'Zuerst wird die Anzahl der Tabellen ermittelt
oMGLcalc = thisComponent
Anzahl=oMGLcalc.Sheets.count
redim aSheetnamen(anzahl)
' und deren Namen in ein Feld geschrieben
For i=0 to Anzahl-1
aSheetnamen(i) = oMGLcalc.Sheets(i).name
Next i
For i=0 to Anzahl-1
'und jetzt wird es schwierig. Es soll eine Variable erzeugt werden in der Form
' oSheetKalk = oMGLcalc.Sheets().getByName("Kalk")
'das geht, wenn die Tabelle Kalk vorhanden ist, aber natürlich nicht so:
(osheet & asheetnamen(i))
=oMGLcalc.Sheets().getByName(asheetnamen(i))
'Aber wie kann ich einen Variablennamen erzeugen
'und um noch einen draufzulegen, Global verfügbar machen
global osheet & asheetnamen(i)
Next i
end sub
Geht das und wenn ja warum nicht?
Horst Schulze
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
