Private Sub CommandButton1_Click()
Dim Zeile As Integer
Dim ZeileMax As Integer
Dim i As Integer
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 1 To ZeileMax
If .Cells(Zeile, 1).Value = "Müller" Then
.Rows(Zeile).Copy Destination:=ThisWorkbook.Worksheets("Tabelle2").Rows(n)
n = n + 1
End If
Next Zeile
End With
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 1 To ZeileMax
If .Cells(Zeile, 1).Value = "Meier" Then
.Rows(Zeile).Copy Destination:=ThisWorkbook.Worksheets("Tabelle3").Rows(n)
n = n + 1
End If
Next Zeile
End With
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 1 To ZeileMax
If .Cells(Zeile, 1).Value = "Schulze" Then
.Rows(Zeile).Copy Destination:=ThisWorkbook.Worksheets("Tabelle4").Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub