OpenOffice.info

[quote="bauer-ewert"]wie bekomme ich dein Makro über die Zwischenablage in meine Makrosammlung?[/quote]

Hilft Dir der Eintrag im Wiki: [url=http://www.ooowiki.de/MakrosInstallieren]Makros installieren[/url]

Hinweis: Solche Funktionen (mit Rückgabe von Werten) für Calc müssen in einer [color=#008000]STANDARD[/color]-Bibliothek (der Installation oder des Dokuments) gespeichert sein.

@komma4
Das Thema interessiert mich auch. Ich habe aber wenig Erfahrung mit Makros. Deshalb die "doofe" Frage: was muss ich mit der "Überschrift" Code: Alles auswählen" tun, bzw. wie bekomme ich dein Makro über die Zwischenablage in meine Makrosammlung?

Bernhard

oSheets = ThisComponent.Sheets()
For i = 4 to 99
	sName = "N" & FORMAT( i, "0000" )
	oSheets.insertNewByName( sName, oSheets.Count() ) 
Next i

Function calc_Blattnamen
calc_Blattnamen = ThisComponent.Sheets().getElementNames()
End Function

[b]nummerierte Tabellenblätter erstellen[/b]
Wenn Du Dir nicht eine solche Calc-Datei als [u]Vorlage[/u] einmal erstellen und dann immer wieder nutzen möchtest ... folgender Weg, um eine Reihe von Tabellenblättern zu erstellen:
klick auf die Registerlasche des letzten Blattes ("Tabelle3")
[color=#008000]rechter Mausklick>Tabelle einfügen...>Position=[/color][color=#0040FF]nach aktueller Tabelle[/color][color=#008000]>Tabelle>Neu erstellen>Anzahl=[/color][color=#0040FF]99[/color]
[color=#008000]OK-Schaltfläche[/color]
Es werden die Tabellenblätter namens "Tabelle4" bis "Tabelle102" hinten an gestellt.
Möchtest Du das mit einem Makro erledigen? Mit einer anderen Namenskonvention?
[code]oSheets = ThisComponent.Sheets()
For i = 4 to 99
sName = "N" & FORMAT( i, "0000" )
oSheets.insertNewByName( sName, oSheets.Count() )
Next i[/code]
[b]Hyperlinks zu allen Blättern[/b]
Hierzu basteln wir uns erst eine Funktion, welche uns alle Tabellennamen zurück liefert.
[code]
Function calc_Blattnamen
calc_Blattnamen = ThisComponent.Sheets().getElementNames()
End Function[/code]

Als Matrixformel (mit [color=#008000]STRG+Umschalt+Enter[/color]) auf dem Übersichtsblatt eingegeben, liefert es in horizontaler Ausrichtung alle Namen zurück.
Um die Namen senkrecht untereinander zu bekommen: [color=#008000]=Mtrans( calc_Blattnamen() )[/color] , ebenfalls wieder mit [color=#008000]STRG+Umschalt+Enter[/color] eingeben.
Mit diesen generierten Blattnamen kannst Du Dir Hyperlinks zusammenstellen (Formel zum "Runterziehen"):
[color=#008000]=HYPERLINK( VERKETTEN( "#"; B1 ) ; VERKETTEN( "Hyperlink zu Tabelle namens " ; B1 )[/color]


Hilft Dir das weiter?

Ich habe nicht verstanden: Du speicherst als XLS und hast dann in Excel damit Probleme?

Hallo
Kannst du mal eine reduziertes Dokument (ohne Daten) mit Übersichtsblatt und ein bis zwei weiteren Blättern hier anhängen?
Gruß Karo

Hallo *,

ich hatte vor einigen Jahren in Excel Arbeitsmappen gemacht, bei denen in der ersten Tabelle eine Art Inhaltsverzeichnis ist und dahinter bis zu 200 einzelne Tabellen stehen, die mit Nxxx im Namen durchnummeriert sind.
Die Mappen werden über Makros erzeugt, die ich neu machen muss, aber das hat noch etwas Zeit.

In der Inhaltstabelle wird auf die einzelnen Tabellen mit einem Hyperlink verwiesen - und in den Tabellen selbst ist in der Zelle A1 jeweils der Link zum Rücksprung.

Das Problem:
Wenn ich mit OOo die XLS-Mappe öffne funktionieren die Links nicht mehr, weil sie in die Notation mit dem file:// Operator umgewandelt werden, was nicht funktioniert, da die Datei bereits geöffnet ist.
Wenn man die Datei als XLS speichert, ist die Datei auch für Excel unbrauchbar.

Hat jemand eine Idee, wie man da vorgehen kann?
Gibt es eine Möglichkeit, über eine 'Suchen ... Ersetzen'-Funktion oder ein Makro die Links - oder besser den fehlerhaften Teil in den Links - zu ersetzen und somit wenigstens ein funktionierendes Calc-Dokument zu erzeugen?