OpenOffice.info

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

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

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]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[/code]

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

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

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

mfG

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