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