Ich versuche anhand eines VBA Befehls/ Makros eine immer wiederkehrende Tätigkeit zu automatisieren.
Dabei geht es darum die Daten einer Excel Datei, welche sich in einem Ordner befindet, bearbeitet in die aktuelle Mappe zu kopieren. Der Befehl sieht bisher so aus;
Sub Test()
' Test Makro
Application.WindowState = xlNormal
Windows("Produktionen-2020_12.xlsx").Activate
Cells.Select
Selection.Copy
Windows("Mappe1").Activate
Cells.Select
ActiveSheet.Paste
Columns("Q:BA").Select
Application.CutCopyMode = False
Selection.Clear
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("O:O,M:M").Select
Range("M1").Activate
Selection.EntireColumn.Hidden = True
Columns("A:P").Select
Selection.AutoFilter
Range("B1").Select
ActiveSheet.Range("$A$1:$P$15855").AutoFilter Field:=2, Criteria1:=Array( _
"1", "2", "3", "32", "33", "34", "35", "4", "5"), Operator:=xlFilterValues
End Sub
So wie der Befehl aktuell ist wählt er immer nur Mappe 1 aus und nur die offene Datei. Die "fett" markierten Befehle müssten auf einen Ordner bezogen werden und die aktive Mappe. Kann mir bitte jemand weiter helfen?