Hvordan laver jeg dette lopslag i VBA?

Er det som en brugerdefineret funktion - eller tilsvarende VBA-funktion?

og så velkommen til Eksperten...

Sub LOPSLAG()
MsgBox Evaluate("VLookup(A1,AG4:AI15,3,False)")
End Sub

Sub LOPSLAG2()
LS = Evaluate("VLookup(A1,AG4:AI15,3,False)")
Range("B1") = LS
End Sub

Hej.

Det gik hurtigt med at få et svar dejligt :-)
Jeg skal bruge resultat fra lopslaget som en del af en større beregning.
Eksempel: 2 + 4 + lopslag - 3.

Hej

Det var ikke mange oplysninger!!!
2 + 4 + lopslag - 3 kan jo lige så godt være
3 + lopslag

Hvor kommer 2, 4 og 3 fra?
Og hvor eller hvordan skal resultatet bruges?

Tal og resultat i celler B1:
Sub LOPSLAG3()
LS = Evaluate("VLookup(A1,AG4:AI15,3,False)")
Range("B1") = 2 + 4 + LS - 3
End Sub

Kunne lige så skrives:

Sub LOPSLAG3()
LS = Evaluate("VLookup(A1,AG4:AI15,3,False)")
Range("B1") = 3 + LS
End Sub

Hvis 2, 4 og -3 kommer fra en celle:

Fra celler og resultat i celler B1:
Sub LOPSLAG4()
LS = Evaluate("VLookup(A1,AG4:AI15,3,False)")
Range("B1") = Range("A2") + Range("A3") + LS - Range("A4")
End Sub

Tal og Msgbox:
Sub LOPSLAG5()
LS = Evaluate("VLookup(A1,AG4:AI15,3,False)")
RS = 2 + 4 + LS - 3
MsgBox "2 + 4 + " & LS & " - 3 = " & RS
End Sub

Fra celler og til Msgbox:
Sub LOPSLAG6()
LS = Evaluate("VLookup(A1,AG4:AI15,3,False)")
RS = Range("A2") + Range("A3") + LS - Range("A4")
MsgBox Range("A2") & " + " & Range("A3") & " + " & LS & " - " & Range("A4") & " = " & RS
End Sub

Fra celler og resultat i celler B1:
Sub LOPSLAG7()
LS = Evaluate("VLookup(A1,AG4:AI15,3,False)")
RS = Range("A2") + Range("A3") + LS - Range("A4")
Range("B1") = RS
End Sub

Hej.

Jeg kan godt se at jeg ikke har udtrykt mig tydeligt.

De tal jeg skrev 2+4-3 er bare ment som et eksempel. I vba vil de komme fra et Excel Ark.
De er variable der afhænger af valg der bliver lavet i excel, bla hvilken måned og person man vil se på.
Jeg har brug for den værdi lopslaget giver, for at regne resultatet færdigt.

Leg skal lave flere opslag,derfor håbede jeg på at have en standard skabalon jeg kunne bruge.
Jeg håber at det hjælper.

Har du afprøvet Sub LOPSLAG3() til Sub LOPSLAG6()

F.eks.

Fra celler og resultat i celler B1:

Hej.

Jeg har fået løsning 4 til at virke, mange mange tak.

Det var godt.

4 og 7 er stort set ens:

Hej.

Jeg valgte nummer 4 fordi den forstod jeg bedst.

Mange  tak for hjælpen :-)