Zahlen suchen, Zeilen kopieren

Bild

Betrifft: Zahlen suchen, Zeilen kopieren von: Erich M.
Geschrieben am: 14.04.2005 10:11:58

Hallo EXCEL-Freunde,

habe ein makro bei dem Zahlen gesucht werden und wenn gefunden wird die
komplette Zeile kopiert - soweit so gut.
Beim kopieren wird aber im zweizeiligen Abstand in die neue Tabelle übertragen -
und das möchte ich auf einzeilig abändern und schaffs nicht. Hier die Datei:
https://www.herber.de/bbs/user/21136.xls

Besten Dank für eine Hilfe!

mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com

Bild


Betrifft: AW: Zahlen suchen, Zeilen kopieren von: Dieter
Geschrieben am: 14.04.2005 12:20:47

Hallo Erich,

meiner Meinung liegt der Fehler hier:
For zeile1 = 2 To Tab1.Cells(65536, mySpalte).End(xlUp).Row
If Tab1.Cells(zeile1, mySpalte) = myWert1 Then Tab1.Rows(zeile1).Copy Tab2.Rows(zeile2)
zeile2 = Tab2.Cells(65536, 1).End(xlUp).Row + 2
Next

Warum "+2"? Du willst doch nur in die nächste Zeile.

Gruß
Dieter


Bild


Betrifft: AW: Zahlen suchen, Zeilen kopieren von: Erich M.
Geschrieben am: 15.04.2005 06:19:22

Hallo Dieter,

danke, das war ein richtiger Hinweis. Ein weiterer Fehler war, dass die erste Spalte
durchsucht wird und dort entscheidend war, welche Zeile als letzte belegt war.

Problem gelöst.

mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zahlen suchen, Zeilen kopieren"