Hallo liebes Forum,
ich habe folgendes Problem:
Tabelle A ist meine Arbeitstabelle mit den Makros.
Ich habe in Tabelle A, Blatt A Zellen, die ich zuerst filtern und dann die gefilterte und aufbereitete Auswahl kopieren möchte. Funktioniert auch.
Die Kopie wird in eine neue Tabelle B eingefügt und soll jetzt aber mit einem Zellinhalt aus Tabelle A als Dateiname gespeichert werden... aber aktiv ist ja Tabelle B, die ja auch gespeichert werden soll. Ich komme leider nicht weiter - könnte mir jemand weiterhelfen?
Nicht wundern, das Makro wurde teils durch click und play erstellt oder zusammenkopiert.
vorab: Inhalt H6 z.B. 03/2019
-----
' Filtern der Ergebnisse
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("sb_BERICHTE").Select
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("A:I").AutoFilter Field:=6, Criteria1:="0001-01"
ActiveSheet.Range("A:I").AutoFilter Field:=8, Criteria1:=""
ActiveSheet.Range("A:I").AutoFilter Field:=4, Criteria1:=""
ActiveSheet.Range("A:I").AutoFilter Field:=9, Criteria1:="="
ActiveWorkbook.Worksheets("sb_BERICHTE").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("sb_BERICHTE").AutoFilter.Sort.SortFields.Add Key:= _
Range("C:C"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("sb_BERICHTE").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Sichtbare Ergebnisse kopieren und in neue Mappe einfügen
Range("A:H").SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("F:G,I:I").Select
Selection.Delete Shift:=xlToLeft
ActiveSheet.Range("A:F").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6 _
), Header:=xlYes
ChDir "M:\Dokumente\xxx\Daten aufbereitet"
ActiveWorkbook.SaveAs Filename:= _
"M:\Dokumente\xxx\Daten aufbereitet\yyy.xlsx ", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close SaveChanges:=True
Cells.Select
Selection.AutoFilter
Sheets("Arbeitsblatt").Select
-----
Ein Einfügen von
-----
ActiveWorkbook.SaveAs Filename:= _
"M:\Dokumente\xxx\Daten aufbereitet\yyy" & Sheets("Arbeitsblatt").Range("H6").Value & ".xlsx ", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
-----
endet leider mit einem Laufzeitfehler...
Tabelle A hat einen Blattschutz aktiv über H6.
Bin dankbar für jede Hilfe :)