|
Hallo liebe Excel VBA Profis,
ich habe folgendes Problem. Ich würde gerne durch ein Makro einen Filter setzen, anschließend in die Druckansicht springen und hier von mehreren Tabellenblätter Teile beziehen. Bis hier hin Funktioniert auch noch alles. Jedoch will ich, dass sich im Anschluss der Filter automatisch wieder löscht, sodass ich das ungefilterte Datenblatt erhalte, wenn ich die Druckansicht abbreche.
Hierfür habe ich folgenden Code geschrieben, dabei können die If-Funktion vernachlässigt werden, da diese Funktionieren es liegt lediglich an der Auflösung des Filters:
Private Sub CommandButton1_Click()
Range("B50:B257").Select
Selection.AutoFilter
ActiveSheet.Range("$B$50:$B$262").AutoFilter Field:=1, Criteria1:=Array("WAHR", "", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10"), Operator:=xlFilterValues, VisibleDropDown:=False
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")).Select
Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
Worksheets("Tabelle2").ShowAllData
If Worksheets("Tabelle2").CheckBox9.Value = False Then
Rows(63).Hidden = True
....
End If
If Worksheets("Tabelle2").CheckBox10.Value = False Then
Rows(76).Hidden = True
....
End If
If Worksheets("Tabelle2").CheckBox127.Value = False Or CheckBox127.Value = True And CheckBox9.Value = True Or CheckBox127.Value = True And CheckBox10.Value = True Then
Rows(218).Hidden = True
....
End If
End Sub
Freue mich auf eine Antwort.
Mit freundlichen Grüßen
Schäffler
|