Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
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
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ein-/ausblenden, je nach Zellwert

Zeilen ein-/ausblenden, je nach Zellwert
21.11.2015 18:55:55
Tanja
Hallo an alle,
ich möchte gerne alle Zeilen eines Blattes ausblenden, bei denen in Spalte H der Wert X steht, und alle anderen Zeilen einblenden.
Bei einzelnen Zeilen verwende ich dafür immer 

EntireRow.Hidden = False / True
aber kann mir jemand sagen, wie ich das automatisch auf alle Zeilen eines Blattes anwende und mit dem Wert in Spalte H verbinde ?
Ich dachte vielleicht mit einem Loop und If / Then für jede Zeile, ich weiss aber nicht, wie ich hier ansetzen soll und ob es vielleicht noch schnellere Alternativen gibt.
Vielen Dank im Voraus für Eure Hilfe.
LG,
Tanja

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ein-/ausblenden, je nach Zellwert
21.11.2015 19:04:10
Sepp
Hallo Tanja,
warum wendest du nicht den Autofilter an? Geht auch per VBA und auch ohne sichtbare Filter-Dropdowns.
Gruß Sepp

AW: Zeilen ein-/ausblenden, je nach Zellwert
21.11.2015 19:11:22
Tanja
Hallo Sepp,
vielen Dank - das klingt gut ! :-)
Ich bin bei VBA leider noch ganz am Anfang - kannst Du mir sagen, wie ich dort den Filter setze, ohne sichtbare Filter-Dropdowns ?
LG,
Tanja

AW: Zeilen ein-/ausblenden, je nach Zellwert
21.11.2015 19:19:47
Sepp
Hallo Tanja,
kann st du eine Beispieldatei hochladen? Der Aufbau sollte dem Original entsprechen, damit ich sehe, was und wo gefiltert werden soll.
Gruß Sepp

Anzeige
AW: Zeilen ein-/ausblenden, je nach Zellwert
21.11.2015 19:31:40
Tanja
Hallo Sepp,
durch Deinen Tipp habe ich mich jetzt für eine einfachere Lösung entschieden:
Ich setze in Excel einen normalen Dropdown-Filter für Spalte H und blende die Spalte aus.
Nun müsste ich in VBA nur noch wissen, wie ich den Filter jedes Mal zurück setze und dann nur die leeren Zellen (blanks) auswähle.
Der Makro-Recorder zeigt mir dazu folgendes an, was aber bestimmt nicht die beste Schreibweise ist: 
    Columns("H:H").Select
Selection.AutoFilter
ActiveSheet.Range("$H$1:$H$124").AutoFilter Field:=1
ActiveSheet.Range("$H$1:$H$124").AutoFilter Field:=1, Criteria1:="="
Kannst Du mir sagen, wie man das noch besser schreibt ? Dann ist das Problem schon gelöst. :-)
Wichtig ist dabei nur, dass ich den Filter immer erst wieder zurück setzen muss.
LG,
Tanja

Anzeige
AW: Zeilen ein-/ausblenden, je nach Zellwert
21.11.2015 19:48:59
Sepp
Hallo Tanja,
' **********************************************************************
' Modul: Modul3  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub FilterX()
With ActiveSheet
  With .Range("H1:H" & .UsedRange.Rows.Count)
    .AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd, Visibledropdown:=False
  End With
End With
End Sub

Sub FilterLeer()
With ActiveSheet
  With .Range("H1:H" & .UsedRange.Rows.Count)
    .AutoFilter Field:=1, Criteria1:="=", Operator:=xlAnd, Visibledropdown:=False
  End With
End With
End Sub

Sub FilterAus()
On Error Resume Next
With ActiveSheet
  If .AutoFilterMode Then .ShowAllData
End With
End Sub

Gruß Sepp

Anzeige
AW: Zeilen ein-/ausblenden, je nach Zellwert
21.11.2015 19:56:37
Tanja
Hallo Sepp,
das ist klasse und ist super anzuwenden - vielen Dank dafür !!
LG und einen schönen Abend,
Tanja

311 Forumthreads zu ähnlichen Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Anzeige
Werte aus PRN Datei einlesen über 65563 Zeilen
Andre´

Hallo alle zusammen,
Ich lese aus einer PRN-Datei die Werte ins Excel ein wie folgt:
Option Explicit
Sub Daten_einlesen() Dim iFree As Integer, strText As String, arrTmp, arrDaten() Dim lngCounter As Long, lngStart As Long, lngEnde As Long ReDim arrDaten(1 To 11, 1 To 1) iFree = Fr...
04.11.2008 08:39:00
Thread-ID: 1021464
12 Beiträge
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Wenn Spalte D übereinstimmt, dann Inhalt kopieren
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter -Basis und Basis1-, in Spalte D steht die Kundennummer. Wie kann ich erreichen, dass ein Abgleich zu weiteren Tabellen -Tabelle1-4- (es können 4, aber auch nur 1 Tabellenblatt vorhanden sein) erfolgt und wenn die Kundennummer aus Tabe...
30.11.2008 20:33:51
Thread-ID: 1029110
6 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 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
7
7
2
3
11
5
2
5
7
2
7
12
2
3
5
9
3
2
8
1
6
4
2
12