BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!
> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗
Tabellenblätter durchnummerieren
Tabellenblätter durchnummerieren
Hallo zusammen,
wie kann ich die Tabellen umbenennen in aufsteigende Seitennummern ohne jede Tabelle einzeln umzubenennen?
Da ich mehr als die in Oo-calc einfügbaren 256 Tabellen benötige muss ich neue Dokumente erstellen und dann Tabelle1
in z,B. die Zahl 260 umbenennen und dann alle Tabellen fortlaufend aufsteigend in neue Tabellenzahlen weiterführen.
Jede Tabelle einzeln umbenennen ist etwas mühsam.
vielen Dank!
Anja
wie kann ich die Tabellen umbenennen in aufsteigende Seitennummern ohne jede Tabelle einzeln umzubenennen?
Da ich mehr als die in Oo-calc einfügbaren 256 Tabellen benötige muss ich neue Dokumente erstellen und dann Tabelle1
in z,B. die Zahl 260 umbenennen und dann alle Tabellen fortlaufend aufsteigend in neue Tabellenzahlen weiterführen.
Jede Tabelle einzeln umbenennen ist etwas mühsam.
vielen Dank!
Anja
-
- Beiträge: 812
- Registriert: Do 9. Mär 2017, 09:53
Re: Tabellenblätter durchnummerieren
Hallo,
wie das funktioniert kann ich nicht beantworten. Mit LibreOffice Calc bin ich schon bei Tabelle 1001 angekommen.
LibreOffice 6.3.6
Gruß
Peter
wie das funktioniert kann ich nicht beantworten. Mit LibreOffice Calc bin ich schon bei Tabelle 1001 angekommen.
LibreOffice 6.3.6
Gruß
Peter
Win 11 (x64) ▪ 24.2.2.2 (x64) ▪ AOO Portable 4.1.15
Wenn Eure Frage zutreffend beantwortet wurde, seid so nett und fügt dem Betreff der Eingangsfrage [GELÖST] hinzu.
Wenn Eure Frage zutreffend beantwortet wurde, seid so nett und fügt dem Betreff der Eingangsfrage [GELÖST] hinzu.
Re: Tabellenblätter durchnummerieren
Moin,
das geht mit folgendem kurzen Makro:Beispiel anbei.
Gruß R
EDIT:Damit das Makro laufen darf, stellst du unter Extras/Einstellungen/Openoffice oder Extras/Optionen/LibreOffice/Sicherheit/Makrosicherheit mindestens die Stufe "Mittel" ein, dann wirst du beim Öffnen von Dokumenten gefragt, ob du Makros ausführen möchtest.
das geht mit folgendem kurzen Makro:
Code: Alles auswählen
Sub Tabellen_durchnummerieren
oSheets = ThisComponent.Sheets
Dim nStartnumber as integer
nStartnumber = Inputbox ("Startnummer:","Tabellen durchnummerieren",1)
for i = 0 to oSheets.Count - 1
oSheet = oSheets(i)
oSheet.Name = "Tabelle" & (nStartnumber+i)
next
End Sub
Gruß R
EDIT:Damit das Makro laufen darf, stellst du unter Extras/Einstellungen/Openoffice oder Extras/Optionen/LibreOffice/Sicherheit/Makrosicherheit mindestens die Stufe "Mittel" ein, dann wirst du beim Öffnen von Dokumenten gefragt, ob du Makros ausführen möchtest.
- Dateianhänge
-
- TabellenDurchnummerieren.ods
- (11.45 KiB) 131-mal heruntergeladen
Windows 10: AOO, LO Linux Mint: AOO, LO
Re: Tabellenblätter durchnummerieren
Hallo, vielen Dank für die Antwort. Wo gebe ich den Code ein?
Grüße
Grüße
Re: Tabellenblätter durchnummerieren
Danke vielmals, es funktioniert!
Grüße Anja
Grüße Anja