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

Arne Novice

03. juni 2021 - 16:11 Der er 4 kommentarer og
1 løsning

VBA / Macro

Hvordan løser jeg denne nemmest ? Jeg skal kunne afvikle forskellige makroer i forhold til indhold i 2 celler. Værdien indtastes først i celle 1, når der indtastes i celle 2, afvikles makro.
Mulige værdier i celle 1, er 5 forskellige tekster
Mulige værdier i celle 2, er 3 forskellige tekster

Altså 15 forskellige makroer

Synes godt om

Jan K Ekspert

03. juni 2021 - 17:06 #1

Det nemmeste vil være at lave en emkelt makro, der undersøger, hvad der er tastet ibde to celler og så har15 forskellige udfald. Så skal du heller ikke holde styr på, hvilken makro, der aktuelt skal køres.

Synes godt om

Mads32 Ekspert

03. juni 2021 - 22:04 #2

Hej Arne.

Du spørger hvordan du nemmest kan løse din opgave. Det er bestemt ikke med en makro.

Når det ikke drejer sig om flere kombinationer er 2 tabeller der de datavaliderede en nemmeste løsning

Jeg vedhæfter en fil

https://www.dropbox.com/s/kn10825cc6ehzrj/VBA_Macro_mads32.xlsx?dl=0

m v h mads32

Synes godt om

jens48 Ekspert

03. juni 2021 - 22:28 #3

Er ikke enig med Mads32. Det afhænger helt af hvad de 15 makroer skal lave. Men jeg har lavet et lille skelet af en makro der ud fra to cellers indhold vælger en af 15 makroer. De to celler er i dette tilfælge C1 med 5 valgmuligheder og C2 med 3 valgmuligheder. Og så bruger jeg select case for at vælge den relevante makro, som jeg ikke kender og derfor kun ses som 'Din makro i alle 15 tilfælde. "a", "b", "c", "d", "e", "A", "B" og "C" skal skiftes ud med dine valgmuligheder

Sub FemtenMuligheder()
x = WorksheetFunction.Match(Range("C1"), Array("a", "b", "c", "d", "e"), 1) * 10 + WorksheetFunction.Match(Range("C2"), Array("A", "B", "C"), 1)
Select Case x
Case 11
'Din makro
Case 12
'Din makro
Case 13
'Din makro
Case 21
'Din makro
Case 22
'Din makro
Case 23
'Din makro
Case 31
'Din makro
Case 32
'Din makro
Case 33
'Din makro
Case 41
'Din makro
Case 42
'Din makro
Case 43
'Din makro
Case 51
'Din makro
Case 52
'Din makro
Case 53
'Din makro
End Select

End Sub

Synes godt om

store-morten Ekspert

10. juni 2021 - 12:28 #4

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then

x = Range("A1")
Y = Range("A2")

Select Case x

Case Is = "a"
Select Case Y
Case Is = "a"
Call a_a
Case Is = "b"
Call a_b
Case Is = "c"
Call a_c
Case Else
MsgBox ("Forkert eller manglende data i celle: A2")
End Select

Case Is = "b"
Select Case Y
Case Is = "a"
Call b_a
Case Is = "b"
Call b_b
Case Is = "c"
Call b_c
Case Else
MsgBox ("Forkert eller manglende data i celle: A2")
End Select

Case Is = "c"
Select Case Y
Case Is = "a"
Call c_a
Case Is = "b"
Call c_b
Case Is = "c"
Call c_c
Case Else
MsgBox ("Forkert eller manglende data i celle: A2")
End Select

Case Is = "d"
Select Case Y
Case Is = "a"
Call d_a
Case Is = "b"
Call d_b
Case Is = "c"
Call d_c
Case Else
MsgBox ("Forkert eller manglende data i celle: A2")
End Select

Case Is = "e"
Select Case Y
Case Is = "a"
Call e_a
Case Is = "b"
Call e_b
Case Is = "c"
Call e_c
Case Else
MsgBox ("Forkert eller manglende data i celle: A2")
End Select

