Bestimmte Zeilen in eine andere Tabelle kopieren
10.11.2019 17:53:37
Stefan
ich benötige Hilfe. Ich möchte gerne eine Adressliste in andere Tabellenblätter kopieren.
In der Zelle 11 steht der Status der Person. Je nach Status (Aktiv-Erwachsen, Aktiv-Ehrenmitglied, Vorstand, Passiv, Inaktiv) soll die Person in ein anderes Blatt kopiert werden.
Ich habe einen Code, jedoch nur für einen Status, wie kann man diesen abändern?
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle1 'Mitgliederliste
ZeileMax = .UsedRange.Rows.Count
n = 2
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 11).Value = "Aktiv-Erwachsen" Then 'Zeile 11 = Status
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n) 'Aktiv-Erwachsen
n = n + 1
End If
Next Zeile
End With
End Sub Vielen Dank vorab
Gruss
Stefan