Office: Makro umprogrammieren?

Hallo!!
Entschuldigung für den entfernten Beitrag......Problem hat sich leicht verändert...

Habe mir ein Makro aufgezeichnet welches eine Textdatei importiert und so verändert wie ich mir das vorstelle....

Das problem ist weiterhin, dss ich aus einer sehr langen Spalte Werte auslesen will. Das Makro sucht mir jetzt schon das Suchwort raus und markiert es. allerdings sollen nicht die markierten Zeilen sondern nur die Zeilen die Zwei Zeilen darunter liegen kopiert werden.

Kann ich das Makro so umprogrammieren, das sich der Bezug der Markierten Zeilen um 2 nach unter verändert??

HILFE!!
und Danke

 

Grundsätzlich ja. Es wäre vielleicht hilfreich, den Source des aufgezeichnetes Makros bereit zu stellen, aber versuch mal so:

Ich gehe davon aus, daß der letzte Schritt, das Suchen eines Wertes, dazu führt, daß der "Cursor" (also die Umrandung einer Zelle) auf der Zelle steht, in der das gesuchte steht.

mit "activecell.row" kann man herausfinden, in welcher Zeile sich der Cursor befindet. Dazu passend liefert "activecell.column" die entsprechende Spalte zurück. Mit "activesheet.cells(y,x).activate" kann man den Cursor auf eine bestimmte Zelle stellen. Als Kombination aus dem wird dann:

Code:

y=activecell.row
x=activecell.column
activesheet.cells(y+2,x).activate

Dieser Ausschnitt müßte dann also ans Ende des bisherigen Makros, um den Cursor 2 Zeilen tiefer zu platzieren. Man kann natürlich auch auf die Variablöen y und x verzichten und alles in eine Zeile schreiben:

Code:

activesheet.cells(activecell.row+2,activecell.column).activate

Und mit der, wie ich allerdings finde: etwas unübersichtlichen, Funktion "offset" (relative Bezüge) kann man auch noch was werden.

Was ich nur nicht verstehe: Wieso hast Du "2x Cursor runter" nicht gleich mit im Makro aufgezeichnet?

Gruß, Michael

 

Add-In

Das Suchwort wird ungefähr 20 mal gefunden und jedes mal muss er die 2. Zeile darunter kopieren. Ich werde bevor ich deinen Vorschlag ausprobiere mal meine neu Entdeckung ;) testen.
"Add-In NACHSCHLAGE-ASSISTENT"

mal sehen wir das funktioniert, das kommt davon wenn man nach jahren doch mal excel braucht

DANKe