Tabellenblatt erst einblenden wenn Zellenwert größer 0,49 €

Forumthread: Tabellenblatt erst einblenden wenn Zellenwert größer 0,49 €

19.03.2025 09:34:14

Schmidtchen

Moin ihr Helfenden,
ich habe mal das Forum durchblättert, aber keine passende Hilfe gefunden.
Meine VBA Kenntnisse tendieren leider noch gen Null.
Ich habe eine Excel Datei mit recht vielen Tabellenblättern und möchte für mehr Übersicht einige Tabellenblätter erst dann einblenden lassen, wenn in einer bestimmten Zelle des vorangehenden Blattes einen bestimmten Wert übersteigt. Als Anlage ist nur ein kleiner Teil der eigentlichen Tabelle angefügt. https://www.herber.de/bbs/user/176331.xlsx

Problemstellung:
Getränke 2 soll erst eingeblendet werden, wenn in Getränke 1 Zelle I44 der Wert größer 0,49 € ist
Getränke 3 erst dann, wenn in Getränke 1 und Getränke 2 in Zelle I44 der Wert größer 0,49 € ist
und Getränke 4 dann eben erst wenn in Getränke 1 und 2 und 3 die Bedingung erfüllt ist.

Ich hoffe und denke, ihr könnt mir helfen.
Gruß Frank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenblatt erst einblenden wenn Zellenwert größer 0,49 €

19.03.2025 10:07:18

MCO

Moin!

Schau mal, ob das den Kern trifft.

Es werden vom aktuellen sheets jeweils aufgrund des Wertes in I44 die nachfolgenden Reiter ein/ausgeblendet.

Private Sub Worksheet_Change(ByVal Target As Range)



    Dim sh As Long

    'Bedingung sheets blendet ein + aus!

    For sh = ActiveSheet.Index + 1 To Sheets.Count

        Sheets(sh).Visible = Sheets(sh - 1).Range("I44") > 0.49

    Next

End Sub

Du musst diesen Code in das Modul jedes Tabellenblattes kopieren, es wird ausgelöst durch Änderungen auf dem Blatt.

Gruß, MCO

AW: Tabellenblatt erst einblenden wenn Zellenwert größer 0,49 €

19.03.2025 11:36:08

Schmidtchen

Moin,

soweit echt gut und es funktioniert auch - nur leider werden ALLE folgenden Tabellenblätter auch mit ausgeblendet, sobald in Getränke 1 nichts eingetragen wird.
Es muss also noch irgendein Zusatz rein, dass das Script nur bis zum Tabellenblatt Getränke 4 Gültigkeit hat, "Abrechnung" und folgende (jetzt nicht mit dabei) sollen immer eingeblendet bleiben.

Gruß Frank

AW: Tabellenblatt erst einblenden wenn Zellenwert größer 0,49 €

19.03.2025 11:45:30

MCO

Hi!

Dann tausche

For sh = ActiveSheet.Index + 1 To Sheets.Count

For sh = ActiveSheet.Index + 1 To Sheets("Getränke 4").index

Gruß, MCO

Tabellenblatt erst einblenden wenn Zellenwert größer 0,49 €

Forumthread: Tabellenblatt erst einblenden wenn Zellenwert größer 0,49 €

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Tabellenblatt erst einblenden wenn Zellenwert größer 0,49 €

Forumthread: Tabellenblatt erst einblenden wenn Zellenwert größer 0,49 €

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread