Custom Function to find value and offset

[silentwolf]

Hi guys,
I am in need for help.(
I would like to write a custom function which findes certain values and offset once it is found two columns to the right.

function Test(strText as string) as string
Select Case True
Case strText = "Good"
?? offset found cell one column to the right get and modify that cell
Case strText="Bad"
?? offset found cell one column to the right get and modify that cell
Case strText ="Worst"
?? offset found cell one column to the right get and modify that cell
Case else

End select
end function

That is what I like to have but I am not able to get it to work...

Many thanks for your helb

Greetings

Albert

 

[Norie]

Try this, remove the Offset(,3) from the last line - I was using that to check the results without overwriting the original data.

Sub UpdateUmsatz()
Dim arr As Variant
Dim I As Long

    arr = Range("I2", Range("J" & Rows.Count).End(xlUp)).Value
    
    For I = LBound(arr) To UBound(arr)
        If arr(I, 1) = "SEPA-Lastschrift" Then
            arr(I, 2) = LastschriftenTextUpdate(arr(I, 2))
        End If
    Next I
    
    Range("I2", Range("J" & Rows.Count).End(xlUp)).Offset(, 3).Value = arr
    
End Sub

 

[silentwolf]

Norie,
that works .-) oh my goodness you are a legend .-) !!!!!!!!!
Well it worked for you too didn t it?

Many thanks to you my friend!!!!