Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1920to1924
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
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen einblenden auf Grund Drop-Down

Zeilen einblenden auf Grund Drop-Down
10.03.2023 14:43:01
findetnemo
Hallo
Ich habe eine Tabelle mit Drop-Down (https://www.herber.de/bbs/user/158215.xlsm). Es sollen nun auf Grund des Drop-Downs in D6 die verschiedenen Zeilen ein und ausgeblendet werden.
Wenn Eigenfabrikat gewählt wird, soll Zeile 8,9 und 18 eingeblendet werden und Zeilen 11 bis 13 ausgeblendet. Für Handelsprodukt umgekehrt, sprich Zeilen 11 bis 13 einblenden und 8,9 und 18 ausblenden.
Ich habe es mit einem VBA-Code für Ausblenden beim Öffnen versucht und dann einblenden mit select case. Irgendwie funktioniert dies nicht richtig.
Die Zeilen können beim Öffnen des Excels auch angezeigt werden und dann bei der Wahl mittels Drop-Down entsprechend ausgeblendet/eingeblendet werden.
Kann mir jemand mit dem Code helfen?
Vielen Dank.

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen einblenden auf Grund Drop-Down
10.03.2023 14:54:47
Daniel
Hi
beispielsweise mit diesem Code im Modul des Tabellenblatts
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
    Case "D6"
        Select Case Target.Value
            Case "Eigenfabrikat"
                Range("A8,A9,A18").EntireRow.Hidden = False
                Range("A11:A13").EntireRow.Hidden = True
            Case "Handelsprodukt"
                Range("A8,A9,A18").EntireRow.Hidden = True
                Range("A11:A13").EntireRow.Hidden = False
            Case Else
                Range("A8,A9,A18").EntireRow.Hidden = False
                Range("A11:A13").EntireRow.Hidden = False
        End Select
    Case Else
End Select
End Sub
Gruß Daniel
Anzeige
AW: Zeilen einblenden auf Grund Drop-Down
10.03.2023 16:16:23
findetnemo
Vielen Dank, funktioniert super!
AW: Zeilen einblenden auf Grund Drop-Down
10.03.2023 16:25:57
GerdL 
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Address = "$D$6" Then
       Range("A8:A9,A18").EntireRow.Hidden = .Value = "Handelsprodukt"
       Range("A11:A13").EntireRow.Hidden = .Value = "Eigenfabrikat"
    End If
End With
End Sub
Gruß Gerd

68 Forumthreads zu ähnlichen Themen

Zeilen durchlaufen und Wert rausholen und kopien
Loen

Hallo Excel Gemeinde,
wie kann ich denn folgende Abfrage per Makro machen:
(Das Ergebnis soll nachher in B34 stehen)
Wenn im Tabellenblatt "Deckblatt" die Zelle C34 leer ist, NICHTS machen.
Wenn im Tabellenblatt "Deckblatt" die Zelle C34 NICHT leer ist, soll dieser Eintrag (C34)...
03.02.2009 20:48:41
Thread-ID: 1046782
5 Beiträge
Anzeige
Zeilen auslesen aufgrund eines Suchbegriffs | Herbers Excel-Forum
F. Jordan
Hallo zusammen
Ich muss aus einer Gesamtliste zuerst die Buchungskreise auslesen, dann aufgrund dieser Auswertung Tabellenblätter pro Kreis erstellen und den Namen in die jeweilige Tabelle reinschreiben. Bisher sind all diese Anforderungen mit Eurer Hilfe zustande gekommen.
Nun müsste in je...
28.01.2010 14:29:10
Thread-ID: 1133779
5 Beiträge
Zeilen aufklappen und zuklappen
Ximena

Hallo Leute
Also folgendes Problem. Ich würde gerne Zeilen im Excel auf- und zuklappen können. Ich weiss, das geht mit "Gruppierung", nur ist dann das Plus, das ganz links am Rand ist, eine Zeile zu tief. Also ich versuche das mal grafisch darzustellen:
Vor der Zeile Zeile
1<...
03.05.2012 14:02:15
Thread-ID: 1261980
5 Beiträge
Anzeige
Zeilen durchlaufen und Zellen neu sortieren
Mike

Hallo,
Spalte A1 bis Axx beinhaltet die Fachnummer und in den nachfolgenden Zellen der selben Zeile befinden sich die dort abgelegten Gegenstände. Die Menge der Artikel pro Fach varieren daher sollte die Zeile solange durchlaufen werden bis Zelle leer.
In der Zieltabelle soll pro Artike...
27.05.2019 08:53:35
Thread-ID: 1694798
12 Beiträge
Zeileninhalte weglassen aufgrund einer Bedingung
Jona

Hallo Excel-Freunde,
ich habe in Spalte A einen Status: Active und Inactive. Ausgehend von diesem Status sollen in Spalte B nur die Datensätze angezeigt werden die den Status Active besitzen. Nur sollen die aktiven Datensätze ohne leere Zeilen bzw. Zeilen mit O dazwischen angezeigt werden....
31.07.2019 11:38:20
Thread-ID: 1705132
16 Beiträge
VBA - Zeilen durchlaufen und in farbige Zellen Wert reinschreiben
Frederic

Hallo,
ich habe folgendes Problem und zwar möchte die Zeilen beginned ab F5 bis NI7 durchlaufen und jeweils in die hellgrünen Kästchen das Volumen pro Tag reinschrieben.
Farbcode ist 43.
Also bspw. von I5 bis BG8 (erste Zeile - grüne Kästchen) das Volumen von 11,25 reinschreiben un...
29.01.2020 16:10:01
Thread-ID: 1737361
3 Beiträge
Zeilen aufgrund Datum ausblenden
Jvana

Liebes Forum
Anbei die Datei zu meiner Frage: https://www.herber.de/bbs/user/142016.xlsm
Ziel:
Im Tab "Einstellung Person" wird unter anderem ein Von- und ein Bis-Datum eingeben (Zellen C10 und C11). Im Tab "Zeiterfassung1" sollen dann alle Zeilen mit Datum (Spalte D) kleiner als da...
02.12.2020 18:19:57
Thread-ID: 1797225
6 Beiträge
Werte aus Zeilen untereinander Auflisten und Adresse zufügen
Martin
Hallo zusammen,

ich habe eine Fragen, kann ich mir den Text einer Zeile 2 (Zellen verbunden) und die darunter stehenden Zellen (Zeile 3) in einer Spalte auflisten.
Dazu sollen auch die Zellenadresse zugefügt werden.

Hintergrund, ich habe in Zeile 2 Artikel stehen (Artikel 1 = A2:...
25.07.2023 12:19:19
Thread-ID: 1937177
3 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
4
4
4
4
2
11
15
2
5
2
4
1
4
4
2
4
4
3
8
6
2
4
6
4
3