Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler bei ShowAllData
30.05.2023 10:59:26 Schäffler
NotSolved
30.05.2023 13:45:22 Mase
NotSolved
30.05.2023 14:31:17 Schäffler
NotSolved
31.05.2023 14:10:55 Mase
NotSolved
31.05.2023 15:07:48 Mase
NotSolved
02.06.2023 08:25:47 Schäffler
NotSolved
02.06.2023 09:17:12 Mase
NotSolved
02.06.2023 11:50:50 Mase
Solved
02.06.2023 12:32:07 Schäffler
NotSolved

Ansicht des Beitrags:
Von:
Schäffler
Datum:
30.05.2023 10:59:26
Views:
360
Rating: Antwort:
  Ja
Thema:
Laufzeitfehler bei ShowAllData

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler bei ShowAllData
30.05.2023 10:59:26 Schäffler
NotSolved
30.05.2023 13:45:22 Mase
NotSolved
30.05.2023 14:31:17 Schäffler
NotSolved
31.05.2023 14:10:55 Mase
NotSolved
31.05.2023 15:07:48 Mase
NotSolved
02.06.2023 08:25:47 Schäffler
NotSolved
02.06.2023 09:17:12 Mase
NotSolved
02.06.2023 11:50:50 Mase
Solved
02.06.2023 12:32:07 Schäffler
NotSolved