Tabellenbereich zwischen StrgEnde und Zelle B2 markieren

[histrioniker]

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

[turtle47]

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: Alles auswählen

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

Hilft das?

Viel Erfolg.

Jürgen

[Stephan]

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.

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