oprettelse af interval der kan søges i

Det kan du klare ved vlookup.. eller crtl + f :)

igoogle-> Hvordan vil du finde 1179 med ctrl+f, når tallet ikke står nogen steder i regnearket?

Hvordan vil du finde 1179 med vlookup, når data er placeret i rækker og ikke kolonner? hlookup løser heller ikke problemet, da opslagsværdien er placeret i en kolonne.

ahh.. havde læst forkert ..

Kunne VBA være en løsning?

Så kunne du indtaste serienummer i en Userform (programmeret dialogboks) og få vist fremstillingsdato i samme.

Faktisk er igoogle ikke helt galt på den alligeve l ved nærmere eftertanke :-). Hvis seirenumrene altid er kontinueerte

1001 1231 30-8-09
1232 1407 3-9-09
1408 1742 4-9-09

osv

Kan VLOOKUP alligvel bruges

=VLOOKUP(D1,A1:C3,3)

eller på dansk

=LOPSLAG(D1;A1:C3;3)

Der må ikke være "huller" i serienumrene og disse skal forekomme i stigende rækkefølge i kolonne A.

Jeg er ikke sikker på at jeg forstår dette. Som jeg læser lopslag så finder den den værdi der er i første kolonne og returnerer værdien fra anden kolonne, eks.

a1                b1

medlem 1          Søren

og returnerer altså Søren

Det jeg onsker er at der søges efter et serienummer der ligger i intervallet der defineres i

a1            b1
første        sidste nummer i serien
nummer
i serien

1001          1010        (her er der altså 10 numre)
1233          1233        ( 1 nummer)
1455          1499        ( x antal numre)

Det jeg ikke kan finde ud af er hvordan man definerer sådanne intervakker og hvordan man søger i dem

m.v.h

LOPSLAG virker, hvis alle numrene er fortløbende. Ikke hvis der er huller i rækkefølgen, altså

1001 1010
1011 1201
1202 1499
1500 1588

og "3"til sidst indikerer, at der skal returneres fra 3 kolonne.

Hvis der er "huller" i rækken, skal du ud i en makro.

Ja der er huller i numrene.
Hvordan laves sådan én makro, der læser i intervallet mellen de to første kolonner, finder serienumret, og returnerer datoen der står i 3 kolonne.

1001  1033  11-08-2009

søgning på 1021 skal altså returnere værdien 11-08-2009

m.v.h

Du kan bruge dette indtil videre:

Sub FindiInterval()
    tst = Range("a6").Value
    For Each c In Range("a1:a10").Cells
        If tst >= c.Value And tst <= c.Offset(0, 1).Value Then
            Range("b6").Value = c.Offset(0, 2).Value
        Exit Sub
    End If
    Next c
End Sub

Skriv værdien du søger på i A6 og afspil makroen.

Så skriver den datoen i B6. Ret selv den celle, du vil skrive i til noget andet ved at ændre A6. Står første kolonne i dine data et andet sted end A1:A10, skal du også ændre det.

Jeg har prøvet alve det som en funktion, men det driller lidt. Måske vender jeg tilbage senere med en funktionsløsning.

Alternativt: Har en færdig model med Userform, som du kan få tilsendt. Send evt. en mail - mailadr. under min profil.

Her er den som funktion. Så kan du bruge den som alle andre funktioner:

Function FInterval(cel As Long, rn As Range, kol As Byte) As Variant
    tst = cel
    For Each c In rn.Columns(1).Cells
        If tst >= c.Value And tst <= c.Offset(0, 1).Value Then
            FInterval = Format(c.Offset(0, kol - 1).Value, "dd-mm-yy")
            Exit Function
        End If
    Next c
    FInterval = CVErr(xlErrNA)
End Function

Brug den fx som =Finterval(F1;A1:C100;3)

hvor F1 er den celle, hvor du indtaster din søgeværdi. A1:C100 er det område, du har dine værdier i og 3 er den kolonne i matricen, der indeholder datoen, som skal returnes. Findes tallet du søger ikke i matrixens første kolonne, returneres #I/T!

Supertekst takker for din hjælp.
skriv et svar så du kan få point

VBA koden i Userformen:

Private Sub CommandButton1_Click()
Dim fremstillingsDato As Date
    If IsNumeric(Me.TextBox1) And Me.TextBox1 <> "" Then
       
        fremstillingsDato = søgInterval(Val(Me.TextBox1))
        If fremstillingsDato > 0 Then
            Me.Label3.Caption = fremstillingsDato
        Else
            Me.Label3.Caption = "???"
        End If
    End If
End Sub
Private Function søgInterval(serieNr)
Dim ræk As Long
    With ActiveWorkbook.Sheets("Ark1")
        For ræk = 1 To 65000
            If serieNr >= .Cells(ræk, 1) And serieNr <= .Cells(ræk, 2) Then
                søgInterval = .Cells(ræk, 6)
                Exit Function
            Else
                If .Cells(ræk, 1) = "" Then
                    søgInterval = 0
                    Exit For
                End If
            End If
        Next ræk
    End With
End Function