Supportnet / Forum / Tabellenkalkulation

Hi@ll, für die Abrechnung baue ich derzeit ein Marko, und da komme ich nicht mehr weiter. Ich möchte aus den einzelnen Bögen Werte kopieren. Dazu müssen diese gefunden werden. Meine frage nun, wie muss das aussehen das dass funktioniert? Zum Suchen Verwende ich das: Cells.Find(What:=(Suchnamen), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate Jetzt sollen die nächsten 5 Zeilen unter dem Suchnamen Kopiert werden. Kann mir jemand helfen? Vielen Dank Gruß dirk

HAllo Dirk,

lasse Dir durch die Find-Methode die gefundene Zeile z.B. in die Variable "i" schreiben und dann kopierst Du z.B. mit dem Befehl

Rows(i + 1 & ":" & i + 5).Copy

die 5 Zeilen unterhalb des gefundenen Begriffs.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Dirk,
nach deiner Abfrage einfach:

Range("A" & ActiveCell.Row & ":A" & ActiveCell.Row + 5).Copy Destination:=Cells(1, 2)

Das Ziel bzw. die Spalte die Kopiert werden soll mußt
du noch anpassen.
Gruß Niels

Guten Morgen,

danke hat super geklappt

Gruß Dirk

• Makro - Kopieren von Feldinhalten abhängig von zugehörigem Datum
• Formaln kopieren
• VBA Werte finden uns kopieren ???
• Formeln unterdrücken
• Suchen in Arbeitsmappen