Ich möchte gerne in einer bestimmten Spalte meiner Arbeitsmappe nach einer bestimmten Zeichenfolge suchen und dann alle Zeilen, in denen die Folge gefunden wurde makieren um sie in ein anderes Datenblatt zu kopieren. Kann mir jemand sagen wie ich das machen muss? Klingt ja einfach aber ich habe es nicht hinbekommen.
Gruß Andy
Hi Ralf,
war ein super Beispiel! Musste ein wenig rumprobieren und die Spalten ändern und dann hats wunderbar funktioniert. Geht auch super schnell. Klasse ;-)
Gruß Andy
AW: Mehrere Zeilen suchen, makieren und kopieren
19.05.2005 11:37:06
Andy
Nochmal danke für den super Tipp! Ich habe zwar schon geantwortet, weiß aber nicht warum mein Dankesgruß nicht über der Antwort von Ralf plaziert ist. Nun habe ich versucht mit dem angegebenen Code ähnliches durchzuführen, nur möchte ich diesmal die Zeile löschen. Wenn ich allerdings in der Do...While Schleife rFind.EntireRow.Copy wks2.Cells(lrow, 1) durch rFind.EntireRow.Delete Shift:=xlUp ersetze, bekomme ich eine Fehlermeldung, da wahrscheinlich rFind in der folgenden Zeile nicht mehr existiert. Set rFind = wks1.Range("B:B").FindNext(rFind) Wie kann ich diesen Fehler umgehen? Wenn ich anstelle von Set rFind = wks1.Range("B:B").FindNext(rFind) den ganzen Zermon mit suchen nach ... Set rFind = wks1.Range("B:B").Find(what:="@", LookIn:=xlFormulas, lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False) eingebe, dauert das Makro ewig ;-(
Danke nochmal für die Unterstüzung Gruß Andy