Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
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
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter ausblenden wenn Wert in Zelle..

Tabellenblätter ausblenden wenn Wert in Zelle..
23.03.2016 11:38:23
Björn
(ExcelforMac Version 15.9.1)
Hallo,
ich arbeite gerade an einem Abrechnungstool für unsere Firma. es geht um eine Tabelle mit einer Eingabeseite sowie 5 Abrechnungsheets.
Eingabesheet: hier wird eine Zahl von 1 - 5 angegeben (Zelle C3), je nachdem wie viele Abrechnungstage zu betrachten sind. Wenn ich nur 1 oder 2 Abrechnungstage wähle, sollen das "Abrechnungssheet C", "Abrechnungssheet D" und "Abrechnungssheet E" ausgeblendet werden, wobei die "Abrechnungssheet A" und "Abrechnungssheet B" eingeblendet bleiben.
Trage ich 3 ein sollen "Abrechnungssheet D" und "Abrechnungssheet E" ausgeblendet werden usw.
Bei 5 bleiben demzufolge alle Tabellenblätter eingeblendet.
Ich habe zwar gute Excel, aber leider gar keine Programmier-Kentnisse.
Ist das Problem einfach zu lösen, so dass mir jemand hierzu helfen könnte?
Vielen Dank!!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter ausblenden
23.03.2016 12:31:53
Bernd
Hi,
ich bin kein VBA profi und wird sicherlich nicht die beste Lösung sein, aber als Ansatz tut es so auch:
https://www.herber.de/bbs/user/104557.xlsm
mfg Bernd

AW: Tabellenblätter ausblenden
23.03.2016 12:44:55
Bernd
Hi,
für Dein Beispiel diesen Code verwenden:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
If Target = 1 Then
Sheets("B").Visible = xlHidden
Sheets("C").Visible = xlHidden
Sheets("D").Visible = xlHidden
Sheets("E").Visible = xlHidden
Else
Sheets("B").Visible = True
Sheets("C").Visible = True
Sheets("D").Visible = True
Sheets("E").Visible = True
If Target.Address = "$C$3" Then
If Target = 2 Then
Sheets("C").Visible = xlHidden
Sheets("D").Visible = xlHidden
Sheets("E").Visible = xlHidden
Else
Sheets("C").Visible = True
Sheets("D").Visible = True
Sheets("E").Visible = True
If Target.Address = "$C$3" Then
If Target = 3 Then
Sheets("D").Visible = xlHidden
Sheets("E").Visible = xlHidden
Else
Sheets("D").Visible = True
Sheets("E").Visible = True
If Target.Address = "$C$3" Then
If Target = 4 Then
Sheets("E").Visible = xlHidden
Else
Sheets("E").Visible = True
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

mfg Bernd

Anzeige
AW: Tabellenblätter ausblenden
23.03.2016 19:33:45
Björn
Hallo Bernd,
danke dir für die mühe. habe das gerade mal ausprobiert. funktioniert aber nicht so wie gedacht. wenn ich hier zu anfang 5 eingebe blendet er alle berechnungsblätter aus. eigentlich sollte er dann alle komplett einblenden. und danach ist eine änderung nicht mehr möglich. sprich auch wenn ich dann 3 eingebe bleibt der zustand bestehen. eigentlich war angedacht:
Wenn ich
1 eingebe: A und B bleiben stehen; C, D, E werden ausgeblendet
2 eingebe: A und B bleiben stehen; C, D, E werden ausgeblendet (das gleiche wie bei 1)
3 eingebe: A, B und C bleiben stehen; D, E werden ausgeblendet
4 eingebe: A, B, C und D bleiben stehen; E wird ausgeblendet
5 eingebe: alle werden eingeblendet
bin schon am versichen das zu editieren, komme aber nicht zu einer lösung. habe da noch zu wenig ahnung von.

Anzeige
AW: Tabellenblätter ausblenden
24.03.2016 05:44:47
Bernd
Hi,
ja deswegen hatte ich Dir auch den zweiten Code gegeben, den hättest gegen den anderen austauschen sollen.
Aber Uwe hat Dir ja ohnehin den um Welten besseren Code bereit gestellt.
lg Bernd

AW: Tabellenblätter ausblenden wenn Wert in Zelle..
23.03.2016 12:49:39
UweD
Hallo
Vorgabe: Das Eingabeblatt ist das Erste
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Code dort reinkopieren

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%
If Not Intersect(Range("C3"), Target) Is Nothing _
And Target >= 1 And Target

