Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt in Abhängigkeit von Zellinhalt einblenden

Blatt in Abhängigkeit von Zellinhalt einblenden
18.10.2012 00:06:35
Zellinhalt
Hallo zusammen,
ich habe eine Excel-Tabelle mit mehreren Tabellenblättern.
Wenn die Excel-Datei geöffnet wird soll nur das 1.Tabellenblatt "Stammdaten" sichtbar sein.
Im 1. Tabellenblatt steht in den Zellen B8, B9, B10, B11 entweder ein "Nein" oder "Ja".
Wenn in die entsprechenden Zelle z.B. B8 ein "Ja" geschrieben wird sollte das Tabellenblatt "XYZ" eingeblendet werden.
Wenn in die entsprechenden Zelle z.B. B8 wieder ein "Nein" geschrieben wird sollte das Tabellenblatt "XYZ" ausgeblendet werden.
Über Eure Hilfe bin Ich dankbar
W.Brendow

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt in Abhängigkeit von Zellinhalt einblenden
18.10.2012 00:21:09
Zellinhalt
Hallo,
Teil 1 mit dem Start kann ich dir erfüllen
'Diesen Code in Diese Arbeitsmappe 
Private Sub Workbook_Open()
Dim blatt As Object
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
Sheets("Stammdaten").Visible = True
For Each blatt In Sheets
If blatt.Name  ("Stammdaten") Then
blatt.Visible = xlVeryHidden
End If
Next blatt
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub
Das Andere fehlen Angaben zu den Blattnamen, ich vermute B8 steuert BlattX B9 BlattY usw.oder?
das kann morgen wer Anderes machen
Matze

Anzeige
AW: Blatt in Abhängigkeit von Zellinhalt einblenden
18.10.2012 00:27:59
Zellinhalt
Blattname B8 "Tabelle2"
Blattname B9 "Tabelle3"
Blattname B10 "Tabelle4"
Blattname B11 "Tabelle4"
Gruß
Brendow

AW: Blatt in Abhängigkeit von Zellinhalt einblenden
18.10.2012 08:18:14
Zellinhalt
Hi Brendow,
https://www.herber.de/bbs/user/82173.xls
beim nächsten Mal: wenn du eine abgespeckte Beispielstruktur vorgibst und hochlädst, wird es für die Helfer viel einfacher - und du musst das nicht mehr auf deine Datei umstricken sondern kannst einfach C&P machen.
viel Spass!
Grüße,
Klaus M.vdT.

AW: Blatt in Abhängigkeit von Zellinhalt einblenden
18.10.2012 21:52:55
Zellinhalt
Dankeschön für die schnelle Hilfe
Gruß
Brendow

Anzeige
Danke für die Rückmeldung! owT.
22.10.2012 08:23:56
Klaus
.

AW: Blatt in Abhängigkeit von Zellinhalt einblenden
18.10.2012 08:33:29
Zellinhalt
Hallo
Ist eine unlogische Zuweisung der Tabellen.
B10 und B11 könnten unterschiedlich sein, was soll dann mit Tabelle4 geschehen?
Ich hab mal angenommen:
B8 =Tabelle1
B9 =Tabelle2
B10 =Tabelle3
B11 =Tabelle4
kannst du ja abändern
rechtsclick auf den Tabellenblattreiter "Stammdaten"
im neuen Fenster den Code reincopieren
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Not Intersect(Target, Range("B8:B11")) Is Nothing Then
Select Case Target.Row
Case 8 'Tabelle1
If UCase(Target) = "JA" Then
Sheets("Tabelle1").Visible = True
ElseIf UCase(Target) = "NEIN" Then
Sheets("Tabelle1").Visible = xlVeryHidden
End If
Case 9 'Tabelle2
If UCase(Target) = "JA" Then
Sheets("Tabelle2").Visible = True
ElseIf UCase(Target) = "NEIN" Then
Sheets("Tabelle2").Visible = xlVeryHidden
End If
Case 10 'Tabelle3
If UCase(Target) = "JA" Then
Sheets("Tabelle3").Visible = True
ElseIf UCase(Target) = "NEIN" Then
Sheets("Tabelle3").Visible = xlVeryHidden
End If
Case 11 'Tabelle4
If UCase(Target) = "JA" Then
Sheets("Tabelle4").Visible = True
ElseIf UCase(Target) = "NEIN" Then
Sheets("Tabelle4").Visible = xlVeryHidden
End If
End Select
End If
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
gruß UweD

Anzeige
AW: Blatt in Abhängigkeit von Zellinhalt einblenden
18.10.2012 21:53:37
Zellinhalt
Dankeschön für die schnelle Hilfe
Gruß
Brendow

300 Forumthreads zu ähnlichen Themen

Diagramm mit stündlicher Skalierung/X-Achse
Jan

Hallo zusammen,
ich möchte in Excel ein Diagramm erstellen. Allerdings will ich bei der Zeitachse (X-Achse) eine Unterteilung in Stunden (nicht wie üblich in Tagen).
Ist das möglich ?
Vielen Dank im voraus !
Gruss Jan
08.09.2008 12:29:00
Thread-ID: 1008115
2 Beiträge
Anzeige
Skalierung eines Diagramms (Y-Achse)
Herbert

Hallo,
ich möchte gern die Y-Achse eines erstellten Liniendiagramms skalieren. Leider kann ich diese nicht ändern. Egal, was ich eintrage, die Skalierung ändert sich nicht. Über den eigentlichen Eingabefeldern steht das Wort "Automatisch".
Was mache ich falsch?
Gruß Herbert
05.01.2009 17:06:51
Thread-ID: 1037039
2 Beiträge
Diagramm Werte und Achsen dynamisch verändern
Niko

Hallo zusammen,
ich bin ziemlich am verzweifeln, da ich nun schon seit Stunden an einem Problem sitze und auch das Internet bereits abgesucht habe, aber leider ohne Erfolg. Deshalb wende ich mich an Euch und hoffe ihr könnt helfen:
Und zwar habe ich in einer Mappe 10 Diagramme angelegt,...
28.01.2009 11:12:40
Thread-ID: 1044498
9 Beiträge
Anzeige
3D-Diagramm y-Achse Schattierung wie Legende
Martin

Liebe Leute,
ich habe ein 3-Diagramm (Oberfläche) erstellt. Die y-Werte können anhand der Oberflächen-Abschnitts-Farbe und über die Legende abgelesen werden.
Nun wäre es viel komfortabler, die Legenden-Farben direkt auf der yz-Fläche zu haben. Dann hätte man die direkte Zuordnung.
K...
10.02.2009 21:44:00
Thread-ID: 1049345
2 Beiträge
Löschen von Datenreihen in XY Diagramm
Datenreihen

Hallo Liebe Excel-Experten,
Dieses Problem habe ich bereits in einem anderen Forum gepostet. Dort konnte aber leider niemand mein Problem lösen. Deshalb habe ich es im anderen Forum als erledigt markiert und erwarte auch keine Antwort mehr.
Viel mehr hoffe ich, dass Ihr mir weiterhelfen...
17.02.2009 13:08:00
Thread-ID: 1051455
3 Beiträge
Diagramm y-Achse bei Minimum x-Achse schneiden
Marco

Hallo zusammen.
Ich erstelle per VBA aus einer generierten .txt Datei, ein Excelblatt, in dem immer 2 Datenreihen als Diagramm dargestellt werden. (3 Diagramme)
Mein Problem ist nun, dass ich die y-Achse, der Übersichtlichkeit halber, am Minimum der x-Achse Schneiden soll.
Habe geda...
05.03.2009 09:32:13
Thread-ID: 1056671
4 Beiträge
Farbumschlag von Aufwärtsbalken in Diagrammen
Aufwärtsbalken

Hallo zusammen,
ich habe folgendes Problem: Ich benutze die Darstellung von Aufwärts- und Abwärtsbalken (Pos./Neg. Abweichung) zur Darstellung von s.g. "Brückendiagrammen". Dabei stelle ich die Pos. und Neg. Abw. in unterschiedlichen Farben dar. Hierbei stoße ich auf das Problem, dass klein...
25.03.2009 07:14:34
Thread-ID: 1063552
3 Beiträge
Diagramm mit dynamischer Rubrikenachse
Dieterlem

Hallo Excelfreunde,
ich möchte ein Diagramm erstellen. Je nach dem ändert sich die Anzahl der zu anzeigenden Rubriken.
Es gibt 20 Rubriken, die ich im Datenbereich erfasst habe. In einigen Fällen werden nicht alle Rubriken verwendet (Eintrag im Datenbereich = "" Wert =0) wie kann ich da...
03.05.2009 10:53:43
Thread-ID: 1072501
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
1
8
2
1
2
3
2
3
5
1
1
2
4
2
2
6
3
8
2
3
5
3
8