|
Hallo,
Ich habe versucht einen Datumsfilter zu machen, in dem alle Zellen die nicht in dem angegebenen Datumsbereich sind, ausgeblendet werden bzw. wenn sie zutreffen eingeblendet werden.
Hier mein derzeitiger Code:
Private Sub ZellenAusblenden()
For x = 12 To 100
Find = Range("A" & Z)
Von = Range("B8")
Bis = Range("D8")
If Find < Von Or Find > Bis Then
Rows("A" & Find).EntireRow.Hidden = True
Else
Rows("A" & Find).EntireRow.Hidden = False
End If
Next x
End Sub
In B8 steht das Datum, ab wann gefiltert werden soll.
In D8 steht das Datum, bis wann gefiltert werden soll.
In der Spalte A ab der 11. Zeile ist immer das Datum angegeben.
Und ab der Zeile 12 bis 112 sind die Daten.
Ich hoffe ihr könnt damit was anfangen und hoffe auf Hilfe, da ich total Neu in VBA bin und es nicht gewohnt bin ^^
MfG LaVeyt
|