Monat per VBA auswerten
06.12.2006 01:41:37
MathiasW
habe nochmal ein klienes Problemchen.
In Zelle A1 steht ein Datum immer 01.01.JJJJ
In Zelle A1 ist ein Kommentar hinterlegt.
Folgendes soll erreicht werden, immer im Monat Januar soll der Kommentar eingeblendet werden ansonsten ausgeblendet.
Hab schon versucht, kriege es aber nicht hin, könnt Ihr mir bitte helfen?
vielen Dank Mathias
Sub Makro1()
Dim mon1, mon2
mon1 = Month(A1)
mon2 = Month(TODAY())
If mon1 = mon2 Then
Range("A1").Comment.Visible = True
Else
Range("A1").Comment.Visible = False
End If
End Sub