Celwaarde selecteren in ander werkblad

[johcru12]

Hallo wie kan mij helpen?,

ik heb een excel file bestaand uit 2 werkbladen
blad1 is een jaarplanning ( met datums, machines en namen )
op blad2 wil ik in cel C45 een datum zetten die ik kan veranderen.
De datum die daar ingevuld is wil ik selecteren in blad1 ( of er naar toe gaan )
Is dit mogelijk ?

 

[HSV]

Zet je file op het forum voor betere reacties en hulp.

 

[johcru12]

met bijlage

Bekijk bijlage voorbeeld.xlsxHoi Harry.

ik heb een eenvoudiger voorbeeld ( anders misschien te complex )
In blad2 vul ik op D2 een datum in
Nu wil ik naar die ingevulde datum op blad1 via een formule of VBA
Is dit mogelijk?

 

[HSV]

Zet onderstaande in Bladmodule "Blad2".

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address(0, 0) = "D2" Then
  Set c = Sheets("Blad1").Rows(1).Find(DateValue(Target), , xlValues, xlWhole)
   If Not c Is Nothing Then
     Application.Goto c, True
   Else
     MsgBox "niet gevonden"
   End If
 End If
End Sub

 

[johcru12]

Hoi Harry bedankt voor de snelle reactie . Ik heb het in blad2 geplaatst.
Alleen doet hij niet alle datums zoals gewenst.
9-Jan doet hij goed en 10 niet.
4-3 doet hij ook weer goed maar andere weer niet.
Wil jij nogeens kijken aub,

 

[HSV]

Hoi,

Zo moet het beter gaan.

Set c = Sheets("Blad1").Rows(1).Find(CDate(Target), , xlFormulas)

 

[johcru12]

Hoi Harry,

Perfect dank je wel