cel met datum vandaag selecteren uit een rij

[Remlo]

Bedoeling is dat wanneer ik het blad open hij de cel met datumwaarde van vandaag selecteert.

De datums staan in F3:Nl3 wel als formule

heb dit geprobeerd met .find maar kom er niet uit. VBA is ook nieuw voor mij.http://www.helpmij.nl/forum/images/smilies/confused2.gif

 

[edmoor]

Een voorbeeld documentje geeft veel duidelijkheid. Bedoel je echt het selecteren van een blad of het openen van het werkboek? En als dat laatste het geval is, om welk blad gaat het dan?

 

[Remlo]

Edmoor

snel een bestandje gemaakt wat het duidelijker zal maken. (Oorspronkelijk bestand is veel te groot.)
De uitleg staat nog eens op tablad knoppen.

Alvast bedankt om er naar te willen kijken.

 

[edmoor]

Leuk dat je dat bestandje hebt gemaakt. Maaruh, waar is 'ie?

 

[OctaFish]

Ook zonder bestandje is er wel een macro te maken.

Private Sub Workbook_Open()
Dim c As Range, dt As Date, FirstAddress As String
dt = Date

With Worksheets(1).Range("F3:Nl3")
    Set c = .Find(dt, LookIn:=xlValues)
    If Not c Is Nothing Then
        FirstAddress = c.Address
        Do
            c.Select
        Loop While Not c Is Nothing And c.Address <> FirstAddress
    End If
End With
    
End Sub

 

[Remlo]

Edmoor,

hierbij het bestandje, was ik vergeten. Zoals zovele dingen

 

[OctaFish]

Prima als alleen edmoor je mag helpen, maar mijn macro doet het prima in jouw bestandje

 

[Remlo]

OctaFish,

had nog geen tijd gemaakt om het te proberen.
Bij mij werkt het niet, maar ik ken dan ook niets van VBA.
Kun je het eens in mijn bestandje plaatsen, dan kan ik zien wat ik fout doe...
Ik ben er zeer zeker van dat je oplossing werkt, maar dat de fout bij mij te zoeken is.

Ook aan jou bedankt voor de hulp

 

[OctaFish]

Tuurlijk.

 

[OctaFish]

Nog een laatste dingetje: het zoeken gaat een beetje onhandig, omdat de datumopmaak roet in het eten gooit. Daarom heb ik in je bestandje de datumopmaak veranderd. Wil je dat niet, dan moet je op een iets andere manier zoeken, bijvoorbeeld zo:

Sub GaNaar()
Dim c As Range, ws As Worksheet
Dim dt As Date
Dim arr As Variant, i As Integer
dt = Date

Set ws = Sheets("Vakantieplanning")
arr = ws.Range("B3:NR3")
For i = LBound(arr, 2) To UBound(arr, 2)
    If arr(1, i) = dt Then
        Set c = ws.Cells(3, i + 2)
        ws.Activate
        c.Activate
        Exit For
    End If
Next i
    
End Sub

Zal vast wel korter kunnen opgeschreven, maar dat mogen mensen als snb doen

 

[Remlo]

OctaFish,

Deze laatste werkt super, ook al denk je dat hij wat lang is.

Hartelijk dank

 

[edmoor]

Prima als alleen edmoor je mag helpen, maar mijn macro doet het prima in jouw bestandje

Ik vond die van jou prima dus was het niet nodig nog te reageren

 

[Remlo]

edmoor,

ook voor jou hartelijk dank om dit op te volgen