Hallo,
kann mir bitte bei dieser Formel mal jemand helfen?
Es soll bitte die ganze Zeile und nicht nur Spalte C kopiert werden.
Das ist für Euch doch sicher ein klacks oder?;-)
Private Sub CommandButton1_Click()
Range("c1").Select
Dim loZeile As Long, loZeile2 As Integer
loZeile2 = 1
With Sheets("Tabelle1")
For loZeile = 3 To .Cells(Rows.Count, 3).End(xlUp).Row
If InStr(1, .Range("C" & loZeile).Value, "Mix") > 0 Then
Sheets("Tabelle2").Range("A" & loZeile2).Value = .Range("C" & loZeile). _
Value '
loZeile2 = loZeile2 + 1
End If
Next
End With
Sheets("Tabelle2").Select
End Sub
Liebe Grüße Lisa