CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Kriegbaum Juniormester

18. november 2017 - 21:35 Der er 4 kommentarer og
2 løsninger

Lopslag med Vba

Hej herinde :)

Jeg har nogle formler der ser sådan ud

=HVIS(ER.TOM(A6);"";LOPSLAG(A6;Ark3!B3:Ark3!C23;2;FALSK))
=HVIS(ER.TOM(A6);"";LOPSLAG(A6;Ark3!D3:Ark3!E23;2;FALSK))
=HVIS(ER.TOM(A6);"";LOPSLAG(A6;Ark3!F3:Ark3!G23;2;FALSK))
=HVIS(ER.TOM(A6);"";LOPSLAG(A6;Ark3!H3:Ark3!I23;2;FALSK))
=HVIS(ER.TOM(A6);"";LOPSLAG(A6;Ark3!J3:Ark3!K23;2;FALSK))

Kan man ikke få dem til at kører i vba i stedet?

mvh. Jesper

Synes godt om

jens48 Ekspert

18. november 2017 - 23:27 #1

Det kan du med en makro i stil med nedenstående. Opslagsværdierne bliver sat ind i området B6:B10:

Sub SlaaOp()
If Range("A6") = "" Then
Else
Range("b6") = Application.VLookup(Range("A6"), Worksheets("Ark3").Range("B3:C23"), 2, False)
Range("b7") = Application.VLookup(Range("A6"), Worksheets("Ark3").Range("D3:E23"), 2, False)
Range("b8") = Application.VLookup(Range("A6"), Worksheets("Ark3").Range("F3:G23"), 2, False)
Range("b9") = Application.VLookup(Range("A6"), Worksheets("Ark3").Range("H3:I23"), 2, False)
Range("b10") = Application.VLookup(Range("A6"), Worksheets("Ark3").Range("J3:K23"), 2, False)
End If
End Sub

Synes godt om

1 synes godt om dette

Kriegbaum Juniormester

18. november 2017 - 23:50 #2

Hej Jens

Mange tak. det virkede. Næsten :)
men med din hjælp kunne jeg gennemskue det :)

løsningen blev
Sub SlaaOp()
If Range("C6") = "" Then
Else
Range("C7") = Application.VLookup(Range("C6"), Worksheets("Ark1").Range("B3:C23"), 2, False)
Range("C8") = Application.VLookup(Range("C6"), Worksheets("Ark1").Range("D3:E23"), 2, False)
Range("C9") = Application.VLookup(Range("C6"), Worksheets("Ark1").Range("F3:G23"), 2, False)
Range("C10") = Application.VLookup(Range("c6"), Worksheets("Ark1").Range("H3:I23"), 2, False)
Range("C11") = Application.VLookup(Range("C6"), Worksheets("Ark1").Range("J3:K23"), 2, False)
End If
End Sub

Synes godt om

Jan Hansen Ekspert

19. november 2017 - 00:39 #3

en lidt federe løsning, ej testet
den vil blanke c7-c11 hvis c6 er blank og den kører auto ved ændring i c6

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C6")) Then
If Range("C6") = "" Then
Range("C7", "C11").Value = ""
Else
Range("C7") = Application.VLookup(Range("C6"), Worksheets("Ark1").Range("B3:C23"), 2, False)
Range("C8") = Application.VLookup(Range("C6"), Worksheets("Ark1").Range("D3:E23"), 2, False)
Range("C9") = Application.VLookup(Range("C6"), Worksheets("Ark1").Range("F3:G23"), 2, False)
Range("C10") = Application.VLookup(Range("c6"), Worksheets("Ark1").Range("H3:I23"), 2, False)
Range("C11") = Application.VLookup(Range("C6"), Worksheets("Ark1").Range("J3:K23"), 2, False)
End If
End If
End Sub

Jan

Synes godt om

Jan Hansen Ekspert

19. november 2017 - 00:40 #4

Ups skal ligge i arkets kode

Synes godt om

jens48 Ekspert

19. november 2017 - 01:19 #5

Ja, sletningen glemte jeg. Her er Jans kode efter den er testet:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6")) Is Nothing Then
If Range("C6") = "" Then
Range("C7:C11").Value = ""
Else
Range("C7") = Application.VLookup(Range("C6"), Worksheets("Ark1").Range("B3:C23"), 2, False)
Range("C8") = Application.VLookup(Range("C6"), Worksheets("Ark1").Range("D3:E23"), 2, False)
Range("C9") = Application.VLookup(Range("C6"), Worksheets("Ark1").Range("F3:G23"), 2, False)
Range("C10") = Application.VLookup(Range("c6"), Worksheets("Ark1").Range("H3:I23"), 2, False)
Range("C11") = Application.VLookup(Range("C6"), Worksheets("Ark1").Range("J3:K23"), 2, False)
End If
End If
End Sub

Synes godt om

Kriegbaum Juniormester

19. november 2017 - 19:39 #6

Hej Jan og Jens

Det virker bare lige som det skal. og ja det er da en fed løsning :)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
renteberegning Af Pil i Excel	3	I går 11:27	I dag 17:42
Identificér og hent del af tekststreng Af TheLibrarian i Excel	2	22/11/202416:49	I dag 09:27
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS