Excel Loop probleem

[PepijnWest]

Hallo

Ik ben bezig aan een planningsprogrammatje in Excel VBA.

Probleem is als volgt, Excel zou moeten het aantal dagen die ik ingegeven heb aanduiden.
Hij zoekt de datum op, maar op er een soort loop in te plaatsen waardoor hij bijvoorbeeld 5 dagen inkleurt lukt me niet.

Wie kan me helpen?

Alvast bedankt

Pepijn

 

[Guus2005]

Ik heb je code een beetje aangepast.

Option Explicit

Private Sub CommandButton1_Click()
    
    Dim rij        As Long
    Dim intX       As Integer
    Dim intD       As Integer
    Dim intTeller  As Integer
    Dim BeginDatum As Date
    
    rij = ActiveCell.Row
    BeginDatum = TxtBeginDatum
           
    intX = TxtAantalDagen
        
    'doorloop de eerste 256 plaatsen op de zevende rij
    For intD = 7 To 256
        'als de opgevraagde datum gelijk is aan de datum in deze cel
        If Cells(7, intD) = BeginDatum Then
            For intTeller = 0 To intX - 1
               'maak de cel dan rood
               Cells(rij, intD + intTeller).Interior.ColorIndex = 6
            Next intTeller
            'stop deze macro
            Exit For
        End If
           
    Next intD
      
    UserForm1.Hide      'verberg UserForm1
    Unload UserForm1    'alle gegevens uit geheugen verwijderen

End Sub

Enjoy!

 

[snb]

Dat kan met 1 regel

Private Sub CommandButton1_Click()
  Blad1.Rows(7).Find(DateValue(TxtBeginDatum.Text)).Resize(, 5).Interior.ColorIndex = 6
End Sub

Zorg er wel voor dat in de cellen in rij 7 echte data staan.

 

[Guus2005]

@snb: Oke. Ik zal geen Excel vragen meer beantwoorden

 

[PepijnWest]

Guus2005 en snb hartelijk bedankt !

De 'lange' code lukt goed, de 'korte' doet het niet helemaal maar dat ligt waarschijnlijk aan mjin datums...

Misschien toch nog een beetje hulp bij het volgende.

Wanneer ik geen datum invoeg of bij het aantal dagen niets typ
heeft hij een foutmelding. Want hij verwacht een datum of een aantal dagen...

Hoe pas ik het best de 'lange' code aan?

Bedankt!

Pepijn

 

[PepijnWest]

Ja gevonden !

Toch bedankt voor jullie hulp

Pepijn