Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1736to1740
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
1736to1740
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per VBA und Zellen bezug, Reiter ein und Ausblenden

per VBA und Zellen bezug, Reiter ein und Ausblenden
04.02.2020 14:15:08
Stefan
Hallo zusammen,
Ich benötige mal Hilfe bei VBA, ich wissen bei BVA ist gleich 0.
Was möchte ich, ich habe ein Deckblatt wo ich in der Zelle R25 was Rechne lasse, bei 0 Werden alle Reiter ausgeblendet, bei 1 einige eingeblendet und 2 weitere und 3 nochmal andere.
Ich habe mal versuch was zu Schreiben, leider geht das nicht ganz rund, erst wenn ich in der Zelle per Hand was Eintrag geht es. Die VBA habe ich direkt im Objekte im Tabelle Deckblatt geschrieben.
Muss ich das im Modul einschreiben? und wenn ja wie spreche ich den Reiter (Deckblatt) an?
hier mein VBA 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$25" Then
If Target = "1" Then
Sheets("Push-Produkte").Visible = True
Sheets("Kernsortiment").Visible = True
Sheets("JZMP 2019 Handel").Visible = True
Sheets("JZMP 2020 Handel").Visible = True
Sheets("Push-Produkte 2020").Visible = True
Sheets("Kernsortiment 2020").Visible = True
Sheets("Materialblock 2020").Visible = True
Sheets("Ansprechpartner").Visible = True
Sheets("Hierachie").Visible = True
Else
Sheets("Push-Produkte").Visible = xlHidden
Sheets("Kernsortiment").Visible = xlHidden
Sheets("JZMP 2019 Verarbeiter").Visible = xlHidden
Sheets("JZMP 2020 Verarbeiter").Visible = xlHidden
Sheets("Push-Produkte 2020").Visible = xlHidden
Sheets("JZMP 2019 Handel").Visible = xlHidden
Sheets("JZMP 2020 Handel").Visible = xlHidden
Sheets("Kernsortiment 2020").Visible = xlHidden
Sheets("Materialblock 2020").Visible = xlHidden
Sheets("Ansprechpartner").Visible = xlHidden
Sheets("Hierachie").Visible = xlHidden
Sheets("JZMP 2019 Handelsorg.").Visible = xlHidden
Sheets("JZMP 2020 Handelsorg.").Visible = xlHidden
End If
If Target = "2" Then
Sheets("Push-Produkte").Visible = True
Sheets("JZMP 2019 Verarbeiter").Visible = True
Sheets("JZMP 2020 Verarbeiter").Visible = True
Sheets("Push-Produkte 2020").Visible = True
Sheets("Ansprechpartner").Visible = True
Sheets("Hierachie").Visible = True
End If
If Target = "3" Then
Sheets("Push-Produkte").Visible = True
Sheets("JZMP 2019 Handelsorg.").Visible = True
Sheets("JZMP 2020 Handelsorg.").Visible = True
Sheets("Ansprechpartner").Visible = True
Sheets("Hierachie").Visible = True
End If
End If
End Sub
.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: per VBA und Zellen bezug, Reiter ein und Ausblenden
04.02.2020 14:37:27
ChrisL
Hi Stefan
Der Code muss ins Modul der Tabelle "Deckblatt".
richtig: Zahl = 1
falsch: Zahl = "1"
richtig: Text = "a"
falsch: Text = a
Im vorliegenden Fall bietet sich Select-Case anstelle If-Then an:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R25")) Is Nothing Then
Select Case Range("R25")
Case 1
Sheets("Push-Produkte").Visible = True
Sheets("Kernsortiment").Visible = True
Sheets("JZMP 2019 Handel").Visible = True
Sheets("JZMP 2020 Handel").Visible = True
Sheets("Push-Produkte 2020").Visible = True
Sheets("Kernsortiment 2020").Visible = True
Sheets("Materialblock 2020").Visible = True
Sheets("Ansprechpartner").Visible = True
Sheets("Hierachie").Visible = True
Case 2
Sheets("Push-Produkte").Visible = True
Sheets("JZMP 2019 Verarbeiter").Visible = True
Sheets("JZMP 2020 Verarbeiter").Visible = True
Sheets("Push-Produkte 2020").Visible = True
Sheets("Ansprechpartner").Visible = True
Sheets("Hierachie").Visible = True
Case 3
Sheets("Push-Produkte").Visible = True
Sheets("JZMP 2019 Handelsorg.").Visible = True
Sheets("JZMP 2020 Handelsorg.").Visible = True
Sheets("Ansprechpartner").Visible = True
Sheets("Hierachie").Visible = True
Case Else
Sheets("Push-Produkte").Visible = xlHidden
Sheets("Kernsortiment").Visible = xlHidden
Sheets("JZMP 2019 Verarbeiter").Visible = xlHidden
Sheets("JZMP 2020 Verarbeiter").Visible = xlHidden
Sheets("Push-Produkte 2020").Visible = xlHidden
Sheets("JZMP 2019 Handel").Visible = xlHidden
Sheets("JZMP 2020 Handel").Visible = xlHidden
Sheets("Kernsortiment 2020").Visible = xlHidden
Sheets("Materialblock 2020").Visible = xlHidden
Sheets("Ansprechpartner").Visible = xlHidden
Sheets("Hierachie").Visible = xlHidden
Sheets("JZMP 2019 Handelsorg.").Visible = xlHidden
Sheets("JZMP 2020 Handelsorg.").Visible = xlHidden
End Select
End If
End Sub

