Thema Datum  Von Nutzer Rating
Antwort
Rot Filter auf mehreren Blättern schalten
08.06.2022 13:56:44 Gast123
NotSolved

Ansicht des Beitrags:
Von:
Gast123
Datum:
08.06.2022 13:56:44
Views:
99
Rating: Antwort:
  Ja
Thema:
Filter auf mehreren Blättern schalten

Hallo Zusammen,

ich bin kompletter VBA Anfänger und komme hier gerade nicht weiter.

 

Ich möchte in einem Drop-Down Menü eine von drei "Anlagen" auswählen.

Anschließend klicke ich auf einen Button "konfigurieren".

Dementsprechend soll auf allen Blättern (mit ein paar Ausnahmen) die Filter gesetzt werden (In diesem Fall "X").

 

Folgendes habe ich mir irgendwie zusammekopiert:

Sub FilterAufAllenBlätternSchalten()

Dim Blatt As Object
For Each Blatt In Worksheets
Select Case Blatt.Name
Case "WsÜbersicht", "WsAllgmeinePrüfpunkte", "WsPrüfprotokoll", "WsAuswahlwerte", "WsBemaßungsvorlage", "WsÄnderungshistorie"
Case ElseBlatt.Range("Filter_Kühlring").AutoFilter Field:=1, Criteria1:="X"
Next Blatt

End Sub

 

 

Kann mir bitte jemand meine Fehler erklären oder einen anderen Vorschlag machen?


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 Filter auf mehreren Blättern schalten
08.06.2022 13:56:44 Gast123
NotSolved