tijden opzoeken met VBA

[chermans74]

Hallo,

De volgende vraag. Ik heb twee werkbladen waarin tijden staan (format h:mm). Nu wil ik met een tijd uit werkblad 1 dezelfde tijd opzoeken in werkblad 2.
Hiervoor gebruik ik de volgende macro;

-dim tijd as date
-Sheets("Sheet1").activate
-tijd = selection
-Sheets("Sheet2").activate
-Cells.Find(What:=tijd).Activate

Dit resulteert in een foutmelding (Object variable or with block variable not set).
Wat gaat hier mis. Als ik naarde de twee tijden kijk zijn ze exact hetzelfde.

Alvast bedankt,
C. hermans.

 

[HSV]

Dim tijd As Date, c As Range
Sheets("Sheet1").Activate
 tijd = ActiveCell
  Set c = Sheets("Sheet2").Cells.SpecialCells(2).Find(tijd, , xlFormulas, xlWhole)
    If Not c Is Nothing Then
   Application.Goto Sheets("Sheet2").Range(c.Address)
  End If

 

[chermans74]

Beste Harry,

Zelf had ik al iets gevonden om het te laten werken, vandaar de status opgelost. (ik had ook geen reactie meer verwacht)

Echter jouw code werkt veel beter dus die ga ik gebruiken.

Heel veel dank.

Groet,
C hermans.