Seite 1 von 1
(Gelöst)Tabellenblätter suchen
Verfasst: Do 8. Apr 2021, 20:14
von Joachim K.
Hallo,
folgendes ist gegeben.
Win 10 oder Opensuse Leap 15.2
LO 7.1.1.2
Ich habe hier ein Calc Dokument mit 40 Tabellenblätter, die mit Kundennamen versehen sind. Jeden Monat kommen 2-5 Tabellenblätter hinzu. In jedes Tabellenblatt werden die neusten Daten eingetragen.
Gibt es eine Möglichkeit, nach dem Tabellennamen zu suchen?
Was bis jetzt möglich war, dass ich in einer festgelegten Zelle den Namen noch mal eingetragen haben und danach über alle Tabellen suchen gelassen habe.
Ist nicht der gewünschte Weg, aber das Ergebnis ist somit richtig.
Vielen Dank
Joachim
Re: Tabellenblätter suchen
Verfasst: Do 8. Apr 2021, 21:12
von mikele
Hallo,
ich würde ein Tabellenblatt an den Anfang setzen, auf dem alle Tabellennamen aufgelistet sind und dazu gleich einen Hyperlink um zu diesem Tabellenblatt zu springen.
Um das nicht mühselig per Hand zu machen, könntest du das folgende Makro nutzen. Es fügt, falls noch nicht vorhanden, ein Tabellenblatt "Zusammenfassung" als erstes Tabellenblatt ein und listet dann alle Tabellenname auf und setzt einen Hyperlink in die Nachbarzelle. Beim erneuten Aufrufen, werden die Einträge erneuert.
Code: Alles auswählen
Sub Main
odoc=Thiscomponent
otabs=odoc.sheets
if not otabs.hasbyname("Zusammenfassung") then
otabs.insertnewbyname("Zusammenfassung",0)
end if
otab=otabs(0)
ocell=otab.getcellbyposition(0,0)
ocell.string="Tabellenname"
for i=1 to otabs.count-1
oCell = otab.getCellByPosition(0,i)
oCell.String=otabs(i).name
oCell = otab.getCellByPosition(1,i)
oField = ThisComponent.createInstance("com.sun.star.text.TextField.URL")
oField.Representation = "--> gehe zu"
oField.URL = "#" & otabs(i).name & ""
oText = oCell.getText()
oText.insertTextContent(oText.createTextCursor(), oField, True)
next
otab.columns(0).OptimalWidth=true
End Sub
Re: Tabellenblätter suchen
Verfasst: Fr 9. Apr 2021, 13:02
von F3K Total
Moin,
ein alternativer Vorschlag:
- Drücke F5 (Navigator anschalten)
- Klicke auf das +Zeichen vor "Tabellen"
- Doppelklicke die gewünschte Tabelle
- Drücke F5 (Navigator ausschalten)
Gruß R
Re: Tabellenblätter suchen
Verfasst: Fr 9. Apr 2021, 13:26
von Joachim K.
Hallo mikele,
vielen Dank für das Makro. Getestet und für gut befunden.
Vielen Dank dafür.
Viele Grüße
Joachim
Re: Tabellenblätter suchen
Verfasst: Fr 9. Apr 2021, 13:28
von Mondblatt24
Hallo,
ist das Thema Gelöst mach das bitte im Titel der Frage kenntlich!
So gehtʼs
Gruß
Peter
Re: (Gelöst)Tabellenblätter suchen
Verfasst: Fr 9. Apr 2021, 17:15
von Joachim K.
Über den Navigator ist auch eine gute Möglichkeit.
Vielen Dank für die Tipps.
