Durch Macro Wert überprüfen
30.01.2004 11:19:50
Wolfi
ich benötige mal wieder etwas Unterstützung für folgendes Macro, da ich leider noch nicht so fitt in VBA bin:
Es such in der Zeile 7 nach dem heutigen Datum - zwei Tage. und gibt eine Meldung aus falls kein entsprechende Tag vorhanden ist.
Ich möchte jetzt zusätzlich das überprüft wird, ob in der Spalte mit dem gesuchten Datum,eine Zeile darunter dieser Wert drinsteht: "#NV".
Falls ja soll die MsgBox wie gehabt ausgegeben werden.
Ich weiß leider nicht wie ich das umsetzten muß.
Wäre schön wenn mir jemand weiterhelfen könnte.
Gruß und Danke
Wolfi
Sub zu_Datum()
a = 0
Dim i
On Error Resume Next
a = Sheets("GLSD").Rows(7).Find(What:=Date - 2, LookIn:=xlValues).Column
If a = 0 Then
Sheets("GLSD").Select
For i = 2 To 35
If Worksheets("GLSD").Cells(7, i) <> Date - 2 Then
Worksheets("GLSD").Cells(7, i).Interior.ColorIndex = 0
End If
Next i
MsgBox "kein aktuelles Datum vorhanden, Bitte aktualisieren Sie die Reports", vbInformation
Else
Sheets("GLSD").Select
ActiveSheet.Cells(7, a).Select
ActiveSheet.Cells(7, a).Interior.ColorIndex = 36
For i = 2 To 31
If Worksheets("GLSD").Cells(7, i) <> Date - 2 Then
Worksheets("GLSD").Cells(7, i).Interior.ColorIndex = 0
End If
Next i
End If
On Error GoTo 0
End Sub
Anzeige