Find værdi i skema ud fra 2 værdier

Private Sub worksheet_change(ByVal target As Excel.Range)
    If target.Row = 15 Then
        If Cells(15, 1) <> "" And Cells(15, 2) <> "" Then
            koordinat = udførSøgning
            If koordinat <> "" Then
                Cells(15, 3) = koordinat
            Else
                Cells(15, 2) = "???"
            End If
           
        End If
    End If
End Sub
Private Function udførSøgning()
Dim tid, gade
    tid = Cells(15, 1)
    gade = Cells(15, 2)
   
    For t = 2 To 11
        If tid >= Cells(t, 1) And tid <= Cells(t, 2) Then
            For g = 3 To 7
                If LCase(gade) = LCase(Cells(1, g)) Then
                    udførSøgning = Cells(t, g).Address
                    Exit Function
                End If
            Next g
        End If
    Next t
    udførSøgning = ""
End Function

i arket skriver du: - ellers ret til hvor du har dine range's

=Selle(A2:A11;A15;C1:G1;B15)

Function Selle(Rækker, rk, Kolonner, kol)
Application.Volatile
For Each c In Rækker
If rk >= c And rk < c.Offset(0, 1) Then r = c.Row: Exit For
Next
For Each c In Kolonner
If kol = c.Value Then k = c.Column: Exit For
Next
Selle = ActiveSheet.Cells(r, k)
End Function

Jeg har ændret lidt i excelent's eks. så det nu ser sådan ud:

Function rotation(rk, kol)
Dim c, r, k
Application.Volatile
For Each c In Range("RotationTid")
If rk >= c And rk < c.Offset(0, 1) Then r = c.Row: Exit For
Next
For Each c In Range("RotationGade")
If kol = c.Value Then k = c.Column: Exit For
Next
rotation = ActiveSheet.Cells(r, k)
End Function

Det virker perfekt så længe jeg bruger =rotation(A15;B15) i samme ark.

Problemet er så nu at jeg skal kunne bruge denne funktion i andre ark også.

Når jeg bruger den i andre ark skrive den #VÆRDI!

Hvad skal der ændres for at det virker i andre ark også?

Kunne forestille mig det har noget at gøre med rotation = ActiveSheet.Cells(r, k) uden at være helt sikker..

denne virker også i andre ark - i dette eks er skema i Ark5
=Selle("Ark5";Ark5!A2:A11;Ark5!A15;Ark5!C1:G1;Ark5!B15)

Funktionen kan godt ændres til rotation, men jeg tvivler på
du kan nøjes med : Function rotation(rk, kol)

Function Selle(Ark, Rækker, rk, Kolonner, kol)
Application.Volatile
For Each c In Rækker
If rk >= c And rk < c.Offset(0, 1) Then r = c.Row: Exit For
Next
For Each c In Kolonner
If kol = c.Value Then k = c.Column: Exit For
Next
Selle = Sheets(Ark).Cells(r, k)
End Function

Hvis dit skema forbliver i samme område kan du nøjes med denne
=Skema("Ark5")
hvor Ark5 er navn på arket hvor skema er.
(kan ændres til rotation - har blot anvendt Skema i dette eks.)

Function Skema(Ark)
Application.Volatile
For Each c In Sheets(Ark).Range("A2:A11")
If Sheets(Ark).Range("A15") >= c And Sheets(Ark).Range("A15") < c.Offset(0, 1) Then r = c.Row: Exit For
Next
For Each c In Sheets(Ark).Range("C1:G1")
If Sheets(Ark).Range("B15") = c.Value Then k = c.Column: Exit For
Next
Skema = Sheets(Ark).Cells(r, k)
End Function

Super det virker..

Jeg er dog stødt på et andet problem.

Tiden får jeg ud fra et felt der indeholder dd-mm-åååå tt:mm
Feltet har jeg så lavet om til tt:mm

Nu er problemet så, at den ikke kan finde det tidsrum det høre til, da den stadig indeholder datoen.

Har du en løsning til hvordan jeg kan løse det eller skal jeg oprettet et nyt spm?

hvis du fx. henter tiden fra selle B21 så prøv:

=--TEKST(B21;"tt:mm")

Yes det virker..

Hvad er det lige -- går ind og gør?

Husk et svar =)

den konverterer tekst til tal