OpenOffice.info

[quote]Dazu sollte zunächst die Positon am unteren rechten Ende der Tabelle mit der Strg Ende - Kombination aufgesucht werden. Dann sollte von dort die Tabelle bis einschließlich Zelle B 2 markiert und dann kopiert werden.[/quote]

Gibt es dafür einen Grund?
Üblich wäre Zelle B2 zu markieren und dann bis zum Ende zu markieren, also:

*markiere B2
*drücke STRG+Umschalt+Ende

reicht das tatsächlich nicht und Zelle B2 muß die aktive Zelle in der Auswahl sein, mache was ich gerade beschrieben habe und drücke anschließend zusätzlich TAB.



Gruß
Stephan

sub Bereich_Kopieren
	odoc=thiscomponent
	oSheet1 = oDoc.Sheets.getByIndex(0)'erstes Tabellenblatt (Quelle)
	oSheet2 = oDoc.Sheets.getByIndex(1)'zweites Tabellenblatt (Ziel)
	oCellCursor = oSheet1.createCursor()
	oCellCursor.GotoEndOfUsedArea(True)
	oCellCursor.GotoEndOfUsedArea(True)
	letzte_Zeile = oCellCursor.getRangeAddress.EndRow 'letzte Zeile suchen
	letzte_Spalte= oCellCursor.getRangeAddress.EndColumn 'letzte Spalte suchen
	oQuelleRange=oSheet1.getCellRangeByPosition(1,1,letzte_Spalte,letzte_Zeile)
	oQuellRangeAddresse = oQuelleRange.getRangeAddress
	oZiel = oSheet2.getCellByPosition(0,0) ' einfügen ab Zelle A1
	oZielCellAdresse=oZiel.getCellAddress
	oSheet2.copyRange(oZielCellAdresse,oQuellRangeAddresse)
End Sub

Hi Volker,

dieses Makro sucht die letzte beschriebene Zeile und Spalte = (X) in Tabelle1 .
Dann wird der Bereich von Zelle B2 bis X kopiert und in Tabelle2 eingefügt.
[code]sub Bereich_Kopieren
odoc=thiscomponent
oSheet1 = oDoc.Sheets.getByIndex(0)'erstes Tabellenblatt (Quelle)
oSheet2 = oDoc.Sheets.getByIndex(1)'zweites Tabellenblatt (Ziel)
oCellCursor = oSheet1.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
oCellCursor.GotoEndOfUsedArea(True)
letzte_Zeile = oCellCursor.getRangeAddress.EndRow 'letzte Zeile suchen
letzte_Spalte= oCellCursor.getRangeAddress.EndColumn 'letzte Spalte suchen
oQuelleRange=oSheet1.getCellRangeByPosition(1,1,letzte_Spalte,letzte_Zeile)
oQuellRangeAddresse = oQuelleRange.getRangeAddress
oZiel = oSheet2.getCellByPosition(0,0) ' einfügen ab Zelle A1
oZielCellAdresse=oZiel.getCellAddress
oSheet2.copyRange(oZielCellAdresse,oQuellRangeAddresse)
End Sub[/code]

Hilft das?

Viel Erfolg.

Jürgen

Halloele Xperts!

Bin gerade dabei mit dem makrorecorder eine Marko zu fertigen. Ziel ist es, einen Großteil einer Tabelle in ein anderes Tabellenblatt zu kopieren. Dazu sollte zunächst die Positon am unteren rechten Ende der Tabelle mit der Strg Ende - Kombination aufgesucht werden. Dann sollte von dort die Tabelle bis einschließlich Zelle B 2 markiert und dann kopiert werden.

Ich wollt schon alternativ Zeile 1 und Spalte A löschen, anschließend kann ich die ganze Tabelle markieren. Leider bekomme ich dann die Probleme mit dem Einfügen in das Tabellenblatt

Gruß

volker :shock: