Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen mit bestimmten Inhalt ausblenden

Forumthread: Zeilen mit bestimmten Inhalt ausblenden

Zeilen mit bestimmten Inhalt ausblenden
17.09.2013 17:59:52
Rainer
Hallo
Ich möchte alle Zeilen, welche nicht den Inhalt "Test" haben (der kann innerhalb des Textes stehen), ausblenden.
Folgender Code, den mir die Recherche geliefert hat, blendet mir alle leeren Zeilen aus. Das was ich brauche, kann ich mit meinen VBA-Kenntnissen aber nicht eincodieren.
Vielleicht mir jemand dabei weiterhelfen?
Besten Gruß Rainer
Dim Bereich As Range
If ActiveCell.Row > 1 Then
Set Bereich = Range(Cells(1, ActiveCell.Column), ActiveCell.Offset(-1, 0))
On Error Resume Next
Bereich.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
On Error GoTo 0
End If

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit bestimmten Inhalt ausblenden
17.09.2013 20:13:27
Rainer
Nochmal Hallo,
Etwas weiter haben mich meine Bemühungen mit u.st. Code schon gebracht. Es funktioniert aber nur, wenn der komplette Inhalt der Zelle "Test" ist. Die Zeile sollte aber stehen bleiben, wenn auch andere Zeichen in der Zelle vorhanden sind.
Vielleicht kann jemand den Code entsprechend abändern?
Danke Rainer
Dim rng As Range
For Each rng In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
rng.EntireRow.Hidden = Not rng.Text = "Test"
Next

Anzeige
AW: Zeilen mit bestimmten Inhalt ausblenden
17.09.2013 20:29:54
Gerd
Hallo Rainer! 
Sub b()
Dim objRow As Range
For Each objRow In ActiveSheet.UsedRange.Rows
objRow.Hidden = WorksheetFunction.CountIf(objRow, "*Test*") = 0
Next
End Sub
Gruß Gerd

AW: Zeilen mit bestimmten Inhalt ausblenden
17.09.2013 20:37:05
Rainer
Hallo Gerd,
Oh, der sieht ja ganz anders aus als meiner. Aber funktioniert. Nun sieht es so aus als wenn er alle 60000 Zeilen abklopft. Kann man das auf die ersten 200 reduzieren?
Allerbesten Dank
Rainer

Anzeige
AW: Zeilen mit bestimmten Inhalt ausblenden
17.09.2013 21:50:05
Gerd
Hallo Rainer,
das geht auch.
Sub c()
Dim objRow As Range
For Each objRow In Rows("1:200")
objRow.Hidden = WorksheetFunction.CountIf(objRow, "*Test*") = 0
Next
End Sub
Gruß Gerd

AW: Zeilen mit bestimmten Inhalt ausblenden
18.09.2013 09:52:48
Rainer
Guten Morgen Gerd,
danke.
Ich würde gern der Information halber noch wissen, wie muss es aussehen, wenn bis zur letzten Zelle mit Inhalt durchlaufen wird.
For Each objRow In Rows("1:End(xlUp)") mmm, habs versucht - geht aber so nicht.
Gruß Rainer

Anzeige
AW: Zeilen mit bestimmten Inhalt ausblenden
18.09.2013 10:57:53
Rainer
Hallo Hajo,
mir scheint als hatte ich das selbst schon gehabt, nur wenn ich es so anpasse, kann die Hidden-Eigenschaft des Rangeobjektes nicht festgelegt werden. So die Meldung. Wie muss es nun richtig aussehen?
Dim objRow As Range
For Each objRow In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Gruß Rainer

Anzeige
AW: Zeilen mit bestimmten Inhalt ausblenden
18.09.2013 11:00:05
Hajo_Zi
Hallo Rainer,
das musst Du den Fragen der Dir das vorgeschlagen hat. Ich war es nicht.
Gruß Hajo

AW: ---.End(xlUp).Row).EntireRow o.r.T.
18.09.2013 11:15:24
Gerd
Gruß Gerd

AW: ---.End(xlUp).Row).EntireRow o.r.T.
18.09.2013 11:45:08
Rainer
Hallo Gerd
so? Geht aber nicht. Was ist falsch?
For Each objRow In Rows(.End(xlUp).Row).EntireRow
Gruß Rainer

Anzeige
AW: ---.End(xlUp).Row).EntireRow o.r.T.
18.09.2013 12:02:33
Gerd
Hallo Rainer!
For Each objRow In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow
Gruß Gerd

AW: ---.End(xlUp).Row).EntireRow o.r.T.
18.09.2013 12:07:45
Rainer
DANKE, Gerd
Gruß Rainer

AW: Zeilen mit bestimmten Inhalt ausblenden
17.09.2013 21:51:15
Rainer
Hallo Gerd,
nochmal ich, wegen dem vergessenen Häkchen.
Gruß Rainer

Anzeige
AW: Zeilen mit bestimmten Inhalt ausblenden
17.09.2013 21:52:39
Rainer
Hallo Gerd,
nochmal ich, wegen dem vergessenen Häkchen.
Gruß Rainer
;

Forumthreads zu verwandten Themen

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
Anzeige
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
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
Bestimmte Anzahl an Zeilen per VBA Ausblenden
Sascha

einen schönen guten tag allen...
wie kann man definierte Zeilen per VBA ausblenden?
ich habe eine Tabelle die folgend ausschaut:
Grün
1
2
3
4
5
6
Rot
1
2
3
4
5
6
Jetzt trage ich in zwei Zellen die Anzahl von Grün und Rot ein, z...
30.12.2010 12:33:34
Thread-ID: 1193330
6 Beiträge
Bestimmte Zeilen Ausblenden
Janosch

Halli Hallo,
ich habe folgendes Problem:
Eine Tabelle (A1-J172) in die Daten eingetragen werden. Dabei gibt es verschiedene Abschnitte deren Beginn jeweils mit einer farblich hinterlegten Zeile visualisiert ist. Also 10 Spalten, von denen jeweils 2 zusammen gehören.
Schwer zu erklä...
02.02.2012 18:58:59
Thread-ID: 1249010
3 Beiträge
Zeilen ausblenden, wenn bestimmter Bereich leer
Tim

Hallo an alle,
ich habe eine größere Tabelle und möchte folgenden Bereich untersuchen:
- jeweils die Spalten AS bis BB (also Spalte 45 bis Spalte 54) für jede Zeile
Wenn in einer Zeile in dem Bereich AS bis BB kein Eintrag steht, soll diese ausgeblendet werden. Befindet sich in dies...
23.09.2013 11:04:23
Thread-ID: 1331884
5 Beiträge
Auf 2 bestimmten Tab Zeilen Ausblenden
Thomas

Wünsche allen einen schönen Freitag!
Ich habe im Netz paar Cods gefunden die mir auf zwei Tabellenblättern die Leerzeilen ausblenden nur hab ich eine UF über die ich ausgewählte Blätter Drucke und auch Blatt 4 und 5 die ich aber ohne Leerzeilen gerne gedruckt haben möchte.
Beim zusammen...
21.02.2014 17:31:40
Thread-ID: 1350699
14 Beiträge
Zeilen mit bestimmten Inhalt löschen
markus

Hi,ich muss eine riesige Menge an ausgewerteten Logfiles mit Excel aufbereiten. Da einige "Abrufe" aufgeführt wurden, die unrelevant sind, muss ich diese löschen.Kurzes BeispielAnzahl: Name:
22 /images/
432 /hr/
235 /press/usw.Ich benötige a...
18.07.2002 12:15:53
Thread-ID: 137862
4 Beiträge
Makro: Zeilen mit bestimmten Inhalt löschen
Markus Gerhartz

Hallo nochmal,also es wäre wirklich ziemlich wichtig für mich. Ich benötige ein Makro zum löschen von Zeilen mit bestimmten unterschiedlichen Inhalten.Z. B.Anzahl: Name:
33 Cvs
3423 images
664 jsuswIch möchte nun zum Beispiele alle Zeilen mit dem Inh...
18.07.2002 13:02:28
Thread-ID: 137905
11 Beiträge
Zeilen ausblenden wenn bestimmter Wert
Fabian

Hallo zusammen,
ich möchte in einem Tabellenblatt bestimmte Zeilen aus/Einblenden, wenn in einer Zelle ein entsprechender Wert eingegeben wird.
Nach ein suche im Netz bin ich auf diesen Code gestoßen, der auch soweit funktioniert... Private Sub Worksheet_Change(ByVal Target As Range) I...
02.03.2015 15:53:58
Thread-ID: 1412319
3 Beiträge
Anzeige
Zeilen ausblenden wenn in bestimmter Zelle kein we
Ulle

