finne element i matrix, som er 4 timer etter en tidsverdi

Public Sub FindDatoTid()
Dim forskel As Integer, Nytid As Date
forskel = InputBox(" indtast forskel i timer" & vbLf & _
" eks.(24.5 ) = 2 dage og ½ time")
Nytid = Range("A2") + (forskel / 24)
For Each C In Range("A2:A500")
If C >= Nytid Then
Range(C.Address).Select
Exit Sub
End If
Next
End Sub

lidt rettet

Public Sub FindDatoTid()
Dim forskel As Integer, Nytid As Date
forskel = InputBox(" indtast forskel i timer" & vbLf & _
" eks.(24,5 ) = 2 dage og ½ time")
Nytid = Range("A2") + (forskel / 24)
For Each C In Range("A2:A500")
If C.Offset(1, 0) > Nytid Then
Range(C.Address).Select
Exit Sub
End If
Next
End Sub

Public Sub FindDatoTid()
Dim forskel As Integer, Nytid As Date
forskel = InputBox(" indtast forskel i timer" & vbLf & _
" eks.(48,5 ) = 2 dage og ½ time")
Nytid = Range("A2") + (forskel / 24)
For Each C In Range("A2:A500")
If C.Offset(1, 0) > Nytid Then
Range(C.Address).Select
Exit Sub
End If
Next
End Sub

hei kabbak
mulig jeg har forklart meg feil,
men jeg tenkte å finne elementet i en matrix, ikke range.

Kanskje det er bedre å finne elementet i regnearket,
før jeg legger data inn i matrix'en?

Jeg kom på en elegant løsning med tidsforskjeller her på eksperten.
http://www.eksperten.dk/spm/482941

jeg testet denne nå, det fungerte utmerket.

MsgBox vTime(1)(2, 1)
MsgBox DateAdd("d", 2, vTime(1)(2, 1))
MsgBox vTime(2)(2, 1)
MsgBox DateAdd("h", 4, vTime(2)(2, 1))

Så da gjenstår det bare å finne riktig x i vTime(1)(x,1)

Burde det her ikke kunne gøre det


testtime=DateAdd("d", 2, vTime(1)(2, 1))
testtime=DateAdd("h", 4, testtime)

for x = 3 to ubound(vTime(1),1)
    if vTime(1)(x,1)>= TestTime
    foundtime = vTime(1)(x,1)
    exit sub
next

Tror vi nærmer oss en løsning.
men, det er ikke selve verdien jeg trenger.
jeg ønsker å finne x, adressen til verdien.

skal benyttes til:
Set MyRange = Range(cells(1,1), cells(x,1))

slevfølgelig:
jeg kan jo benytte

for x = 3 to ubound(vTime(1),1)
    if vTime(1)(x,1)>= TestTime
    lAdress = x+2
    exit sub
next

jeg stiller for enkle spørsmål uten å tenke :-)
Det er så enkelt å få svar her

:-)

Da trenger jeg kun hjelp til å bli av med nogle point's
smid lige et par svar,
oyejo

ok