Office: (Office 2010) Tabellenblätter in Excel automatisch ausblenden

Guten Morgen,

ich bin neu hier und habe ein Problem, dessen Lösung ich nicht finde.

Ich brauche ein Makro, welches alle meine Blätter in der Exceltabelle durchsucht und dieses Blatt ausblendet, wenn N2 dieses Blattes (also variabel) ungleich E2 des ersten Blattes (immer gleich) ist.

Ich hoffe, ihr versteht mich und noch mehr hoffe ich, ihr könnt mir helfen.

DANKE

 

Hallo,

Code:

Option Explicit

'Makro, welches alle meine Blätter in der Excel-Mappe durchsucht und
'diejenigen Blätter ausblendet,
'in denen die Zelle N2 ungleich der Zelle E2 des ersten Blattes ist.

Public Sub Blatt_Ausblenden_Variabel()
  Dim Ws As Worksheet
  Dim WertE2 As Variant
  
  On Error Resume Next
  WertE2 = Worksheets(1).Range("E2").Value
  
  For Each Ws In ActiveWorkbook.Worksheets
    If Ws.Range("N2").Value <> WertE2 Then Ws.Visible = xlSheetHidden
  Next Ws
  
End Sub

 

Hammer!!!

Danke, klappt wunderbar. Leider nur einmal. Sollte also E2 und N2 geändert werden, zeigt der bereits versteckte Blätter nicht an, obwohl sie vielleicht diesmal zum anzeigen wären.

Trotzdem DANKE für die SCHNELLE Antwort

 

Hallo,

vom Wiedereinblenden hast du im 1. Posting nichts geschrieben. Es ist aber ganz leicht realisierbar:

Code:

Option Explicit

Public Sub Blatt_Ausblenden_Variabel()
  Dim Ws As Worksheet
  Dim WertE2 As Variant
  
  On Error Resume Next
  WertE2 = Worksheets(1).Range("E2").Value
  
  For Each Ws In ActiveWorkbook.Worksheets
    Ws.Visible = Ws.Range("N2").Value = WertE2
  Next Ws
  
End Sub