Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter ausblenden, sobald bestimmter Wert in Zelle

Forumthread: Tabellenblätter ausblenden, sobald bestimmter Wert in Zelle

Tabellenblätter ausblenden, sobald bestimmter Wert in Zelle
03.09.2024 10:40:42
Oliorlando
Servus miteinander,
ich möchte die Tabellenblätter 2 bis 6 ausblenden, sobald in Tabellenblatt 1 eine Zelle mithilfe der "Dropdown-Funktion" einen bestimmten Wert / Text erreicht. Sobald sich dieser Text wieder ändert, sollen die Tabellenblätter wieder eingeblendet werden. Ist das mit VBA möglich? Wenn ja wie?
Vielen Dank schonmal und freundliche Grüße
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter ausblenden, sobald bestimmter Wert in Zelle
03.09.2024 12:03:42
GerdL
Moin,

ins Modul von Blatt 1 kopieren; Adresse der Datengültigkeit u. den Auswahlwert bitte anpassen. 
Private Sub Worksheet_Change(ByVal Target As Range)



    Dim a As Integer

    

    If Target.Address(0, 0) = "B3" Then

        For a = 2 To 6

            Worksheets(a).Visible = Not LCase(Target) = "test"

        Next

    End If



End Sub

Gruß Gerd
Anzeige
AW: Tabellenblätter ausblenden, sobald bestimmter Wert in Zelle
03.09.2024 12:12:14
Oliorlando
Hi Gerd,
vielen Dank für die schnelle Antwort. Ich verstehe noch nicht ganz, was du mit Adresse der Datengültigkeit bzw. Auswahlwert meinst.
Gruß
AW: Tabellenblätter ausblenden, sobald bestimmter Wert in Zelle
03.09.2024 12:37:56
GerdL
Hi

Bei meinem Code sitzt die Datengültigkeit "über" der Zelle B3 u. ausgeblendet wird, wenn damit "test" ausgewählt wird.

Gruß Gerd
Anzeige
AW: Tabellenblätter ausblenden, sobald bestimmter Wert in Zelle
03.09.2024 12:59:43
Oliorlando
Super! Vielen Dank schonmal. Das bedeutet für mich, dass ich in deinen Code in der Tabelle 1 eingebe und dann statt "B3", die Zelle eingebe, welche bei mir den bestimmten Wert "XYZ" erreichen muss. Danach muss ich das Wort "test" durch "XYZ" ersetzen?
Geht folgendes auch, wenn meine Tabellenblätter nicht "1";"2";"3";... heißen sondern z.B. "ABC";"DEF";"GHI";"JIK";...?
Gruß
Oli
PS: tut mir leid, bin noch totaler VBA Anfänger...
Anzeige
AW: Tabellenblätter ausblenden, sobald bestimmter Wert in Zelle
03.09.2024 13:20:47
GerdL
Hallo O.

Ich hatte für den Blattindex gecodet (Stellung Blattindex 2 bis 6 - von links).

Mit den Blattnamen geht es auch; hier mal für "alle übrigen" Arbeitsblätter . 

Private Sub Worksheet_Change(ByVal Target As Range)



    Dim Blatt As Worksheet

    

    If Target.Address(0, 0) = "B3" Then

        For Each Blatt In ThisWorkbook.Worksheets

            If Blatt.Name > Me.Name Then 'nicht im Blatt mit diesem Code / der Datenprüfung

            Blatt.Visible = Not LCase(Target) = "test"

            End If

       Next

    End If



End Sub

Gruß Gerd
Anzeige
AW: Tabellenblätter ausblenden, sobald bestimmter Wert in Zelle
03.09.2024 14:23:02
Oliorlando
Ich glaube ich stelle mich zu doof an. Bei mir funktioniert aktuell gar nichts in meiner Excel Datei. 

Private Sub Worksheet_Change(ByVal Target As Range)



    Dim a As Integer

    

    If Target.Address(0, 0) = "D37" Then

        For a = 2 To 6

            Worksheets(a).Visible = Not LCase(Target) = "XYZ"

        Next

    End If



End Sub


Habe es jetzt so eingefügt.
Anzeige
AW: Tabellenblätter ausblenden, sobald bestimmter Wert in Zelle
03.09.2024 15:08:26
UweD
Hallo

so?

Bei Änderungen in Zelle D37 wird geprüft, ob deren Inhalt = test ist.
Dann werden alle Blätter durchlaufen und die Aufgelisteten dann ausgeblendet
Ist der Inhalt nicht test, wird eingeblendet 

Private Sub Worksheet_Change(ByVal Target As Range)



    Dim Blatt As Worksheet

    

    If Target.Address(0, 0) = "D37" Then

        For Each Blatt In ThisWorkbook.Worksheets

            Select Case Blatt.Name

                Case "DEF", "GHI", "VWX" '...

                Blatt.Visible = Not LCase(Target) = "test"

            End Select

       Next

    End If



End Sub


LG UweD
Anzeige
AW: Tabellenblätter ausblenden, sobald bestimmter Wert in Zelle
09.09.2024 10:23:33
Oliorlando
Vielen Dank Uwe,
ich habe leider noch nie mit VBA gearbeitet, daher weiß ich jetzt nicht genau, was ich an deinem Code ändern muss, sodass es bei mir funktioniert. Ich habe "DEF", "GHI" und "VWX" in meine Tabellenblätter umbenannt. Außerdem habe ich "test" in mein Wording abgeändert... habe ich etwas vergessen zu machen?
Gruß
Oli
Anzeige
;

Forumthreads zu verwandten Themen

Messagebox wenn bestimmter Wert überschritten
Heiderer

Hallo!
Folgende Ausgangssitutation:
In Spalte C stehen Zahlen, in Spalte D stehen Zahlen. In Spalte E wird der Prozent-Satz davon berechnet. Ich will nun, dass Excel automatisch jedes mal eine Messagebox auswirft, wenn in Spalte E der Prozent-Satz größer gleich 100 beträgt, aber auch er...
07.09.2008 08:11:59
Thread-ID: 1007920
2 Beiträge
Zellen bestimmter Werte in ListBox listen
Harry

Wie können aus einer Ecxel-Tabelle (z. B.: A1-E150) nur die Zeilen in eine List- oder ComboBox gelistet werden, bei denen in der Spalte E der Wert (z.B.) 2 oder größerer ist?
Alle Zellen in Spalte E1 bis E150 haben einen numerischen Inhalt.
Besten Dank für jede Hilfe Harry
13.01.2009 13:51:23
Thread-ID: 1039228
10 Beiträge
Anzeige
Bestimmter Wert nur im aktuellen Monat eintragen
mike49

Hallo,
ich habe die Monatsnamen (Januar bis Dezember) im Bereich A19:A30 stehen. Nun möchte ich, dass der gleichbleibende Wert 400 im entsprechenden Bereich E19:E30 nur bis zum einschließlich aktuellen Monat eingetragen wird. In den Folgemonaten soll 0,00 stehen.
Gibt es hierfür eine Ma...
08.05.2009 17:06:57
Thread-ID: 1073955
3 Beiträge
Anzeige
unterster bestimmter Wert suchen
Jan

Hallo zusammen
ich habe da eine Liste mit folgenden z.B Werten in Spalte A:
A
D
F
F
H
B
R
G
F
S
S
D
GH
J
G
S
E
FG
G
Jetzt möchte ich die Zeilennummer vom untersten "S" der Spalte A haben...
Wie mach ich das...
05.06.2009 07:31:22
Thread-ID: 1079307
7 Beiträge
Summe bestimmter Werte in einer Spalte
Michael

Hallo zusammen,
bin neu hier und hätte eine Frage bezüglich der Berechnung einer Summe. Folgendes Szenario: Ich möchte in B1 eine Summe berechnen aus Werten der B Spalte. Soweit klar! Die einzelnen Werte in Spalte B werden in jeder Zeile mit einem Wert aus der A Spalte "nebenan" berechnet....
17.06.2009 20:47:04
Thread-ID: 1082369
2 Beiträge
bestimmter Wert einer Tabelle
ing.grohn

Hallo Forum,
eine bescheidene Frage:
meine Tabelle besteht aus Zeilen und Spalten (7 * 13)
die erste Zeile enthält die Überschriften (1 -12)
die erste Spalte enthält ebenfalls Beschriftungen (1 - 6)
Aufgrund der beiden Werte der Überschriften möcht ich auf den Wert der entsp...
22.07.2009 12:49:55
Thread-ID: 1090497
4 Beiträge
Bereich nur markieren wenn bestimmter Wert | Herbers Excel-Forum
jens
Hallo Forumsteilnehmer,
ich möchte einen Bereich markieren - aber nur solange bis ein bestimmter Wert "Ende" auftaucht.
Ich habe im Bereich C1:F25 Formeln.
Bis zu einer bestimmten Zeile stehen in Spalte C irgendwelche Werte und ab dann nur noch "Ende".
Ich möchte jetzt mit einem Mak...
19.01.2010 12:34:07
Thread-ID: 1130996
25 Beiträge
Anzeige
Zeile löschen wenn bestimmter Wert
Simon

Hallo zusammen,
ich weiß es gibt schon Einträge zu dem Thema, aber ich bekomms einfach nicht hin.
Ich habe eine Datei, die 40000 x-y-z Koordinaten enhält (x in Spalte A, y in Spalte B und z in Spalte C)
Jetzt möchte ich alle Zeilen löschen die einen bestimmten y-Wert haben (Beispiel...
21.02.2011 11:08:18
Thread-ID: 1202039
3 Beiträge
Zellen verknüpfen wenn bestimmter Wert
Olly

Hallo Leute,

ich möchte wenn z.B. in Tabelle1 in Zelle A1 eine Name oder Zahl/Kundennummer steht in Bezug darauf aus Tabelle2/Adressdatei die dazugehörige Adresse in Tabelle 3 in den Zellen A2, B2 und C2 erscheinen lassen. Wie muß ich vorgehen?
Danke für Eure Hilfe
Oli
25.05.2002 19:31:23
Thread-ID: 123700
7 Beiträge
bestimmter Wert in Textbox
Ingo

Hi,
ich habe eine Exceltabelle, die wie folgt aussieht:
Tabelle1 BCD1DatumZweckBetrag227.01.2011Einkauf1,00327.01.2011Essen2,00427.01.2011Unterkunft3,00528.01.2011Einkauf4,00628.01.2011Essen5,00728.01.2011Unterkunft6,00829.01.2011Einkauf7,00929.01.2011Essen8,001029.01.2011Unterkunf...
18.05.2011 12:20:30
Thread-ID: 1214969
3 Beiträge
Anzeige
Bestimmter Wert in anderer Schrift
Heinz

Hallo Leute
Ich habe in G7:G42 einen Text in "Arial" Grösse "12" stehen.
Nun möchte ich wenn zB. eine 1 oder 2 bis 50 steht, das mir die Zahlen in der Schriftart
"CombiNumeralsLtd" Grösse 16 formatiert wird.
Hätte dazu bitte jemand eine Hilfe anzubieten?
Gruß
Heinz
11.06.2011 10:54:40
Thread-ID: 1218129
9 Beiträge
Bestimmter Wert in anderer Schrift
Heinz

Hallo im Forum
Ich hatte vor einigen Tagen,das untere Makro von Josef Ehrensberger bekommen.
Hier wird in L7:P34 eine Zahl in der Schriftart "CombiNumerals Ltd" umgewandelt.
Nur wenn ich zB. in C31 einen Wert reinschreibe,bekomme ich einen Makrofehler in der Zeile
"For Each rng...
15.06.2011 17:01:36
Thread-ID: 1218492
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige