Office: Tabellen ausblenden wenn Bedingung erfüllt

Florian151184 · 5. Februar 2013

Hallo zusammen,

ich hab folgendes Problem:

Ich möchte Tabellen mit dem Namen "Woche 1 - 2", "Woche 3 - 4", "Woche 5 - 6" und "Woche 7 - 8" automatisch ausblenden wenn in einem anderen Tabellenblatt in der Zelle "G18" ein bestimmter Wert steht z.B. Wenn der Wert kleiner ist als 5, dann sollen die Tabellen "Woche 5 - 6" und "Woche 7 - 8" ausgeblendet werden. Mein Problem ist das dieser Wert mit einer Wenn-Formel errechnet wird.

Kann mir da jemand helfen?

Danke schon mal im Vorraus

:)

GMG-CC · 7. Februar 2013

Hallo,

folgendes Makro macht das:
Code:

Option Explicit

Private Sub Worksheet_Calculate()
If Range("G18") < 5 Then
Sheets(Array("Woche 1 - 2", "Woche 3 - 4","Woche 5 - 6", "Woche 7 - 8")).Select
ActiveWindow.SelectedSheets.Visible = False
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Füge diesen Code in das Blatt ein, wo die Zelle G18 ausgewertet wird.

Florian151184 · 7. Februar 2013

Vielen Dank für die schnelle Antwort.
Funktioniert super. Da ist jetzt nur ein Problem.

Mit dem Beispiel wollte ich eigentlich sagen,

G18 = "" : alle Ausblenden
G18 = 1 oder 2: Woche 1 - 2 einblenden, Rest ausblenden
G18 = 3 oder 4: Woche 1 - 2 und Woche 3 - 4 einblenden, Rest
ausblenden
G18 = 5 oder 6: Woche 1 - 2, Woche 3 - 4 und Woche 5 - 6 einblenden,
den Rest ausblenden
G18 = 7 oder 8: Alle einblenden

So sollte es funktionieren.
Kannst du mir da auch noch helfen. Wär super

GMG-CC · 8. Februar 2013

Moin Florian,

also, ich gehe davon aus, dass die Tabelle, wo die WENN()-Formel drin steht, nie unsichtbar gemacht werden soll. Und ich denke, dass du eventuell noch mehr Monate zufügen willst. Dieses Makro sollte nun Erfolg zeitigen:
Code:

Private Sub Worksheet_Calculate()
Dim Sh As Worksheet

Select Case Range("G18").Value
Case 0, Empty '0 oder leer: alle ausblenden
For Each Sh In Sheets
If Left(Sh.Name, 5) = "Woche" Then Sh.Visible = xlSheetHidden
Next Sh
Case 1, 2 '1-2 anzeigen, Rest ausblenden
Call Ausblenden(1)
Case 3, 4 '1-2, 3-4 anzeigen, Rest ausblenden
Call Ausblenden(2)
Case 5, 6 '5-6 nicht ausblenden
Call Ausblenden(3)
Case 7, 8 'Alle einblenden
For Each Sh In Sheets
If Left(Sh.Name, 5) = "Woche" Then Sh.Visible = xlSheetVisible
Next Sh
End Select
End Sub

Sub Ausblenden(Blatt)
Dim Sh As Worksheet
Dim aWochen(3)
Dim i As Integer

aWochen(1) = "Woche 1 - 2"
aWochen(2) = "Woche 3 - 4"
aWochen(3) = "Woche 5 - 6"

For Each Sh In Sheets
If Left(Sh.Name, 5) = "Woche" Then Sh.Visible = xlSheetHidden 'Alle verstecken
Next Sh
For i = 1 To Blatt
Sheets(aWochen(i)).Visible = xlSheetVisible
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Florian151184 · 11. Februar 2013

Einfach genial. Das ist genau das was ich gesucht hab. Vielen Dank

Office: Tabellen ausblenden wenn Bedingung erfüllt

Tabellen ausblenden wenn Bedingung erfüllt

Tabellen ausblenden wenn Bedingung erfüllt

Tabellen ausblenden wenn Bedingung erfüllt

Tabellen ausblenden wenn Bedingung erfüllt - Similar Threads - Tabellen ausblenden Bedingung

Tabellenränder beim Druck ausblenden

Power Pivot-Berichterstellungseigenschaften: Ausblenden von Tabellen, Spalten und Feldern in ...

Ausblenden von Spalten und Tabellen in Power Pivot

Text/Tabelle ein- und ausblenden

Gitternetzlinien in Pivot-Tabelle ausblenden?

Filtern/Daten ausblenden in in Pivot-tabellen

Excel Tabelle nach füllen des Feldes, nächstes zur Bearbeitung freigeben