Wie kann ich gesamte Datensätze die einem bestimmten Auswahlkriterium entsprechen (z. B. Zeile 2=Automarke nur Audi) in ein neues Tabellenblatt automatisch kopieren?
Vielen Dank und Grüße!
Sub Kopier()
Dim i%, k%
With Sheets("Tabelle1")
For i = 1 To 10
If .Cells(i, 1).Value = "Audi" Then
k = k + 1
.Rows(i).Copy Sheets("Tabelle2").Range(k, 1)
Application.CutCopyMode = False
End If
Next i
End With
End Sub