ich bin auf der Suche nach einer funktionierenden Lösung für folgendes Problem:
Ich benutze den Autofilter in VBA und dann anschließend möchte ich den Autofilter zurücksetzen und nochmals anwenden.
Im Code sieht das Ganze so aus:
Sub TabelleFiltern()
'Daten löschen
ThisWorkbook.Worksheets("Daten Frontend").Range("D11:W12").Cells.Clear
ThisWorkbook.Worksheets("Daten Frontend").Range("D17:W19").Cells.Clear
ThisWorkbook.Worksheets("Tabelle1").Activate
ActiveSheet.Range("A3:U2000").AutoFilter
'1
'Filtern nach Fachteam
ThisWorkbook.Worksheets("Tabelle1").Range("A3:U2000").AutoFilter 5, "Front"
'Filtern nach SI Check
ThisWorkbook.Worksheets("Tabelle1).Range("A3:U2000").AutoFilter 1, "1"
'Filtern nach VKBG
ThisWorkbook.Worksheets("Tabelle1").Range("A3:U2000").AutoFilter 13, "ü"
'Information transponiert in ein anderes Tabellenblatt kopieren
'(Transponiert und ohne Format zu übertragen)
ThisWorkbook.Worksheets("Tabelle1").Activate
ThisWorkbook.Worksheets("Tabelle1").Range("I3:I2000").Select
Selection.Copy
ThisWorkbook.Worksheets("Daten Front").Activate
ActiveSheet.Range("D11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
ThisWorkbook.Worksheets("Tabelle1").Activate
ThisWorkbook.Worksheets("Tabelle1").Range("U3:U2000").Select
Selection.Copy
ThisWorkbook.Worksheets("Daten Front").Activate
ActiveSheet.Range("D12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
If Worksheets("Tabelle1").AutoFilterMode Then Selection.AutoFilter
ThisWorkbook.Worksheets("T-GAP").ShowAllData
'2
'Filtern nach Fachteam
ThisWorkbook.Worksheets("Tabelle1").Range("A3:U2000").AutoFilter 5, "Front"
'Filtern nach SI Check
ThisWorkbook.Worksheets("Tabelle1").Range("A3:U2000").AutoFilter 1, "2"
'Filtern nach VKBG
ThisWorkbook.Worksheets("Tabelle1").Range("A3:U2000").AutoFilter 13, "ü"
'Information transponiert in ein anderes Tabellenblatt kopieren
'(Transponiert und ohne Format zu übertragen)
ThisWorkbook.Worksheets("Tabelle1").Activate
ThisWorkbook.Worksheets("Tabelle1").Range("I3:I2000").Select
Selection.Copy
ThisWorkbook.Worksheets("Daten Front").Activate
ActiveSheet.Range("D17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
ThisWorkbook.Worksheets("Tabelle1").Activate
ThisWorkbook.Worksheets("Tabelle1").Range("U3:U2000").Select
Selection.Copy
ThisWorkbook.Worksheets("Daten Front").Activate
ActiveSheet.Range("D18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
If Worksheets("T-GAP").AutoFilterMode Then Selection.AutoFilter
ThisWorkbook.Worksheets("T-GAP").ShowAllData
End Select
Nun das konkrete Problem:
Die Daten der ersten der Funktion "1" werden genau wie gewünscht in das Tabellenblatt Daten Front geschrieben. Bei "2"
schreibt die Funktion ebenfalls dir Inhalte aus "1" rein und dann die von "2". Allerdings möchte ich dort logischerweise nur die
Inhalte aus "2" drin stehen haben.
Ich hab es bereits mit der Funktion .ShowAllData probiert, das funktioniert leider nicht.
Danke für eure Hilfe!