Guten Tag zusammen.
Ich habe folgenden Code mit dem ich aus Tabelle 1 die einzelnen Zeilen auf andere Tabellen aufteile, je nach Bedingung.
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
Jetzt sind in der Ausgangstabelle aber auch andere Nachnamen. Die möchte ich eigentlich alle in Tabelle 5 mit der Zeile kopieren.
Es sind ganz viele andere Nachnamen, von daher möchte ich dem Code eigentlich sagen, dass er alle anderen, die nicht Meier, Müller oder Schulze heißen, in Tabelle 5 kopieren.
Kann mir jemand hier helfen?
Danke schonmal
|