Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
936to940
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
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Registerblatt ausblenden, wenn Bedingung erfüllt..

Registerblatt ausblenden, wenn Bedingung erfüllt..
03.01.2008 11:47:18
Evelyn
Hallo Zusammen,
ich hoffe, mir kann jemand bei folgendem Problem helfen.
Ich habe eine Arbeitsmappe, mit mehreren Registerblättern. Das erste Blatt ist ein Eingabeblatt, welches die jeweiligen Daten mit weiteren Arbeitsblättern verknüpft.
Im Eingabeblatt habe ich 3 Varianten: Abbruch, Bestand, Neubau. Zu jedem der 3 Varianten gibt es jeweils ein einzelnes Registerblatt. Über 3 Gültigkeitslisten im Eingabeblatt soll bestimmt werden, ob die Registerblätter eingeblendet oder ausblendet werden:
Abbruch (A1); Ja/Nein (B1); wenn B1=ja, dann Blatt "Abbruch" einblenden, sonst ausblenden
Bestand (A2); Ja/Nein (B2); wenn B2=ja, dann Blatt "Bestand" einblenden, sonst ausblenden
Neubau (A3); Ja/Nein (B3); wenn B3=ja, dann Blatt "Neubau" einblenden, sonst ausblenden
Vielen Dank für eure Hilfe!
Evelyn

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Registerblatt ausblenden, wenn Bedingung erfül
03.01.2008 11:54:00
Rudi
Hallo,
in den Code des Blatts:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B3")) Is Nothing Then
Sheets("Abbruch").Visible = Range("B1") = "Ja"
Sheets("Bestand").Visible = Range("B2") = "Ja"
Sheets("Neubau").Visible = Range("B3") = "Ja"
End If
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Registerblatt ausblenden, wenn Bedingung erfül
04.01.2008 17:47:00
Evelyn
Vielen Dank für die Antwort, aber wie mache ich das ganze denn jetzt wieder rückgängig? D.h. wenn ich in der dropdownliste (b1-B3) von nein auf ja wechsle, dass die Blätter dann wieder sichtbar werden und umgekehrt?
Vielen Dank, Evelyn

Anzeige
AW: Registerblatt ausblenden, wenn Bedingung erfül
04.01.2008 18:08:00
Hajo_Zi
Hallo Evelyn,
hast Du es mal getestet?
Ich interpretiere den Code mal so. Bei "Ja" in Zelle B1 wird die Tabelle "Abbruch" eingeblendet und bei jeder anderen Eingabe in B1 ausgeblendet.

AW: Registerblatt ausblenden, wenn Bedingung erfül
07.01.2008 15:25:00
Evelyn
Ja, habe ich. Das Makro funktioniert auch. Allerdings verschwinden alle drei Registerblätter, wenn ich irgendwo ein "nein" anstatt eines "ja" eingebe und es bleiben auch alle Blätter ausgblendet, wenn ich das "nein" wieder in ein "ja" unwandle.
Gruß, Evelyn

AW: Registerblatt ausblenden, wenn Bedingung erfül
07.01.2008 15:41:00
Hajo_Zi
Hallo Evelyn,
ich hae nicht das Problem, warum sollte ich das also nachbauen. Vielleicht solltest Du Deine Datei hochladen.
Gruß Hajo

Anzeige
AW: Registerblatt ausblenden, wenn Bedingung erfül
07.01.2008 15:58:18
Evelyn

Die Datei https://www.herber.de/bbs/user/48855.xls wurde aus Datenschutzgründen gelöscht


Hallo Hajo,
anbei die Datei zum basteln.
Viele Grüße, Evelyn

AW: Registerblatt ausblenden, wenn Bedingung erfüllt..
07.01.2008 18:02:11
Evelyn
Jetzt funktioniert's. Warum auch immer. Jedenfalls recht herzlichen Dank dazu und gleich noch eine kleine Frage. Genauso wie ich die Registerblätter ausgeblendet hab, möchte ich nun auch noch Zeilen (bspw. Zeile 45-70 für Abbruch, 71-90 für Bestand und 91-110 für Neubau) im Eingabeblatt ausblenden, wenn die bereits genannten Bedingen erfüllt sind.
Vielen Dank für die Hilfe im voraus.

Anzeige
AW: Registerblatt ausblenden, wenn Bedingung erfüllt..
07.01.2008 18:26:00
Hajo_Zi
Hallo Eveln,

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B3")) Is Nothing Then
With ActiveSheet
Sheets("Abbruch").Visible = Range("B1") = "Ja"
Rows("45:70").EntireRow.Hidden = Range("B1") = "Ja"
Sheets("Bestand").Visible = Range("B2") = "Ja"
Sheets("Neubau").Visible = Range("B3") = "Ja"
Rows("45:70").EntireRow.Hidden = Range("B1") = "Ja"
Rows("71:90").EntireRow.Hidden = Range("B2") = "Ja"
Rows("91:110").EntireRow.Hidden = Range("B3") = "Ja"
End With
End If
End Sub


Gruß Hajo

Anzeige
AW: Registerblatt ausblenden, wenn Bedingung erfüllt..
07.01.2008 18:28:00
Hajo_Zi
Hallo Evelyn,
da war ein Fehler

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B3")) Is Nothing Then
With ActiveSheet
Sheets("Abbruch").Visible = Range("B1") = "Ja"
Rows("45:70").EntireRow.Hidden = Range("B1") = "Ja"
Sheets("Bestand").Visible = Range("B2") = "Ja"
Sheets("Neubau").Visible = Range("B3") = "Ja"
.Rows("45:70").EntireRow.Hidden = .Range("B1") = "Ja"
.Rows("71:90").EntireRow.Hidden = .Range("B2") = "Ja"
.Rows("91:110").EntireRow.Hidden = .Range("B3") = "Ja"
End With
End If
End Sub


Gruß Hajo

Anzeige
AW: Registerblatt ausblenden, wenn Bedingung erfüllt..
07.01.2008 19:42:00
Evelyn
Funktioniert bestens. Vielen Dank.

AW: Registerblatt ausblenden, wenn Bedingung erfül
07.01.2008 21:23:28
Evelyn
Der Fehler lag ürbigens in der Groß-/ bzw. Kleinschreibung der Wörter Ja/Nein.
Viele Grüße, Evelyn

306 Forumthreads zu ähnlichen Themen

Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Anzeige
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
TB ausblenden, wenn Bedingung zutrifft
Josef_T

Guten Abend zusammen.
Mit unten stehenden Makros möchte ich festlegen, dass bestimmte Programme, nur auf dem Rechner dessen Name "Verwaltung" ist, ausgeführt werden können. Funktioniert auch alles.
Meine Frage:
Das TB "Dummy" soll sich automatisch ausblenden, wenn der Computername "...
05.10.2008 20:57:00
Thread-ID: 1014296
8 Beiträge
Fehler bei Formel per Makro in Zelle eintragen
Born

Hallo Forum,
ich habe folgendes Problem:
Ich schreibe per Makro in Zellen eine Formel. Als Ergebnis bekomme ich jedoch nur die Fehlermeldung #NAME?. Wenn ich dann mit F2 in den Bearbeiten-Modus gehe und Enter drücke, kommt das richtige Ergebnis. Meine Formel scheint also richtig zu sein...
23.10.2008 10:15:00
Thread-ID: 1018538
11 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
13
2
5
7
9
6
4
5
7
10
9
3
5
6
2
6
2
5
7
8
5
3
1
5
5