Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ausblenden mit bestimmten Datum

Zeilen ausblenden mit bestimmten Datum
17.08.2006 14:40:40
Susi
Hallo ich habe folgendes Problem,
ich habe eine Liste mit 100 Zeilen. Jede Zeile hat eine Datumsspalte. Jetzt möchte ich alle Zeilen ausblenden, wo das Datum älter als der aktuelle Monat ist. Beispiel:
Zeile 1 - 01.06.2006
Zeile 2 - 02.07.2006
Zeile 2 - 24.08.2006
Zeile 3 - 31.08.2006
Ausgeblendet werden sollen nur Zeile 1 und 2, da diese Zeilen angaben vom Vormonat haben, welche nicht interessieren.
Gibt es hierz eine Excel-Formel - VBA wäre auch OK.
Danke und Gruß
SUSI

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden mit bestimmten Datum
17.08.2006 14:52:24
u_
Hallo,

Sub tt()
Dim c As Long
Application.ScreenUpdating = False
For c = 2 To Cells(65536, 1).End(xlUp).Row
Rows(c).EntireRow.Hidden = (Month(Cells(c, 1)) < Month(Date))
Next
Application.ScreenUpdating = True
End Sub

Gruß
Lesen gefährdet die Dummheit
AW: Zeilen ausblenden mit bestimmten Datum
17.08.2006 16:11:56
SUSI
Hallo,
leider bekomme ich einen Fehler.
&ltpre&gt
Private Sub CommandButton4_Click()
Dim c As Long
Application.ScreenUpdating = False
For c = 10 To Cells(65536, 9).End(xlUp).Row
Rows(c).EntireRow.Hidden = (Month(Cells(c, i)) &lt Month(Date)) &lt= break !!!!!
Next
Application.ScreenUpdating = True
End Sub&lt/pre&gt
Type mismatch. Das Datum liegt im Format 10.02.06 vor. Wo ist das Problem ? Bitte um Hilfe.
Danke
SUSI
Anzeige
AW: Zeilen ausblenden mit bestimmten Datum
17.08.2006 16:44:19
u_
Hallo,
ist das Datum wirklich ein Datum oder ein Text, der wie ein Datum aussieht?
Abhilfe: Rows(c).EntireRow.Hidden = (Month(Cells(c, i)*1) &lt Month(Date))
Gruß
Lesen gefährdet die Dummheit
AW: Zeilen ausblenden mit bestimmten Datum
17.08.2006 16:56:28
SUSI
Geht auch nicht. Type mismatch.
Das feld ist eine Referenz
=Berichtsvorlage!K14
auf ein Feld K14 welches als Custom TT.MM.YY definiert ist.
Gruß
SUSI
AW: Zeilen ausblenden mit bestimmten Datum
17.08.2006 17:17:03
u_
Hallo,
du hast geschrieben: Cells(c,i). Welchen Wert hat i? In meinem Code war es Cells(c,1), ausgehend davon, dass das Datum in Spalte A steht.
Gruß
Lesen gefährdet die Dummheit
Anzeige
AW: Zeilen ausblenden mit bestimmten Datum
17.08.2006 17:19:10
SUSI
sorry,
der Fehler ist ein andere. In dem Vergleichsfeld des Datums stehtehen auch Werte wie Q1, Q2 etc. für Quartal 1 etc. Q1 wäre als 31.03. Q2 als 30.06 zu interpretieren. Wie mache ich das ?
SUSI
AW: Zeilen ausblenden mit bestimmten Datum
17.08.2006 17:43:47
u_
Hallo,
also derartige Überraschungen mag ich aber gar nicht! Klare Problembeschreibung-klare Antwort.
Letzte! Version. Danach musst du selbst sehen, wie du klar kommst.

Sub tt()
Dim c As Long, tmp As Date
Application.ScreenUpdating = False
For c = 2 To Cells(65536, 1).End(xlUp).Row
Select Case Cells(c, 1)
Case "Q1", "Q2", "Q3", "Q4"
tmp = DateSerial(Year(Date), Right(Cells(c, 1), 1) * 3 + 1, 0)
Case Else
tmp = Cells(c, 1)
End Select
Rows(c).EntireRow.Hidden = (Month(tmp) < Month(Date))
Next
Application.ScreenUpdating = True
End Sub
Gruß
Lesen gefährdet die Dummheit
Anzeige
AW: Zeilen ausblenden mit bestimmten Datum
18.08.2006 13:18:53
SUSI
Vielen Dank.
Gruß
SUSI

306 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
5
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8