Seite 1 von 1

Gänsefüßchen

Verfasst: Mi 22. Dez 2021, 12:30
von Ich Bins
Hallo zusammen,

in Anlehnung an das Beispiel
http://www.starbasicfaq.de/Wiekannmanmi ... eineZ.html
versuchte ich erfolglos die Formel
=INDIREKT("'"&Tabellen.A4&"'!"&"D134")
in eine Zelle einzutragen.

Code: Alles auswählen

Sub Formel
  myDoc = thisComponent
  mySheet = myDoc.sheets(4)
  mycell = mysheet.getCellByPosition(3,6)
  mycell.FormulaLocal = "=INDIREKT("'"&Tabellen.A4&"'!"&"D134")"
End Sub
Die Formel an sich enthält schon einige Anführungszeichen und vermutlich sind noch weitere innerhalb des Codes in die Formel einzutragen - nur welche und wo?

Ebenfalls erfolglos war der Umweg über

Code: Alles auswählen

  myFormel = "=INDIREKT("'"&Tabellen.A4&"'!"&"D134")"
  myCell.FormulaLocal = myFormel
Viele Grüße
Ich Bins

Re: Gänsefüßchen

Verfasst: Mi 22. Dez 2021, 13:52
von karolus
Welches Zeichen steht denn normalerweise zwischen Tabellenname und dem Rest der Adresse?!
Soweit ich mich erinnere ist das doch ein .punkt und kein !Ausrufezeichen.

nach meine Glaskugel möchtest du wahrscheinlich:
"=INDIREKT(Tabellen.A4&"".D134"")"

Re: Gänsefüßchen

Verfasst: Mi 22. Dez 2021, 16:40
von Ich Bins
Hallo karolus,

das ! ist vermutlich noch ein Überbleibsel aus Excel. (Seit mind. 5 Jahren nutze ich kein Excel mer. Die aktuelle Calc-Datei ist eine Weiterentwicklung einer Excel-Datei, die ich vor Jahren eigentlich bereinigt zu haben.

Was Du in Deiner Glaskugel sehen konntest war die Lösung - funzt direkt und auch über den Umweg mit der Variable.

Code: Alles auswählen

myCell.FormulaLocal = "=INDIREKT(Tabellen.A4&"".D134"")"
Auch ohne Glaskugel kannst Du mir sicherlich sagen wo man, wenn man die 4 in Tabellen.A4 durch die Variable z ersetzen möchte zusätzlich zu +z+ noch Anführungszeichen setzen muss?

Code: Alles auswählen

myCell.FormulaLocal = "=INDIREKT(Tabellen.A+z+&"".D134"")"

Re: Gänsefüßchen

Verfasst: Mi 22. Dez 2021, 17:33
von karolus
Ich könnte wenn ich wollte… frohe Weihnachten!

Re: Gänsefüßchen

Verfasst: Mi 22. Dez 2021, 22:05
von Ich Bins
Manchmal findet ein blindes Huhn auch ein Korn.
Falls hier jemand bei der Suche vorbeikommt ist hier die Lösung.

Code: Alles auswählen

myCell.FormulaLocal = "=INDIREKT(Tabellen.A"+x+"&"".D134"")"
Auch Dir frohe Weihnachten und vielen Dank für Deine Hilfe.