Blattname in Zelle

mike6 · Beitrag von **mike6** » Do, 19.01.2006 15:30

Hallo,

mit dem Makro:

+++++++++++++++++++++++++++++++++++++++++++
sub TabNameAusZelle
dim oSheet as Object
oSheet = ThisComponent.CurrentController.ActiveSheet
oSheet.Name = oSheet.getCellRangeByName("A1").String
end sub
++++++++++++++++++++++++++++++++++++++++++++

wird der Name aus der Zelle A1 als Blattname eingetragen.

Wie bekomme ich es hin, dass ( ohne Makro ) der Blattname
automatisch in die Zelle A1 geschrieben wird?

mfg
mike6

Stephan · Beitrag von **Stephan** » Do, 19.01.2006 17:02

Wie bekomme ich es hin, dass ( ohne Makro ) der Blattname
automatisch in die Zelle A1 geschrieben wird?

Ohne Makro und automatisch geht meiner Meinung nach nicht vollkommen, weil Zellformeln nicht automatisch auf die Änderung des Blattnamens reagieren. Folgende Formel wird bei jeder Aktion die das Aktualisieren beinhaltet auch automatisch den Blattnamen lesen, nur ebend nicht vollständig automatisch in dem Moment wo Du den Blattnamen änderst (dazu ist es notwedig STRG+UMSCHALT+F9 zu drücken)

Code: Alles auswählen

=RECHTS(ZELLE("FILENAME");LÄNGE(ZELLE("FILENAME"))-SUCHEN("#";ZELLE("FILENAME");1)-1)

Gruß
Stephan