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?
|