Sub kopieren()
Dim rngc As Range
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For Each rngc In .Range(.Cells(8, 2), .Cells(Rows.Count, 2).End(xlUp))
If rngc.Offset(, 4) = 1 Then
rngc.Resize(, 4).Copy Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Offset(1)
End If
Next
End With
End Sub
Ich möchte aber nur die Werte kopieren! Wie sieht dann der Syntax aus?gruß