Gruß UweD

AW: Tabellenblätter ausblenden wenn Wert in Zelle..
23.03.2016 19:34:56
Björn
danke. probiere ich gleich mal aus!!
Anzeige

16 Forumthreads zu ähnlichen Themen

2 Tabellenblätter in ein PDF nicht möglich
Joachim

Hallo,
ich möchte per VBA das 3. und 4. Tabellenblatt als PDF in EIN Dokument bringen:
Dim n As Integer
Sheets(3).Select
For n = 3 To Sheets.Count
Sheets(n).Select False
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
25.11.2009 08:17:45
Thread-ID: 1119865
6 Beiträge
Anzeige
Tabellenblätter ausblenden wenn Bedingung erfüllt
Daniela

Hallo miteinander
Gibt es ein Makro, welches in einer Excel-Arbeitsmappe sämtliche Register ausblendet, welche z.B. in der Zelle A1 ein "x" stehen haben? Die restlichen Register sollen jedoch weiterhin eingeblendet bleiben?
Danke für eure Hilfe.
Gruss
18.04.2012 12:00:09
Thread-ID: 1259924
3 Beiträge
VBA Zeile ausblenden wenn Spalte F wert 0
Bernd

Hallo zusammen,
komme leider nicht weiter, habe schon viele Codes ausprobiert keines hat funktioniert. Meine VBA Kenntnisse sind sehr gering.
Wer kann mir bei der Lösung behilflich sein?
Vielen Dank schon mal im Voraus!
Gruß
Bernd
23.03.2013 01:23:10
Thread-ID: 1305603
4 Beiträge
Anzeige
VBA Makro: Spalten ausblenden wenn Bereich = "0 x"
hual

Hallo zusammen!
Ich bin mit VBA wenig bis gar nicht vertraut und hätte gerne ein Makro welches mir die Spalten F:O ab Zeile 8 durchsucht und wenn dort nur "0" UND "0 x" vorkommen, sollte diese Spalte ausgeblendet werden.
ich hab dazu schon was in die Richtung gefunden, etwas editiert ab...
22.09.2014 15:18:58
Thread-ID: 1382850
6 Beiträge
VBA: Worksheet ausblenden wenn Zelle = WAHR
Hauser

Hallo,
ich habe eine Frage zu VBA:
ich habe in Worksheet 1 durch ein ActiveX-Optionsfeld die Wahl zwischen Einblenden und Ausblenden.
Diese Optionsfelder sind jeweils mit Zellen auf Worksheet 2 verknüpft, wo dann WAHR oder FALSCH ausgegeben wird (das ist kein Muss, es hat mir aber...
13.04.2015 13:42:52
Thread-ID: 1420504
4 Beiträge
VBA-Code Ein/Ausblenden wenn Bedingung
Matthias

Hallo liebe Forenmitglieder,
ich möchte euch um eure Hilfe zwecks eines VBA-Codes bitten. Ich habe folgendes Problem:
In der Tabelle1 soll in der Zelle B10 eine Zahleneingabe gemacht werden.
1. Ist die Eingabe 2, so sollen die Zeilen 11 bis 16 eingeblendet werden (habe ich vorher üb...
28.07.2015 17:13:15
Thread-ID: 1439019
2 Beiträge
Eingabe in Tabellenblatt nicht möglich
Martin

Hallo Lieber Forummitglieder,
ich habe folgendes Problem. Ich habe eine Abfragetabelle in Excel erstellt bei der man in bestimmten Zellen Werten eingeben muss.
Bspw. Blechstärke = 2,0mm
Ich hab zudem noch einige Steuerelemente in dieser Datei. Problem machen mir dabei die Auswahlst...
28.09.2015 12:49:53
Thread-ID: 1449739
9 Beiträge
VBA Zellen ein/ausblenden wenn Bedingungen erfüllt
Joe

Hallo zusammen,
ich finde eure Plattform super und habe auch schon eine tolle Lösung für eins
meiner Herausforderungen gefunden: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Me.Range("F78:F86")) Is Nothing And Target.Cells.Count = 1 Then Select Cas...
02.10.2017 10:50:25
Thread-ID: 1583803
5 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
5
7
2
3
4
5
3
1
8
4
6
6
6
3
1
5