Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Registerblatt ausblenden, wenn Bedingung erfüllt..

Forumthread: 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

Anzeige

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

Anzeige
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

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.

Anzeige
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ül
07.01.2008 16:26:35
Hajo_Zi
Hakko Evelyn,
ich sehe Dein Problem nicht. Beschreibe es nochmal genau. Ich habe DropDown- Listenfeld eingefügt.
https://www.herber.de/bbs/user/48856.xls
Gruß Hajo

Anzeige
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
;

Forumthreads zu verwandten 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
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
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
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
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
Anzeige
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
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
Spalte ausblenden, wenn in Zeile 7 der Zelleninhal
Selma

Hallo Leute,
wie kann ich die Spalten ausblenden, die in Zeile 7 als Zelleninhalt "x" oder "D" haben?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
29.10.2008 15:41:00
Thread-ID: 1020332
4 Beiträge
Formel in Zellen einfügen!
Andi

Hallo zusammen,
ich würde gerne mit Hilfe eines Makros eine Formel in die die Spalte "Q" einfügen.
Die Formel soll jedoch nur in de Zellen der Spalte "Q" eingetragen werden,
wo auch ein Wert in der jeweiligen Zeile der Spalte "L" vorhanden ist.
Ich hoffe es kann mir jemand bei...
30.10.2008 21:03:30
Thread-ID: 1020721
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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