erstmal finde ich das Forum super. Habe schon einige Tipps bekommen und hoffe in Zukunft auch ein bisserl behilflich sein zu können.
Ich möchte gerne per Makro nach einer Zeichenkette in einer bestimmten Spalte suchen und dann von allen gefundenen Feldern die gesamte Zeile zu makieren. Die Makierung wird dann in ein neues Tab kopiert.
Bisher habe ich ganz umständlich im gesamten Blatt nach dem Keyword gesucht, Spalte makiert und ausgeschnitten, dann das neue Tab geöffnet, eingefügt und im Original Datenblatt die Zeile entfernt (siehe unten).
Sheets("AB").Select
Set c = Cells.Find(What:=kunde, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlAll, MatchCase:=False _, SearchFormat:=False)
If Not c Is Nothing Then
Do
Cells.Find(What:=kunde, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlAll, MatchCase:=False _
, SearchFormat:=False).Select
Selection.EntireRow.Select
Selection.Cut
Sheets(kunde).Activate
Selection.Insert Shift:=xlDown
Sheets("AB").Select
Selection.Delete Shift:=xlUp
Set c = Cells.Find(What:=kunde, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False _
, SearchFormat:=False)
Loop While Not c Is Nothing ' And c.Address firstAddress
End If
Aufgrund der Loop-Schleife is dat alles aber seeeehhhhhr langsam, daher bitte ich um Hilfe.
Gruß Andy