Hallo!

Ich muss regelmäßig die Mitglieder einzelner Sportgruppen aus der Exceldatei "Stammdaten" filtern (Spalte Gymnastik mit x) und die Werte in eine andere Exceldatei z.B. "Gymnastik" kopieren. Das habe ich per Makroaufzeichnung hinbekommen (Ergebnis Mitglieder aus den Zeile 8, 21, 76, 89 wurden in die Exceldatei Gymnastik kopiert.).

Bei der nächsten Überprüfung habe ich nun festgestellt, dass das Mitglied aus der Zeile 4 der "Stammdaten" in die Sportgruppe "Gymnastik" gewechselt ist (Spalte Gymnastik ist entsprechend mit x gefüllt) . Das Makro zeigt diese Zeile 4 im Filter zwar an, übernimmt diese Zeile aber nicht, sondern nur die Filterdaten ab Zeile 8.

Ich bin blutiger Anfänger. Ihr habt doch bestimmt eine möglichst einfache Lösung. Danke für Eure Hilfe.. 

Hier nochdas aufgezeichnete Makro:

Sub Gymnastik2_aus_Stammdaten1()
'
' Gymnastik2_aus_Stammdaten1 Makro
' Gruppenliste Gymnastik2 aus Stammdaten1 erstellen.
'

'
    Cells.Select
    Selection.EntireColumn.Hidden = False
    Range("B5").Select
    Workbooks.Open Filename:="C:\Users\PB\Desktop\Stammdaten 1.xlsm", _
        UpdateLinks:=3
    Cells.Select
    Selection.EntireColumn.Hidden = False
    ActiveWindow.SmallScroll ToRight:=9
    Range("Y8").Select
    Selection.AutoFilter
    ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=25, Criteria1:= _
        "<>"
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("B24:Y188").Select
    Selection.Copy
    Windows("Gruppe Gymnastik 2.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Stammdaten 1.xlsm").Activate
    Application.CutCopyMode = False
    ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=25
    Selection.AutoFilter
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("G:G,I:I,J:J,L:L,M:M").Select
    Range("M1").Activate
    Selection.EntireColumn.Hidden = True
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("D:J,L:L,M:M,O:O").Select
    Range("O1").Activate
    ActiveWindow.SmallScroll ToRight:=7
    Range("D:J,L:L,M:M,O:Y").Select
    Range("O1").Activate
    Selection.EntireColumn.Hidden = True
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("AQ7").Select
End Sub