Filtern und in Tabellenblatt springen
03.02.2019 15:05:57
Christian
mit meinen beschränkten VBA Fähigkeiten versuche ich gerade Pivot Tabellen in meiner Excel Mappe zu ersetzen um die Dateigröße zu reduzieren.
Die Mitarbeiter in meiner Abteilung schätzen Pivot Tabellen, weil man direkt mit einem Klick in die Rohdaten springen kann. Das müsste aber auch anders möglich sein, dachte ich mir.
Ich möchte vom Tabellenblatt Graph (TabGraph) über einen Button in das Tabellenblatt Shipset springen (TabDel) und vorab eine Filterung mit zwei Kriterien vornehmen.
Das erste Kriterium befindet sich in B2 und das andere in B3. Die zu filterenden Spalten befinden sich in T und in S im Tabellenblatt (TabDel)
Der Sprung in das Tabellenblatt klappt jedoch wird alles gefiltert. Wo könnte mein Fehler liegen?
Beste Grüße und vielen Dank
Christian
Private Sub CommandButton2_Click()
Dim loLetzte As Long
Dim wsDel As Worksheet
Dim wsGraph As Worksheet
Set wsDel = TabDel
Set wsGraph = tabGraph
With wsDel
.Application.Calculation = xlCalculationManual
If .AutoFilterMode = True Then
If wsDel.FilterMode Then wsDel.ShowAllData
Else
.Columns("A:V").AutoFilter
End If
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("S1:S" & loLetzte).AutoFilter Field:=19, Criteria1:=wsGraph.Range("B2")
.Range("T1:T" & loLetzte).AutoFilter Field:=20, Criteria1:=wsGraph.Range("B3")
Sheets("Delivery Status").Select
.Application.Calculation = xlCalculationAutomatic
End With
End Sub