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
|