Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilen ausblenden, wenn ...

Zeilen ausblenden, wenn ...
Markus
Hallo,
in einer Tabelle sind ca 500 Zeilen. In der Spalte "A" steht das Datum.
Nun möchte ich alle Zeilen ausblenden ( Zeilenhöhe = 0 ) ben denen das Datum kleiner als 7 Tage ist.
(ab heute gerechnet).
Kann Excel so etwas und wenn ja, kann mir jemand einen Tipp geben?
Jetzt schon besten Dank für eine evtl. Hifestellung.
Markus
Anzeige
AW: Zeilen ausblenden, wenn ...
28.07.2011 19:18:20
Josef

Hallo Markus,
warum nicht den Autofilter verwenden?

« Gruß Sepp »

Anzeige
AW: Zeilen ausblenden, wenn ...
28.07.2011 19:22:28
Markus
Hallo Sepp,
danke für den Tipp.
Ich kann es schon, aber ungeübte Excler?
Ich benötige das ganze für sehr schwache Excel-Anwender.
Wenn das ganze geht, werde ich einen Start-Button auf die Tabelle legen,
für das Ausblenden, bzw. Einblenden.
Markus
AW: Zeilen ausblenden, wenn ...
28.07.2011 19:32:25
Josef

Hallo Markus,
meine Annahme geht von Überschriften in Zeile A aus.
Füge den Code in ein allgemeines Modul ein, platziere auf der Tabelle einen Button und weise ihm das Makro zu.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Filter()
  Dim lngIndex As Long
  With Range("A1").CurrentRegion
    .AutoFilter Field:=1, Criteria1:=">=" & Clng(Date - 7), VisibleDropDown:=False
    For lngIndex = 2 To .Columns.Count
      .AutoFilter Field:=lngIndex, VisibleDropDown:=False
    Next
  End With
End Sub



« Gruß Sepp »

Anzeige
AW: Zeilen ausblenden, wenn ... - Ich Esel
29.07.2011 19:36:54
Markus
Hallo Josef,
ich bin ein Trottel.
Ich habe mich falsch ausgedrückt.
Das Makro funktioniert, aber eigentlich wollte ich, dass die Zeilenhöhe auf Null gesetzt wird,
sofern das Datum in Spalte A kleiner als 7 Tage ab Heute gerechnet ist.
Es tut mir leid, Euch Speziallisten nochmals zu belästigen.
Markus
Anzeige
AW: Zeilen ausblenden, wenn ... - Ich Esel
29.07.2011 20:54:52
Josef

Hallo Markus,
das kann man aber mit ein bisschen nachdenken selber hin bekommen.
Criteria1:="


« Gruß Sepp »

Anzeige
AW: Zeilen ausblenden, wenn ... - Ich Esel
29.07.2011 23:23:37
Markus
Hallo,
nein, das kann es nicht sein.
Es soll kein Filter gesetzt werden um Zeilen auszublenden, sondern, die Zeilenhöhe soll auf 0 (Null) gesetzt werden, damit man die Zeile nicht sieht, bzw. diese auch nicht gedruckt wird.
siehe auch: Format, Zeile, Höhe=0).
Sorry, dass ich nochmals störe
Markus
Anzeige
AW: Zeilen ausblenden, wenn ... - Ich Esel
30.07.2011 14:51:09
Josef

Hallo Markus,
aber genau das macht doch mein Code!
Die Zeilen werden Ausgeblendet, sie werden also nicht angezeigt und auch nicht gedruckt, was stört dich daran?

« Gruß Sepp »

Anzeige
AW: Zeilen ausblenden, wenn ...
30.07.2011 12:16:29
Gerd
Hallo Markus!
Sub teste()
Dim lngRow As Long
For lngRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row ' oder: 500
Cells(lngRow, 1).EntireRow.Hidden = Cells(lngRow, 1).Value 

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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