Ich habe die Liste um ein paar mehr Zellenabfragen erweitern müssen.
Leider bringt er mir nun eine Fehlermeldung:
"Falsche Anzahl an Argumenten oder ungültige Zuweisung"
Ich hoffe du bzw ihr könnt mir helfen. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Targe...
27.08.2015 22:14:45
Thread-ID: 1444783
6 Beiträge
Zeile ausblenden, wenn bestimmter Bereich leer
Benji

Guten Tag,
ich bin auf der Suche nach einem Makro dass mir die Zeile ausblendet, wenn im Bereich "C:AD" der jeweiligen Zeile kein Wert also "" steht.
Ich bin auf folgenes Makro gestossen.
Sub Ausblenden() 'Zeilen ausblenden wenn 0 und einblenden wenn 1 in Spalte A steht Columns(1)...
14.06.2016 10:53:34
Thread-ID: 1498785
8 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 mit bestimmten Inhalten in Excel ausblenden

Schritt-für-Schritt-Anleitung

Um in Excel alle Zeilen mit einem bestimmten Inhalt auszublenden, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor:

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

  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf VBAProject (DeineArbeitsmappe), wähle Einfügen und dann Modul.

  3. Füge den folgenden Code ein:

    Sub ZeilenAusblenden()
   Dim objRow As Range
   For Each objRow In ActiveSheet.UsedRange.Rows
       objRow.Hidden = WorksheetFunction.CountIf(objRow, "*Test*") = 0
   Next
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus:

    • Drücke ALT + F8, wähle ZeilenAusblenden und klicke auf Ausführen.

Dieser Code blendet alle Zeilen aus, die nicht den Text "Test" enthalten, unabhängig davon, ob er Teil eines anderen Textes ist.

Häufige Fehler und Lösungen

  • Fehler: Keine Zeilen werden ausgeblendet

    • Lösung: Stelle sicher, dass der Suchbegriff korrekt ist und dass Du den richtigen Bereich in der Arbeitsmappe ausgewählt hast.

  • Fehler: Zeilen werden nur ausgeblendet, wenn die Zelle exakt "Test" enthält

    • Lösung: Verwende den CountIf-Befehl mit Wildcards, wie im obigen Beispiel gezeigt ("*Test*").

  • Fehler: Das Makro läuft zu lange

    • Lösung: Reduziere den Bereich, den Du durchsuchst, z.B. auf Rows("1:200"), um die Leistung zu verbessern.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du auch die Filterfunktion in Excel nutzen:

  1. Markiere die Spaltenüberschrift.
  2. Gehe zu Daten > Filter.
  3. Klicke auf den Dropdown-Pfeil und wähle Textfilter.
  4. Wähle Enthält und gib "Test" ein.

Diese Methode blendet nicht die Zeilen aus, sondern zeigt nur die relevanten Zeilen an.

Praktische Beispiele

  1. Alle Zeilen mit "Test" in Spalte A ausblenden:

    Sub BeispielA()
   Dim rng As Range
   For Each rng In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
       rng.EntireRow.Hidden = Not rng.Text Like "*Test*"
   Next
End Sub

  2. Zeilen in einem bestimmten Bereich ausblenden:

    Sub BeispielB()
   Dim objRow As Range
   For Each objRow In Rows("1:200")
       objRow.Hidden = WorksheetFunction.CountIf(objRow, "*Test*") = 0
   Next
End Sub

Beide Beispiele zeigen, wie Du alle Zeilen mit einem bestimmten Inhalt in Excel ausblenden kannst.

Tipps für Profis

  • Verwende Named Ranges: Statt feste Zellreferenzen zu verwenden, kannst Du benannte Bereiche verwenden, um den Code flexibler zu gestalten.
  • Optimierung: Deaktiviere die Bildschirmaktualisierung während der Makroausführung: 
    Application.ScreenUpdating = False
' Dein Code hier
Application.ScreenUpdating = True
  • Fehlerbehandlung: Füge eine Fehlerbehandlung hinzu, um unvorhergesehene Probleme zu vermeiden.

FAQ: Häufige Fragen

1. Kann ich mehrere Begriffe gleichzeitig ausblenden? Ja, Du kannst den CountIf-Befehl anpassen, um mehrere Bedingungen zu prüfen.

2. Wie kann ich die ausgeblendeten Zeilen wieder anzeigen? Verwende den Befehl Rows.Hidden = False, um alle Zeilen wieder anzuzeigen.

3. Funktioniert das auch in Excel Online? VBA-Makros sind in Excel Online nicht verfügbar. Du musst die Desktopversion verwenden.

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