Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Wert in Zelle Zeilen ausblenden/einblenden

Forumthread: Bei Wert in Zelle Zeilen ausblenden/einblenden

Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 08:53:31
Siggi
Hallo ihr Lieben,
habe ein Problem. Wenn in Zelle A1 ein Wert steht sollen Zeilen automatisch (ohne Nutzung des Macros) ein bzw. ausgeblendet werden.
Das heisst:
Wenn in A1 die Zahl 1 steht sollen die Zeilen 16 bis 50 ausgeblendet sein
Wenn in A1 die Zahl 2 steht sollen die Zeilen 21 bis 50 ausgeblendet sein
Wenn in A1 die Zahl 3 steht sollen die Zeilen 26 bis 50 ausgeblendet sein
wäre euch sehr dankbar, wenn mir jemand helfen könnte.
Danke
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ohne VBA? automatisch geht das dann nicht ...
18.07.2017 09:10:24
...
Hallo Siggi,
... Du müsstest schon mindestens mit dem Autofilter (sieh mal hier: http://www.online-excel.de/excel/singsel.php?f=102) oder mit der Gruppierung (sieh mal hier: http://www.online-excel.de/excel/singsel.php?f=92) arbeiten. Bei ersteren bräuchtest Du noch eine Hilfsspalte mit einer kleinen Formel, wärst damit aber auch etwas flexibler.
Gruß Werner
.. , - ...
Anzeige
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:14:29
Bernd
Hi,
ich weiß das Du es ohne Makro wolltest, nur mal so zum Testen, vielleicht sagt es Dir ja zu:
Option Explicit

Sub ausblenden()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Tabelle1")
With sh
'Alle Zellen wieder einblenden, nur zu Testzwecken
.Cells.EntireRow.Hidden = False
If .Range("A1").Value = "1" Then
.Rows("16:50").EntireRow.Hidden = True
End If
If .Range("A1").Value = "2" Then
.Rows("21:50").EntireRow.Hidden = True
End If
If .Range("A1").Value = "3" Then
.Rows("26:50").EntireRow.Hidden = True
End If
End With
Set sh = Nothing
End Sub
MfG Bernd
Anzeige
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:19:43
Siggi
Das funktioniert perfekt Bernd. Danke vielmals
Kann man evtl das Makro bei einer Veränderung der Zahl automatisch ausführen lassen?
Beste Grüße
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:19:17
Siggi
Das funktioniert perfekt Bernd. Danke vielmals
Kann man evtl das Makro bei einer Veränderung der Zahl automatisch ausführen lassen?
Beste Grüße
Anzeige
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:23:05
Bernd
Hi,
kann man sicher. Ich selbst bin aber leider kein so großer VBA Spezialist.
Auch den vorherigen Code habe ich nur aus dem Netz auf die schnelle zusammen kopiert und etwas verändert, so wie Du wolltest.
Daher lasse ich die Frage mal auf offen,
MfG Bernd
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:32:18
Werner
Hallo Bernd,
der Code gehört ins Codemodul des Arbeitsblattes, auf dem er sich auswriken soll.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Select Case Target.Value
Case 1
Rows.EntireRow.Hidden = False
Rows("16:50").EntireRow.Hidden = True
Case 2
Rows.EntireRow.Hidden = False
Rows("21:50").EntireRow.Hidden = True
Case 3
Rows.EntireRow.Hidden = False
Rows("26:50").EntireRow.Hidden = True
Case Else
Rows.EntireRow.Hidden = False
End Select
End If
End Sub
Gruß Werner
Anzeige
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:36:21
Bernd
Hi Werner,
Danke für die Info. Aber der Fragesteller ist Siggi :-)
MfG Bernd
uuups .... o.w.T.
18.07.2017 09:38:22
Werner
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:34:11
Bernd
Hi,
hab doch noch etwas gefunden:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Tabelle1")
With sh
'Alle Zellen wieder einblenden, nur zu Testzwecken
.Cells.EntireRow.Hidden = False
If .Range("A1").Value = "1" Then
.Rows("16:50").EntireRow.Hidden = True
End If
If .Range("A1").Value = "2" Then
.Rows("21:50").EntireRow.Hidden = True
End If
If .Range("A1").Value = "3" Then
.Rows("26:50").EntireRow.Hidden = True
End If
End With
Set sh = Nothing
End Sub
MfG Bernd
Anzeige
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:48:40
Werner
Hallo Bernd,
das hier 
Set sh = ThisWorkbook.Sheets("Tabelle1")
With sh
End With
set sh = Nothing
ist unnötig. Da es sich hier um ein Worksheet_Change Event handelt, wirkt sich der Code auch immer nur auf dem Worksheet auf, in dessen Codemodul sich der Code befindet. Also ist eine Rferenzierung auf das Blatt unnötig. Allerdings müssen dann die Punkte vor den Range Objekten .Range("A1"), .Rows(..) weg.
Gruß Werner
Anzeige
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:51:59
Siggi
Hallo ihr Lieben,
danke für das Feedback - habe das Problem mit einem einfachen Code gelöst
Beste Grüße
Gerne u. Danke für die Rückmeldung. o.w.T.
18.07.2017 09:58:56
Werner
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:57:26
Bernd
Hi Werner,
nochmals Danke für Deine Info. Man(n) lernt immer gerne dazu.
MfG Bernd
Anzeige
Gerne...
18.07.2017 09:58:33
Werner
..ich bin auch noch einer von den "Lernenden" Bernd.
Gruß Werner
AW: Bei Wert in Zelle Zeilen ausblenden/einblenden
18.07.2017 09:43:58
Werner
Hallo Siggi,
nochmal etwas verkürzt (da hat mich Bernd drauf gebracht).
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Rows.EntireRow.Hidden = False
Select Case Target.Value
Case 1
Rows("16:50").EntireRow.Hidden = True
Case 2
Rows("21:50").EntireRow.Hidden = True
Case 3
Rows("26:50").EntireRow.Hidden = True
Case Else
End Select
End If
End Sub
Gruß Werner
Anzeige
;

