Begin en eind datum

[ekker1234]

Hoi Allemaal,
Het probleem waar ik mee zit is.
De bedoeling is dat als de huidig datum (vandaag) tussen de 2 datums valt de letter van de commandbutton(knop) te laten veranderen van kleur,en als de datum er niet tussen valt wit wordt?

Mvg
Gerard

 

[HSV]

Ik zie nergens andere datums, en de aangemaakte knop is geen Commandbutton.
Zet onderstaande code in moduleblad 'Sheet1'.
Zet de datums in blad1 cel A1 en A2.
Bij verandering van één van deze twee cellen loopt de code en brengt verandering in kleur of niet.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Or Target.Address = "$A$2" Then
   If DateValue(Now) > [A1] And DateValue(Now) < [A2] Then
    Shapes("knop").Select
     Selection.Font.ColorIndex = 5
Else
    Shapes("knop").Select
     Selection.Font.ColorIndex = 2
    End If
   Application.Goto [A1]
 End If
End Sub

 

[ekker1234]

Hoi Harry

Bedankt voor je reactie::thumb:

Private Sub Workbook_Open()
Dim DayStart As Date
Dim sDatum As Date

sDatum = DateValue(Now)


DayStart = #3/6/2011# ' change start date in here
DayEnd = #5/6/2011# ' change end date in here

If sDatum = (DayStart - DayEnd) Then

ActiveSheet.Shapes("knop").Select
With Selection.Font
.ColorIndex = 4
End With
Else:
ActiveSheet.Shapes("knop").Select
With Selection.Font
.ColorIndex = 2
End With
End If
End Sub

Stond onder :thisworkbook

De commandbutton => autovorm sorry

dit vb komt uit een groter bestand wat ik wil is dat het in VBA staat

 

[Warme bakkertje]

dit vb komt uit een groter bestand wat ik wil is dat het in VBA staat

Wat je hiermee bedoelt weet ik niet, maar onderstaande werkt voor mij

Sub tst()
Dim DayStart As Date, DayEnd As Date, sDatum As Date
sDatum = Format(DateValue(Now), "mm/dd/yyyy")
DayStart = #3/6/2011# ' change start date in here
DayEnd = #5/6/2011# ' change end date in here
If sDatum > DayStart And sDatum < DayEnd Then
    ActiveSheet.Shapes("knop").Select
        Selection.Font.ColorIndex = 4
Else
    ActiveSheet.Shapes("knop").Select
        Selection.Font.ColorIndex = 2
End If
End Sub

 

[ekker1234]

Hoi Rudi

Bedankt het werkt !
zie nu mijn fouten waarom het niet werkte:shocked:

Ps. Ik bedoelde dat ik meerdere autovormen heb in een andere bestand en dat dit een "struikelpuntje' was van het bestand.

Mvg
Gerard