find et tal

Marker en celle i kolonne A og vælg "Rediger" - "Søg" - "Indstillinger" - "Søg Kolonnevis"

Hvis deyt kun handler om at finde tallet, som du beskriver det, kan du bruge den indbyggede søgefunktion:

Rediger->Søg

Kig på lopslagg her:
http://www.kursusmaterialer.dk/Excel%20III/Lopslag/og%20Hopslag.aspx

thor.ostergaard>> Hvad kan HOPSLAG() bruges til??? :-)

erikjuul>> det er for folk med en ukdk version af excel ;-)
har lige rettet det (bortset fra i url'en)

thor>> Jeg reagerer blot fordi resten er baseret på DK-version.

erik>> ja, der er jo også tale om en sprogforbistring - eller skulle det jo have været hlookup. Jeg faldt over fejlen for et stykke tid siden og troede egentlig, at jeg havde rettet den, men sådan er der jo så meget.
Så jeg takker for din opmærksomhed - det er svært at undgå den slags fejl...

Du kan sætte følgende kode ind i et modul og genstarte filen og gå ind på den ark hvor du har tal i kolonne A tryk på Indsert tasten og skriv tallet i boksen.

Sub Auto_Open()
Application.OnKey "{Insert}", "Find_nr"
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Find_nr()
Dim Tekst As String, Svar As Variant
    Svar = InputBox("Indtast Kundenr.")
    If Svar = "" Then
            Tekst = "Du Klikkede Annuler eller tastede ingenting"
            MsgBox Tekst
            GoTo Slut
    ElseIf IsNumeric(Svar) Then
    [iv1].Value = Svar ''''''''''''''''''''''''''''''''''''''Svar bliver sat ind i celle iv1 så den skal være låst op
    Else
            Tekst = "Du tastede tekst og Klikkede OK"
            MsgBox Tekst
            GoTo Slut
    End If
    Range("A1").Select ''''''''''''''''''''''''''''''Der må ingen tomme celler være i mellem tallene i kolonne A
    Do While ActiveCell <> [iv1]
    If ActiveCell = "" Then
    MsgBox "Nummeret findes ikke"
    GoTo Slut
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
Slut:
   
End Sub