Forumthreads zu verwandten Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 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
bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 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
Zeilen ausblenden wenn...
Marc

Hallo Forum
In Spalte E11:E94 sind Namen aufgeführt(Meier,Müller usw.). In dieser Spalte kommen
aber auch Namen mit einem Vorhängsel wie z.B. a_Meier, a_Müller usw. vor.
Ist es möglich, die Zeilen mit diesen Vorhängseln auszublenden?
Gruß
Marc
06.12.2008 21:44:00
Thread-ID: 1030753
6 Beiträge
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
Anzeige
Zeilen ausblenden, wenn 0
evi

Hallo,
ich habe folgendes Problem:
Ich möchte bestimmte Zeilen eines Tabellenblattes (Blatt 2) ausblenden (bspw. Zeile 120-123), wenn in einem anderen Tabellenblatt (Blatt 1) in ein einer bestimmten Zelle (z. Bsp. C45) eine "0" eingetragen ist.
Leider hab ich nicht so viel Ahnung di...
06.02.2009 12:07:03
Thread-ID: 1047705
6 Beiträge
bestimmte Zeilen über der aktiven Zelle ausblenden
Karsten

Hallo,
ich möchte per Makrobefehl alle Zeilen über der aktiven Zelle ausblenden, die in der selben Spalte ohne Inhalt sind.
Danke für eure Hilfe.
Gruß
Karsten
01.03.2009 19:41:02
Thread-ID: 1055316
12 Beiträge
Lösche Zeilen ohne bestimmten Inhalt
Fabio

Hallo zusammen,
dank der Forums-Hilfe kann ich nun "mein" Verzeichnis sehr gut auslesen. Nun habe ich relativ lange "Zahlenkolonnen" - die ich gerne etwas "komprimiert hätte"
Folgendes will ich erreichen (per Makro?):
Lösche alle Zeilen in denen in der Spalte B "NICHT" die Buchstabe...
18.04.2009 18:02:56
Thread-ID: 1069520
8 Beiträge
Zeilen ausblenden wenn Zellwert = 0
Malte

Dringende Hilfe!
In einer Tabelle, die Zellbezüge aus einer anderen Tabelle hat, wird, wenn kein Zellwert vorhanden ist, der Zellwert 0 ausgegeben. Ich möchte nun, die Zeilen ausblenden in denen ein Zellwert 0 ist.
Wie funktioniert das?
Vielen Dank schon mal.
24.08.2009 17:17:25
Thread-ID: 1098182
3 Beiträge
Anzeige
Ergebnis in Zelle nur anzeigen wenn in Zelle Wert
Sascha

moin,
hab hier eine ganz einefache Formel:
A B
1 2000 5
2 =A1-B1
3 =A2-B2
Wenn ich nun die Formel in Spalte A weiter fortführe wird immer das letzte Ergebnis angezeigt. Wenn nun aber noch kein Wert in Spalte B eingetragen ist, soll die Formel/Ergebnis auch ni...
27.09.2009 08:47:36
Thread-ID: 1105800
3 Beiträge
Anzeige
Zeilen ausblenden, wenn Spalte leer
walter

Hallo,
In der hochgeladenen Datei, im Arbeitsblatt "Depositen Rechnungswesen" soll folgendes funktionieren:
Durch Drücken auf den Button "Selektion" sollen all jene Zeilen ausgeblendet werden, bei denen die Spalte "K" leer ist (zusätzlich wird auch der Blattschutz aktiviert).
Durch...
04.12.2009 07:56:16
Thread-ID: 1121748
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeilen in Excel automatisch ausblenden oder einblenden

Schritt-für-Schritt-Anleitung

Um Zeilen in Excel automatisch auszublenden, wenn in einer bestimmten Zelle (z.B. A1) ein Wert steht, kannst du folgende Schritte befolgen:

  1. Öffne die Excel-Datei und gehe zum entsprechenden Arbeitsblatt.

  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Klicke auf das Arbeitsblatt, in dem du die Zeilen ausblenden möchtest. Dies ist in der Regel „Tabelle1“ oder ähnlich benannt.

  4. Füge den folgenden Code in das Codemodul ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address(0, 0) = "A1" Then
       Rows.EntireRow.Hidden = False
       Select Case Target.Value
           Case 1
               Rows("16:50").EntireRow.Hidden = True
           Case 2
               Rows("21:50").EntireRow.Hidden = True
           Case 3
               Rows("26:50").EntireRow.Hidden = True
           Case Else
               ' Keine Aktion
       End Select
   End If
End Sub

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Teste die Funktion, indem du in Zelle A1 verschiedene Werte (1, 2 oder 3) eingibst. Die definierten Zeilen sollten entsprechend ausgeblendet werden.

Häufige Fehler und Lösungen

  • Fehler: Zeilen blenden sich nicht aus.

    • Lösung: Stelle sicher, dass der Code im richtigen Arbeitsblattmodul eingefügt wurde.

  • Fehler: Der Code funktioniert nicht, wenn ich die Zahl änder.

    • Lösung: Überprüfe, ob die Worksheet_Change-Ereignisprozedur korrekt eingerichtet ist und keine Fehler im Code vorhanden sind.

Alternative Methoden

Wenn du eine Lösung ohne Makros bevorzugst, kannst du den AutoFilter verwenden:

  1. Wähle die gesamte Tabelle aus.
  2. Gehe zu Daten > Filter > AutoFilter.
  3. Setze eine Filterregel für die Spalte, die die Werte enthält (z.B. A1), und blende Zeilen basierend auf bestimmten Kriterien aus.

Praktische Beispiele

  • Beispiel 1: Wenn in Zelle A1 der Text „Inaktiv“ steht, sollen alle Zeilen mit dem Status „Aktiv“ ausgeblendet werden. Dies könnte durch eine Kombination aus WENN-Formeln und bedingter Formatierung erfolgen.

  • Beispiel 2: Du kannst auch Spalten basierend auf bestimmten Werten ausblenden. Wenn die Werte in Spalte B „Wert1“ sind, kannst du diese Spalten automatisch ausblenden.

Tipps für Profis

  • Nutze Bedingte Formatierung, um Zellen hervorzuheben, bevor du Zeilen ausblendest.
  • Speichere regelmäßig deine Arbeit, besonders wenn du mit VBA arbeitest, da Fehler dazu führen können, dass Excel nicht mehr reagiert.
  • Halte deinen Code sauber und gut kommentiert, um spätere Änderungen zu erleichtern.

FAQ: Häufige Fragen

1. Frage: Wie kann ich #WERT! in Zellen ausblenden?
Antwort: Du kannst eine WENN-Formel verwenden, die überprüft, ob der Wert in der Zelle ein Fehler ist und diesen entsprechend behandelt.

2. Frage: Kann ich auch Zeilen ausblenden, wenn sie leer sind?
Antwort: Ja, das ist möglich. Du kannst eine zusätzliche Bedingung im VBA-Code hinzufügen, die prüft, ob eine Zeile leer ist, bevor sie ausgeblendet wird.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige