Hallo zusammen!
Ich habe mit diesem Code s.u. schon gearbeitet und es funktioniert prima, dank Hajo.
Hierbei wird aber die Groß und Kleinschreibung unberücksichtigt gelassen, also Steht „MIX“ erfolgt keine Ausgabe, was aber sein sollte.
Ich habe es leider erst jetzt Mitbekommen, dass die Schreibweise unterschiedlich ist und konnte die Fragestellung nicht gleich präzisieren.
Bei meiner Recherche habe ich auch etwas finden können ich weiß nur nicht wie ich das umsetzen soll Archivpaket 724to728
Dim loZeile As Long, loZeile2 As Integer
loZeile2 = 1
With Sheets("Tabelle1")
~f~ For loZeile = 3 To .Cells(Rows.Count, 3).End(xlUp).Row
If InStr(1, .Range("C" & loZeile).Value, "Mix") > 0 Then
.Rows(loZeile).Copy Sheets("Tabelle2").Rows(loZeile2)
loZeile2 = loZeile2 + 1
End If
Next
End With
Sheets("Tabelle2").Select
End Sub
Könnte mir bitte noch einmal jemand helfen?
Liebe Grüße Lisa