Thema Datum  Von Nutzer Rating
Antwort
Rot Daten aus Datei 1 filtern und in Datei 2 einfügen
04.04.2022 10:44:36 Erik
NotSolved
04.04.2022 10:57:38 Gast19329
NotSolved

Ansicht des Beitrags:
Von:
Erik
Datum:
04.04.2022 10:44:36
Views:
122
Rating: Antwort:
  Ja
Thema:
Daten aus Datei 1 filtern und in Datei 2 einfügen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Daten aus Datei 1 filtern und in Datei 2 einfügen
04.04.2022 10:44:36 Erik
NotSolved
04.04.2022 10:57:38 Gast19329
NotSolved