Case Else
MsgBox ("Forkert eller manglende data i celle: A1")
End Select

End If
End Sub

Sub a_a()
MsgBox "Der er valgt a og a"
End Sub
Sub a_b()
MsgBox "Der er valgt a og b"
End Sub
Sub a_c()
MsgBox "Der er valgt a og c"
End Sub

Sub b_a()
MsgBox "Der er valgt b og a"
End Sub
Sub b_b()
MsgBox "Der er valgt b og b"
End Sub
Sub b_c()
MsgBox "Der er valgt b og c"
End Sub

Sub c_a()
MsgBox "Der er valgt c og a"
End Sub
Sub c_b()
MsgBox "Der er valgt c og b"
End Sub
Sub c_c()
MsgBox "Der er valgt c og c"
End Sub

Sub d_a()
MsgBox "Der er valgt d og a"
End Sub
Sub d_b()
MsgBox "Der er valgt d og b"
End Sub
Sub d_c()
MsgBox "Der er valgt d og c"
End Sub

Sub e_a()
MsgBox "Der er valgt e og a"
End Sub
Sub e_b()
MsgBox "Der er valgt e og b"
End Sub
Sub e_c()
MsgBox "Der er valgt e og c"
End Sub

Synes godt om

jens48 Ekspert

14. juni 2021 - 10:41 #5

Flot detaljering store-morten.
Og nu må det så være Arnes tur til at svare på om det foreslåede kan bruges

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
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel	5	19/12/202410:24	I går 13:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel	2	16/12/202415:27	17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel	23	13/12/202412:32	18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel	1	10/12/202409:17	10/12/202410:35
Isolere en dato i tekst/tal Af jernrosen3 i Excel	7	09/12/202408:59	09/12/202410:38

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

20/12

Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed

20/12

Omsætning er steget med 100 millioner kroner på to år: Microsoft danske udviklingscenter har udbetalt milliarder i udbytte

20/12

Nørgaard: Copilot scorer pænt højt i min kendte 3D-test (Dyrt, Dumt, Dårligt)

20/12

Amazon ramt af største strejke nogensinde: Ansatte gået hjem

20/12

CISO Sarah Aalborg forlader Tivoli: Her er hendes planer for fremtiden

20/12

Sådan vil Domstolsstyrelsen nedbringe legacy og teknisk gæld: Her er den nye plan

20/12

Temu åbner stort varehus i Sverige og kan nu sende varer til danskerne endnu hurtigere: "Hvad vi frygtede, er sket"

20/12

Amerikansk spil-firma skal levere eSim-program til Forsvaret: Soldater skal lære at håndtere kampvogne på computer

20/12

Danmark har det hurtigste internet i Norden

20/12

Behov for mere vidensdeling om AI: Sådan bliver du bedre rustet

20/12

Julepynt, papkasser og drikkevarer flyder på politiets datacenter - og uautoriserede personer kan have haft adgang til serverrum

Vis flere artikler

IT-JOB

Paychex Europe

Senior Software Developer for Danløn

Dynamicweb Software A/S

Solution Architect

Metro Service A/S

IT System Administrator med primært fokus på cybersikkerhed

Finanstilsynet

C#-udvikler – Automatisering, API og Azure

Metroselskabet og Hovedstadens Letbane

Applikationsansvarlig medarbejder med udvikler-kompetencer

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

21/1222:16	Er "OneDrive" et "Must" ? Koster det penge ? Af Ikke-ekspert i Windows
21/1216:42	Windows Media Player - Hvilken version (Versioner) er gode til at afspille og kopiere ? Af Ikke-ekspert i Musik & videoafspillere
21/1212:54	Fejlfinding: Årsag til blank skærm og ingen BIOS fra Lenovo 90BH Af Mads i PC
21/1209:42	Outlook - kan ikke kopiere opgaver Af barth i Office & Kontorpakker
21/1200:26	Genhøre telefonsamtale Af anonym24 i Chat & Messaging