kann mir bitte jemand helfen
Ziel: wenn in Spalte 2 in Zelle der begriff "SIC 4835" vorkommt dann kopiere Zeile
es hat noch mehr inhalt in Zelle aber Suchbegriff ist mitten im Text
Sub Copy_x()
Dim i As Long, suchCol As Long
Dim SearchChar As String = " SIC 4835 "
Dim srcWks As Worksheet, tarWks As Worksheet
'Tabellennamen anpassen
'srcWks wo gesucht werden soll
Set srcWks = Worksheets("export")
'tarWks wo hinkopiert werden soll
Set tarWks = Worksheets("Tabelle1")
'8 = Spalte H
suchCol = 2
'strSearch = was gesucht werden soll
'strSearch = "SIC 4835"
With srcWks
For i = 1 To .Cells(Rows.Count, suchCol).End(xlUp).Row
If .Cells(i, suchCol).Text = strSearch Then
Rows(i).Copy Destination:=tarWks.Cells(tarWks.Cells(Rows.Count, 1).End(xlUp). _
Row + 1, 1)
End If
Next i
End With
End Sub
DANKE
Gruss aus CH