Ich brauche mal Unterstützung bei folgendem Code
Ich möchte per Code nur das Autofilterergebnis der Spalte A und X in das neue Sheet
nach A und B beginnend mit A1 (keine Überschriften) kopieren...aber ich bin irgendwie Blind...!
Sub AutoFilter_Copy_2_Columns()
Dim wksFilter As Worksheet
Dim wksZiel As Workbook
Dim Zeile1&, Zeile2&, Spalte1&, Spalte24&
Set wksFilter = ActiveSheet
Set wksZiel = Workbooks.Open("Pfad..\blabla\istunwichtig.xlsm", ReadOnly:=False) 'Ziel, hier _
den richtigen Pfad eingeben!
With wksFilter
With .AutoFilter.Range
Zeile1 = .Row + 1
Zeile2 = .Row + .Rows.Count - 1
Spalte24 = .Column + .Columns.Count - 1
Spalte1 = Spalte2 - 1
End With
.Range(.Cells(Zeile1, Spalte1), .Cells(Zeile2, Spalte24)).SpecialCells(xlCellTypeVisible). _
Copy
End With
With wksZiel.Sheets("60 Teil 1")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End With
Application.CutCopyMode = False
End Sub
Vielen Dank schon einmal im Voraus,MfG
Thorben