Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datumsliste auslesen - HILFEEEEE

Datumsliste auslesen - HILFEEEEE
18.08.2006 10:43:50
Aicha
Hallo zusammen,
ich beise mir gerade die Zähne an etwas aus und benötige bitte Hilfe.
Ich möchte aus einer Liste Zeilen ausblenedn, wenn das Datum nicht älter als der aktuelle Monat ist.
Jetzt habe ich 2 Randbedingungen:
Die Abfragespalte 9 hat als Inhalt folgende Formate:
1) 31.01.2006
2) Q1, Q2, Q3, Q4
3) NEU 31.07.2006
1 und 2 habe ich hinbekommen wie erweitere ich meinen code um die Randbedingung Nr. 3 ?
Anbei mein Code:
For c = 10 To Cells(250, 1).End(xlUp).Row
Select Case Cells(c, 9)
Case "Q1", "Q2", "Q3", "Q4"
tmp = DateSerial(Year(Date), Right(Cells(c, 9), 1) * 3 + 1, 0)
Case Else
tmp = Cells(c, 9)
End Select
Rows(c).EntireRow.Hidden = (Month(tmp) &lt Month(Date))
Next
Lieben Dank Euch Cracks.
Gruß
A

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsliste auslesen - HILFEEEEE
18.08.2006 11:33:03
ingUR
Hallo, Aicha,
möglicherweise genügt eine if-Abfrage, ob der String ein Leerzeichen enthält, und wenn ja, den Vorspann abzuschneiden, um dann mit dem normalen Datumsstring weiter zu arbeiten (nicht getestet!):
...
Case Else
tmp = Cells(c, 9)
if instr(tmp," ") then tmp = cdate(mid(tmp, instr(tmp," ")+1))
End Select
...
Das geht natürlich nict so einfach, wenn andere Texteinträge in der Spalte entahleten sind, die nicht als Datum interpretiuert werden dürfen.
Gruß,
Uwe
AW: Datumsliste auslesen - HILFEEEEE
18.08.2006 13:17:48
Aicha
Vielen Dank.
Gruß
A
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige