Private sub

Private FindKto(kto) as string

  Sheets("Data").Select
    Data = Range("A1").CurrentRegion
    For y = 1 To UBound(Data, 1)
        If Cur = Data(y, 1) Then
            FindKto= cells(y,2).value
end if

End Sub


//akj

Ja, lige præcis. Det ville virke fint.
Men nu er der flere steder jeg skal finde konti, så vil genre have den ud i en selvstændig funktion og ligge.

sorry, kiggede alt for hurtig!

hehe, ja. og det hedder ikke Private Sub FindKto?
Spørge måske flabbet/dumt. Men vil lige være helt sikker.

Kan først teste det i morgen.

vbscript har sub og function. Kun function kan returnere en værdi

"return værdi" svarer til

function_navn = værdi
Exit Function

jo, som gammelhat skriver skal det selvf. være private function findkto(kto)

//akj

der er vel mulighed for både finktion og sub

med funktion

Sub Find1()
    kto = "budget"
    konto = FindKto1(kto)
    MsgBox ("Din Budget konto er: " & konto)
End Sub

Private Function FindKto1(Cur)
    data = Sheets("Data").Range("A1").CurrentRegion
    For y = 1 To UBound(data, 1)
        If Cur = data(y, 1) Then
            FindKto1 = data(y, 2)
            Exit Function
        End If
    Next
End Function


Og med en sub

Sub Find()
    kto = "budget"
    FindKto kto, konto
    MsgBox ("Din Budget konto er: " & konto)
End Sub

Private Sub FindKto(Cur, EnKonto)
    data = Sheets("Data").Range("A1").CurrentRegion
    For y = 1 To UBound(data, 1)
        If Cur = data(y, 1) Then
            EnKonto = data(y, 2)
            Exit Sub
        End If
    Next
End Sub

I subben skal man bare huske at medsende en variabel til returværdien

svar