Find test celle

et eksempel, kikker kun i A kolonnen 500 rækker

Public Sub søg()
    Dim C As Range, Hvad As String, firstAddress As String, I As Long
    I = 2    ' starter i A2
    Hvad = InputBox("Søg efter", "SØG")
    With Worksheets(1).Range("a1:a500")

        Set C = .Find(Hvad, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
        If Not C Is Nothing Then
            firstAddress = C.Address
            Do
                Worksheets("Ark2").Range("A" & I) = C.Offset(0, 1) 'Skriver i Ark2 kolonne A
                Set C = .FindNext(C)
                I = I + 1
            Loop While Not C Is Nothing And C.Address <> firstAddress
        End If
    End With

End Sub

hallo, er du på ferie ??

Hej Kabbak

Jeg ville ønske jeg var på ferie og arbejdet mindre....

Tak for dit svar, jeg har forsøgt mig med det!

Jeg har fundet en cirka løsning med Case funktionen, da jeg skal hente teksten ind til en textlabel/conbobox. og igen skal skrive til cellen med den værdi som jeg ændre!!

når jeg skriver fra label felten, med den "Chance" effekt, er begynder programmet at hakke lidt... så jeg synes ikke jeg har fundet den bedste løsning - så jeg prøver stadig

Dog har jeg lært noget af dit svar - så mange tak

- hvordan giver jeg dig points ??

jeg skal svare, inden du kan give point ;-))

Så skulle dine point være på plads...