Søgning i excell

X & Y ? Kolonner eller....?

1 2 3 4 - 5000 - x
2 
3  .
4
-
5000
y

så ville jeg at man kan søge på x og y i samme øjeblik så man kommer ind i det felt. hvis jeg søgte på x3 y3 ville jeg stå der hvor punktummet står nu.
Hehe, håber du er med nu supertekst? ellers må du spørge igen.

så står punktummet selvfølgelig helt forkert :O
men helt korrekt skulle det stå udfor x3 y3 men det har rykket sig så det står under x2 y3. Men jeg tror du er med på hvad jeg snakker om.

Dvs det er søgning efter koordinaten?

Hvis ja - så kan det godt lade sig gøre.

ja præcis

kan du finde udaf det supertekst? hvis ja, vil du så godt hjælpe mig?

Prøv at sende en mail så returnerer jeg en model

(mailadresse under profil)

okay tusind tak, har sendt en mail, så må du jo lige skrive et svar her hvis du bekymre dig om at få points :-)

VBA-koden i Userform

Rem Version 2007-1
Private Sub CommandButton1_Click()
    If erOk(Me.TextBox1) = True And erOk(Me.TextBox2) = True Then
        udførSøgning Me.TextBox1, Me.TextBox2
    End If
End Sub
Private Function erOk(tb)
    If IsNumeric(tb) = True And tb <> "" Then
        erOk = True
    Else
        erOk = False
    End If
End Function
Private Sub udførSøgning(x, y)
Dim ræk As Long, kol As Integer
    kol = søgX(x)
    ræk = søgY(y)
   
    If kol <> 0 And ræk <> 0 Then
        Cells(ræk, kol).Select
        Me.adresse = Selection.Address
    Else
        Me.adresse = "Ej fundet"
    End If
End Sub
Public Function søgX(søgEfter)
    With ActiveSheet.Range("A1:ZZZ1")
        Set c = .Find(søgEfter, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            søgX = c.Column
        Else
            søgX = 0
        End If
    End With
End Function
Public Function søgY(søgEfter)
    With ActiveSheet.Range("A1:A65000")
        Set c = .Find(søgEfter, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            søgY = c.Row
        Else
            søgY = 0
        End If
    End With
End Function