Alle Tabellen synchron navigieren?

[grimmbartaffe]

Sicher nur eine kleine Einstellung: Kann ich in mehreren Tabellen gleichzeitig navigieren?

Das heißt wenn ich z.B in Tabelle A die Zelle L:453 anwähle hab ich den gleichen Abschnitt automatisch sichtbar wenn ich zu Tabelle B,C,D usw. schalte?
Wäre mir eine große Hilfe und Zeitersparniss.
Gruß Mario

[Eia]

Oberhalb der Tabelle hast Du das "Namenfeld". Wenn dort drinsteht:
L453
schreibst Du einfach den Tabellennamen davor:
Tabelle13.L453
und drückst RETURN.

mfG

[grimmbartaffe]

Danke Dir !
...ist nicht ganz was ich erhofft habe weil es nicht wirklich zeitsparend ist , wenn ich zwischen mehreren Tabellen hin und herswitche.
Aber wohl die sicherste Methode!
Gruß Mario

[turtle47]

Hallo Mario,

kennst Du Dich mit der Handhabung von Makros aus?
Dieses hier wählt in allen Tabellenblättern die Zelle aus, die im aktiven Tabellenblatt ausgewählt war.

Code: Alles auswählen

Dim oDoc as Object
Sub Gleiche_Zellen_Tabellen
	oDoc =thisComponent
	oZelle =oDoc.getCurrentSelection 'Tabelle und Zelle aktuell
	oZelle.supportsService("com.sun.star.sheet.SheetCell")
	oZA=oZelle.getCellAddress()
	s=oZA.Sheet 'Tabellenblatt
	c=oZA.Column 'Spalte
	r=oZA.Row 'Zeile
	mySheet = oDoc.Sheets(0)
	Anzahl=oDoc.Sheets.count
	For i= 0 to Anzahl -1
	oTab = oDoc.Sheets(i)   	
	oCon = oDoc.getCurrentController()
	oZelle = oTab.getCellbyPosition(0,0)'Referenzzelle
	oCon.select(oZelle)
	oZelle = oTab.getCellbyPosition(c,r)
	oCon.select(oZelle)
	next i
	oTab = oDoc.Sheets(s)'Rücksprung zur Ausgangstabelle
	oCon = oDoc.getCurrentController()
	oZelle = oTab.getCellbyPosition(c,r)
	oCon.select(oZelle)
End Sub

Edit: Referenzzelle zum genaueren Positionieren hinzugefügt.

Diesem Makro kannst Du ja einen Shortcut auf der Tastatur zuweisen.
Ist zwar auch nur ein Workaround, aber wenn es hilft.

Viel Erfolg.

Jürgen

[grimmbartaffe]

He Dank Dir Jürgen,
jepp das funktioniert doch ganz anständig- nur ein buttonclick : Super!