Zeilen suchen und in anderes Blatt kopieren
Uschi
ich habe folgendes Script, das auch funktioniert:
Sub SelectIfT()
Dim Var As Variant
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
Var = Application.Match("*Fischer*", Rows(iRow), 0)
If Not IsError(Var) Then
Rows(iRow).Select
End If
Selection.Copy
Sheets("conrad").Select
Rows("6:6").Select
ActiveSheet.Paste
Sheets("export").Select
Next iRow
For iRow = iRowL To 1 Step -1
Var = Application.Match("*Mueller*", Rows(iRow), 0)
If Not IsError(Var) Then
Rows(iRow).Select
End If
Selection.Copy
Sheets("conrad").Select
Rows("7:7").Select
ActiveSheet.Paste
Sheets("export").Select
Next iRow
End Sub
Ich suche also Zeilen in denen ein bestimmter Name vorkommt, kopiere diese und füge sie in einem anderen Blatt ein. Das Beispiel von oben muß ich aber noch auf 10 Suchbegriffe erweitern. Kann ich das irgendwie eleganter lösen, ohne den Block von For bis Next immer wieder zu kopieren?
Danke schon mal!
Anzeige