CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede Sandra1234 Mester
03. juli 2019 - 10:48 Der er 9 kommentarer og
1 løsning

Køre makro når en værdi vælges i kombinationsboks

Hejsa

Jeg sidder lige og leger med makroer.

Jeg har lavet en kombinationsboks, hvor man kan vælge nogle forskellige værdier. Der skal være en makro tilknyttet hvert valg i rullelisten, og det er her den driller. Det har kun lykkes mig at en makro køres, når der laves en ændring i rulleteksten.

Er der nogen, der kan hjælpe mig?

Mvh Sandra
Avatar billede store-morten Ekspert
03. juli 2019 - 11:37 #1
Vis den kode du er kommet frem til.

Måske der skal en "hvis" sætninger til.
Avatar billede Sandra1234 Mester
03. juli 2019 - 13:15 #2
Jeg valgte "Puder" i rullelisten og gik ind på Arket "Puder | Afdelingsoversigt", da jeg lavede makroen:

Sub Makro1()
'
' Makro1 Makro
'

'
    Sheets("Puder | Afdelingsoversigt").Select
End Sub

Den går nu altid ind på dette ark, uanset hvad jeg vælger i rullelisten. Men hvis jeg fx vælger "Klip" skal den gå ind på "Klip | Afdelingsoversigt".
Avatar billede store-morten Ekspert
03. juli 2019 - 13:44 #3
Hvis du har dit rulleliste valg i A1 på Ark1

Prøv:

Sub Makro1()
Fane = Worksheets("Ark1").Range("A1")
    Sheets(Fane & " | Afdelingsoversigt").Select
End Sub
Avatar billede Sandra1234 Mester
03. juli 2019 - 14:45 #4
Jeg har prøvet koden i mit ark og omdøbt Ark1 og A1 til "mine" værdier og har forsøgt i et ark jeg har kaldt Ark1 i celle A1, men den vil ikke....

Den kommer med advarselsboksen "Subscript out of range" og markerer den nederste linje, når jeg vil se hvor der skal debugges.

Har du nogen idé?
Avatar billede store-morten Ekspert
03. juli 2019 - 14:49 #5
Fane = Worksheets("Ark1").Range("A1")

Skal så tilrettes :-)
Avatar billede store-morten Ekspert
03. juli 2019 - 14:51 #6
Hvordan er din liste oprettet?

Datavalidering
Kontrolelement eller
ActiveX-objekt
Avatar billede store-morten Ekspert
03. juli 2019 - 15:14 #7
Datavalidering:
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets(Range("D1") & " | Afdelingsoversigt").Select
End Sub

ActiveX-objekt:
Private Sub ComboBox1_Change()
    Sheets(ComboBox1 & " | Afdelingsoversigt").Select
End Sub


Eksempel:
https://www.dropbox.com/s/amh5nbfzv5d4f47/kombinationsboks.xlsm?dl=0
Avatar billede Sandra1234 Mester
04. juli 2019 - 08:34 #8
Jeg har lavet det som kontrolelement, men efter at have taget et kig på dit dokument i dropbox, kom jeg frem til at ActiveX var lidt smartere :)

Det er så godt, nu virker det bare! Mange, mange tusind tak!
Avatar billede store-morten Ekspert
04. juli 2019 - 08:58 #9
Velbekomme.

Jeg fandt lige en fejl i Datavalidering, så har tilføjet lidt kode:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D1")) Is Nothing Then
        Sheets(Range("D1") & " | Afdelingsoversigt").Select
    End If
End Sub

Så den ikke skifter side hver gang der ændres i arket, men kun hvis D1 (Rullelisten) ændres.
Avatar billede store-morten Ekspert
04. juli 2019 - 09:33 #10
Har prøvet at lave et eksempel på Kontrolelement.
Avatar billede 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.

Loading billede Opret Preview
Kategori
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 24/11/202411:27 25/11/202417:42
Identificér og hent del af tekststreng Af TheLibrarian i Excel 2 22/11/202416:49 25/11/202409: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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 14:13 Smart Switch Android til Android Af valby i Mobiltelefoner
I dag 08:16 Outlook Af jdann i E-mail programmer
I går 20:00 Genie Timeline Af Malm i Andet software
I går 16:09 Plex virker ikke uden for netværk ??? Af Ronron i Mac
I går 16:03 exFat Af Bruce i Apps til iOS
White papers
Flere white papers »


Premium
Teaser billede
Et år efter hård kritik: En stribe myndigheder har fortsat store huller i deres kriseberedskaber
Læs mere »
Næsten alle de gode navne er taget, men domænehandleren Marcus har en opskrift, der kan hjælpe dig med at kapre drømmeadressen
EU åbner NIS2-sag mod Danmark efter store forsinkelser: Får to måneder
Gør som stort konsulenthus: Rekruttér selv og få bedre kvalitet … og spar en masse penge
Se alle »
Computerworld
Teaser billede
Omfattende netværksproblemer hos TDC: Nu er årsagen muligvis fundet
Læs mere »
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Stortest: Med USB-C skulle alle kabler være lige - men det er de bare slet ikke
Et ”mareridt for privatlivets fred”: Kontroversiel Windows-funktion er udkommet i en test-version
Se alle »
CIO
Teaser billede
Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
Læs mere »
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Leverandør til 50 danske kommuner ramt af ransomware: "Det er ikke sjovt," siger direktør Thomas à Porta
Microsoft et døgn efter nedbrud: Stadig problemer med Outlook
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Twoday er rykket til et af de dyreste postnumre i Danmark – og det kan betale sig, siger topchef Lars Berthelsen
Se alle »
White paper
Teaser billede
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Læs mere »
MDR: Transparent sikkerhed og overvågning i realtid
Managed Detection & Response: Forsvar din virksomhed mod cybertrusler døgnet rundt
Sådan gør du: Elektronisk dokumentudveksling i praksis
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »