Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1960to1964
1960to1964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Zelle = ja, dann blende folgendes Tabellenblatt ein

Forumthread: Wenn Zelle = ja, dann blende folgendes Tabellenblatt ein

Wenn Zelle = ja, dann blende folgendes Tabellenblatt ein
25.01.2024 14:23:33
Theo
Moin an alle,

könnt Ihr mich mit folgendem Problem unterstützen:

Ich würde gerne per VBA Code folgende Funktion auslösen

Wenn in Tabellenblatt 2 die Zelle "B9" gleich "ja" ist, dann soll das Tabellenblatt "25", welches in der Leiste ausgeblendet ist eingeblendet werden, sodass man dort arbeiten kann.
Als nächstes soll in Tabellenblatt 2 die Zelle "B10" wenn sie gleich "ja" ist, das Tabellenblatt "8" einblenden. UND SO WEITER.

Ich danke euch jetzt schon mal für jede Hilfe.

Grüße
Theo
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn Zelle = ja, dann blende folgendes Tabellenblatt ein
25.01.2024 14:40:19
onur
" UND SO WEITER. " ? Sehr lustig.
Erst 25, dann 8 und dann ????
AW: Wenn Zelle = ja, dann blende folgendes Tabellenblatt ein
25.01.2024 14:45:59
Theo
Das und so weiter ist für mich selbst.
Also folgendes:
B11 aus Tabellenblatt 2 --> Tabellenblatt 9 einblenden
B12 aus Tabellenblatt 2 --> Tabellenblatt 10 einblenden

Gruß Theo
AW: Wenn Zelle = ja, dann blende folgendes Tabellenblatt ein
25.01.2024 16:18:02
Theo
Erst einmal vielen Dank Onur!

Da ich bereits im gleichen Tabellenblatt weitere Codes habe die unter dem Kopf --> Private Sub Worksheet_Change(ByVal Target As Range) stehen, werden diese nicht mehr abgespielt (die in kursiv):

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Range("B9:B12"), Target) Is Nothing Then Exit Sub
Sheets("Luftentfeuchtungsrotor").Visible = Sheets("Risikobetrachtung").Range("B9") = "JA"
Sheets("Jalousieklappe").Visible = Sheets("Risikobetrachtung").Range("B10") = "JA"
Sheets("Gehäuseradialventilator").Visible = Sheets("Risikobetrachtung").Range("B11") = "JA"
Sheets("FreilaufenderVentilator").Visible = Sheets("Risikobetrachtung").Range("B12") = "JA"

Set Target = Target.Cells(1) 'beachte nur die erste Zelle (Falls Zellen geändert wurden)
If Not Intersect(Target, Range("D8:D27")) Is Nothing Then
If LCase(Target.Value) = "ja" Then MsgBox "ACHTUNG - Nachweisdokument anpassen ", vbInformation, "Pop-Up Fenster"
End If
End Sub

Wie kann ich das so umschreiben, dass beide Codes funktionieren?

Danke!!

Beste Grüße
Anzeige
AW: Wenn Zelle = ja, dann blende folgendes Tabellenblatt ein
25.01.2024 16:19:40
onur
Meinst du, ich baue noch einmal deine bereits existierende Datei nach? Poste sie endlich mal.
AW: Wenn Zelle = ja, dann blende folgendes Tabellenblatt ein
25.01.2024 16:45:40
GerdL
Moin 
Private Sub Worksheet_Change(ByVal Target As Range)



    'beachte nur die erste Zelle (Falls Zellen geändert wurden)

    

    If Not Intersect(Range("B9:B12"), Target.Cells(1)) Is Nothing Then

    

        Sheets("Luftentfeuchtungsrotor").Visible = UCase$(Range("B9")) = "JA"

        Sheets("Jalousieklappe").Visible = UCase$(Range("B10")) = "JA"

        Sheets("Gehäuseradialventilator").Visible = UCase$(Range("B11")) = "JA"

        Sheets("FreilaufenderVentilator").Visible = UCase$(Range("B12")) = "JA"

    

    ElseIf Not Intersect(Target.Cells(1), Range("D8:D27")) Is Nothing Then

    

        If LCase(Target.Cells(1).Value) = "ja" Then _

        MsgBox "ACHTUNG - Nachweisdokument anpassen ", vbInformation, "Pop-Up Fenster"

    

    End If



End Sub

Gruß Gerd
Anzeige
AW: Vielen Dank onur und Gerd
25.01.2024 17:03:36
Theo
.
;

Forumthreads zu verwandten Themen

Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Anzeige
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Wenn Zelle enthält, dann
Rudolph

Hallo,
ich möchte mit .xls meine Kontodaten auswerten. Die Kontoauszugsdaten stehen in Spalte "D" auf dem Sheet "Kontodaten" Im selben Sheet Spalte "E" steht der Betrag. Das Sheet "Bezüge" enthält Namensfelder (z.B. "Auto" mit einer Auflistung der Tankstellen, KFZ-Versicherung o.ä.; "Lebens...
23.05.2009 14:30:40
Thread-ID: 1076853
5 Beiträge
Wenn Null nach Buchstaben, dann weglassen
mehmet

Guten Tag Forum,
in Spalte Q stehen folgende Werte:
ABX009
THG08
HJG0509
KLU00080
Nun möchte ich gern die Nullen weglassen, die hinter den Buchstaben stehen (incl. Buchstaben).
Das ganze sollte dann so aussehen:
9
8
509
80
Leider finde ich keine g...
13.10.2009 09:26:14
Thread-ID: 1109241
5 Beiträge
Anzeige
Wenn die aktive Zelle in letzter Zeile dann Makro
Karsten

Hallo,
Kann mir jemand bei folgeden Befehl helfen:
Wenn die aktive Zelle in der letzten Zeile (also unten, über dem Tabellennamen) des sichtbaren Bereichs steht, soll Makro1 ausgeführt werden. Wenn nicht, dann weiter.
Danke für eure Hilfe.
Gruß
Karsten
11.11.2009 15:07:54
Thread-ID: 1116229
3 Beiträge
Anzeige
wenn nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 Beiträge
Anzeige
Wenn übernomme Zelle leer - dann Ziel auch leer
Werner

Hallo,
ich habe eine hoffentlich einfache Frage:
Wenn ich in Zelle B10 schreibe =B6, so wird ja der Inhalt von B6 übernommen.
Wenn B6 aber leer ist, dann soll in B10 keine null erscheinen sondern diese soll auch leer bleiben.
Wie kann ich dies tun (außer über die Einstellungen v...
01.03.2010 11:58:44
Thread-ID: 1142333
3 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