folgenden code packst du in ein modul, der dir dein datum färbt.
deine bedingten formatierungen kannst du löschen, da ich die vba formatierung direkt ansprechen kann(vbRed, vbYellow)..
Sub Zellen_färben()
Dim zeile As Integer
'Durchlauf von Zeile 1 - 63(hab ich einfach mal so genommen)
For zeile = 1 To 63
'Datum Prüfen
If Cells(zeile, 1).Value < Now - 7 Then
'Zelle Rot färben
Cells(zeile, 1).Interior.Color = vbRed
ElseIf Cells(zeile, 1).Value > Now - 7 And Cells(zeile, 1).Value < Now Then
'Zelle Geld färben
Cells(zeile, 1).Interior.Color = vbYellow
End If
Next zeile
End Sub
____________________________________________________________________
mach dir eine Userform, und 4 buttons. dann kopierst du folgenden code in die userform:
Option Explicit
Dim zeile As Integer
Private Sub CommandButton1_Click()
For zeile = 1 To 63
If Cells(zeile, 1).Interior.Color = vbRed Then
Cells(zeile, 1).EntireRow.Hidden = True
End If
Next zeile
Cells(1, 1).Select
End Sub
Private Sub CommandButton2_Click()
For zeile = 1 To 63
If Cells(zeile, 1).Interior.Color = vbRed Then
Cells(zeile, 1).EntireRow.Hidden = False
End If
Next zeile
Cells(1, 1).Select
End Sub
Private Sub CommandButton3_Click()
For zeile = 1 To 63
If Cells(zeile, 1).Interior.Color = vbYellow Then
Cells(zeile, 1).EntireRow.Hidden = True
End If
Next zeile
Cells(1, 1).Select
End Sub
Private Sub CommandButton4_Click()
For zeile = 1 To 63
If Cells(zeile, 1).Interior.Color = vbYellow Then
Cells(zeile, 1).EntireRow.Hidden = False
End If
Next zeile
Cells(1, 1).Select
End Sub
________________________________________________________________
viel spaß damit
|