Thema Datum  Von Nutzer Rating
Antwort
09.10.2014 11:25:53 Lila
NotSolved
Blau Filter zurücksetzen bei Öffnen des Workbooks
 09.10.2014 19:22:30 Gast78357
NotSolved

Ansicht des Beitrags:
Von:
Gast78357		 Datum:
09.10.2014 19:22:30		 Views:
1094		 Rating:
     
Antwort:
  Ja
Thema:
Filter zurücksetzen bei Öffnen des Workbooks		 
Sub tt()
Dim oWs As Worksheet

On Error GoTo errh

   For Each oWs In ActiveWorkbook.Sheets
         
         If oWs.FilterMode Then
            oWs.ShowAllData
         End If
         If oWs.AutoFilterMode Then
            oWs.AutoFilterMode = False
         End If
         
   Next oWs

errh:
Select Case Err.Number
   Case 0
   Case 1004
      Call MsgBox("Abbruch in Tabelle: " & oWs.Name, vbExclamation, _
         "Blattschutz aktiv ?")
   Case Else
      Call MsgBox("Abbruch in Tabelle: " & oWs.Name, vbExclamation, _
         "unbekannter Fehler")
End Select
End Sub

 

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
09.10.2014 11:25:53 Lila
NotSolved
Blau Filter zurücksetzen bei Öffnen des Workbooks
 09.10.2014 19:22:30 Gast78357
NotSolved