Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon dirk78 vom 21.08.2019, 13:58 Options
werte suchen und kopieren
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
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
Antwort 1 von coros vom 21.08.2019, 14:49 Options
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.
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.
Antwort 2 von DukeNT vom 21.08.2019, 14:49 Options
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
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
Antwort 3 von dirk78 vom 23.08.2019, 10:32 Options
Guten Morgen,
danke hat super geklappt
Gruß Dirk
danke hat super geklappt
Gruß Dirk
Ähnliche Themen
Makro - Kopieren von Feldinhalten abhängig von zugehörigem Datum
jojow 12.06.2007 - 58 Hits - 10 Antworten
Formaln kopieren
networker/// 12.07.2007 - 63 Hits - 5 Antworten
VBA Werte finden uns kopieren ???
RoSchu 12.07.2007 - 140 Hits -
Formeln unterdrücken
nettchen 05.12.2007 - 125 Hits - 2 Antworten
Suchen in Arbeitsmappen
jennit 30.06.2008 - 66 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
