excel regneark

Ja, det kan jeg godt fixe. Skal den lede i en enkelt række (A for eksempel), eller bliver tallene spredt over en masse forskellige rækker??
Og er det et bestemt sted du skriver dit tal ind (a1 for eksempel) eller skriver du i bunden eller??

I arkets eget kodemodul (højreklik på arkfanen, vælg vis koder) indsættes følgende kode:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim slutadr As String
Dim søgestr As String
On Error GoTo slut

If Len(Target.Value) = 15 Then
    søgestr = Target.Value
    Range("a65536").End(xlUp).Select
    slutadr = ActiveCell.Address
    For Each c In ActiveSheet.Range("a3:" & slutadr).Cells
        If Target.Address = "$A$" & c.Row Then GoTo Næste
        If søgestr = Range("a" & c.Row).Value Then
        MsgBox ("Det indtastede findes i felt: A" & c.Row)
        End If
Næste:
    Next c
    ActiveCell.Offset(1, 0).Activate
    End If
slut:
End Sub

Den kan lave den ønskede søgning i kolonne A - hvis du har andre ønsker (skal feltet med værdien slettes...) retter jeg den meget gerne til for dig i morgen eftermiddag!!
Håber du kan bruge den.

Koden kan se ud på mange måder - her er et par andre:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rCell As Range

    ' Search column A for match
    If Len(Target.Value) = 15 Then
        For Each rCell In Me.UsedRange.Columns(1).Cells
            If rCell.Value = Target.Value Then
                If Not (rCell.Address = Target.Address) Then
                    MsgBox ("Det indtastede findes i felt: " & rCell.Address)
                    Exit For
                End If
            End If
        Next c
    End If
   
    Set rCell = Nothing
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rCell As Range

    ' Search all cells for match
    If Len(Target.Value) = 15 Then
        For Each rCell In Me.UsedRange.Cells
            If rCell.Value = Target.Value Then
                If Not (rCell.Address = Target.Address) Then
                    MsgBox ("Det indtastede findes i felt: " & rCell.Address)
                    Exit For
                End If
            End If
        Next c
    End If
   
    Set rCell = Nothing
End Sub

Hej Flemming. Jeg kan godt lide din diplomatiske måde at sige det på: "Koden kan se ud på mange måder - her er et par andre:" Man kan godt se du har en del mere erfaring på bagen!!!  ;-)

Ærligebent -> bemærk venligst at Next C skal hedde Next rCell i begge flemmings eksempler!

svamboo> Godt set med c / rCell
Koder kan se ud på mange måde, og din virker fint - that's the main thing.

Ja noget erfaring har jeg da..........(laver jo ikke andet) Du kan finde min hjemmeside (med lidt tips og tricks) ved at klikke på mit navn og vælge brugerinfo.