ich habe aus dem Forum folgenden Code um die Zeilen zu kopieren wenn in der jeweiligen Zelle ein bestimmter Wert vorhanden ist.
Im Bsp ist ein "X" als Suchwert angegeben.
Ich möchte jetzt alle Zeile kopieren bei denen der Wert >99 ist. Wenn ich statt "X" ">99" eingebe wird allerdings nichts kopiert.
Kann mir jemand einen Tipp geben?
VG Hans
Sub Copy_x()
Dim i As Long, suchCol As Long
Dim strSearch As String
Dim srcWks As Worksheet, tarWks As Worksheet
'Tabellennamen anpassen
'srcWks wo gesucht werden soll
Set srcWks = Worksheets("Tabelle1")
'tarWks wo hinkopiert werden soll
Set tarWks = Worksheets("Tabelle2")
'8 = Spalte H
suchCol = 8
'strSearch = was gesucht werden soll
strSearch = "X"
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