cu
Chris
Anzeige
Bsp-Datei
04.02.2020 14:39:19
SH95
Hallo Stefan,
zu allererst, wäre eine Bsp-Datei sehr sehr sinnvoll, aber ich versuch mal ins blaue zu raten.
Du möchtest, dass sich die Tabellenreiter selbstständig einblenden, wenn in R25 eine 1/2/3 steht?
Teste mal folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$25" Then
If range("R25").value = "1" Then
Sheets("Push-Produkte").Visible = True
Sheets("Kernsortiment").Visible = True
Sheets("JZMP 2019 Handel").Visible = True
Sheets("JZMP 2020 Handel").Visible = True
Sheets("Push-Produkte 2020").Visible = True
Sheets("Kernsortiment 2020").Visible = True
Sheets("Materialblock 2020").Visible = True
Sheets("Ansprechpartner").Visible = True
Sheets("Hierachie").Visible = True
Else
Sheets("Push-Produkte").Visible = xlHidden
Sheets("Kernsortiment").Visible = xlHidden
Sheets("JZMP 2019 Verarbeiter").Visible = xlHidden
Sheets("JZMP 2020 Verarbeiter").Visible = xlHidden
Sheets("Push-Produkte 2020").Visible = xlHidden
Sheets("JZMP 2019 Handel").Visible = xlHidden
Sheets("JZMP 2020 Handel").Visible = xlHidden
Sheets("Kernsortiment 2020").Visible = xlHidden
Sheets("Materialblock 2020").Visible = xlHidden
Sheets("Ansprechpartner").Visible = xlHidden
Sheets("Hierachie").Visible = xlHidden
Sheets("JZMP 2019 Handelsorg.").Visible = xlHidden
Sheets("JZMP 2020 Handelsorg.").Visible = xlHidden
End If
If range("R25").value = "2" Then
Sheets("Push-Produkte").Visible = True
Sheets("JZMP 2019 Verarbeiter").Visible = True
Sheets("JZMP 2020 Verarbeiter").Visible = True
Sheets("Push-Produkte 2020").Visible = True
Sheets("Ansprechpartner").Visible = True
Sheets("Hierachie").Visible = True
End If
If range("R25").value = "3" Then
Sheets("Push-Produkte").Visible = True
Sheets("JZMP 2019 Handelsorg.").Visible = True
Sheets("JZMP 2020 Handelsorg.").Visible = True
Sheets("Ansprechpartner").Visible = True
Sheets("Hierachie").Visible = True
End If
End If
End Sub
Falls das nicht hilft, stelle die Frage bitte wieder online und lade eine BSP-Datei hoch.
Evtl dann auch noch einmal erklären was genau passiert wenn was ist.
Gruß
Stefan
Anzeige
wo ich in der Zelle R25 was Rechne lasse.....
04.02.2020 15:08:27
robert
..denke da gehört der Code in eine
Sub Irgendwas()
Gruß
robert

312 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
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
5
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8