Hallo an alle,
muss euch schon wieder nerven.
Bei unten aufgeführten VBA wird in Tabelle1 der Autofilter leider gelöscht.
Wie kann ich dies verhindern?
Vielen Dank für eure Unterstützung.
Gruß, Pet
Option Explicit
Sub SORT()
Dim Tab1 As Worksheet, Tab4 As Worksheet
Dim A As Long
Dim kritBereich As Range
Set Tab1 = Tabelle1 'Quelltabelle
Set Tab4 = Sheets("Temp") 'Ziehltabelle
Tab4.Range("A6:Z" & Tab4.Rows.Count).Clear 'Bereich leeren
With Tab1
For A = 1 To 14
'Filterkriterium festlegen************************
If A = 1 Then
Set kritBereich = Tab4.Range(Tab4.Cells(1, A), Tab4.Cells(3, A))
Else
Set kritBereich = Tab4.Range(Tab4.Cells(1, A), Tab4.Cells(2, A))
End If
Debug.Print kritBereich.Address
'Spezialfilter anwenden***************************
.Range("A3:AR10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
kritBereich, CopyToRange:=Tab4.Cells(5, A), Unique:=False
Next A
Tab4.Range("A6:N" & Tab4.Cells.SpecialCells(xlCellTypeLastCell).Row).Copy
Tabelle3.Range("A6").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Tab4.Range("A6:Z" & Tab4.Rows.Count).Clear 'Bereich leeren
End With
Set Tab1 = Nothing
Set Tab4 = Nothing
End Sub