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

mikisoq Nybegynder

02. december 2008 - 02:35 Der er 4 kommentarer og
1 løsning

VBA Excel - Exit modul ved modularisering

Når man arbejder med modularisering i VBA har man jo flere sub under hinanden, der er styret af en sub, der kalder de enkelte sub.

Hvis jeg i en af disse sub har en MsgBox, hvor den bare skal fortsætte når der klikkes OK men derimod skal afbryde hele processen når der klikkes på Cancel.

Det er denne afbrydefunktion jeg spørger til, hvordan man gør.

Jeg har forestillet mig det gøres sådan:

Nr = InputBox("Indtast medlemsnummer : ", "Medlemshistorik", , vbOKCancel)
If Nr = vbCancel Then
Exit Sub (??????????????????)

Else
Windows("Historik.xlsm").Activate
Sheets("Ark1").Activate
Range("B4").Value = Nr
End If

Det er naturligvis der hvor der er ??? jeg er i tvivl om, hvad jeg skal skrive...

På forhånd mange tak for hjælpen.

Synes godt om

mrkr Juniormester

02. december 2008 - 17:53 #1

Dette skulle kunne gøre det:

Sub test()

nr = InputBox("Indtast medlemsnummer : ", "Medlemshistorik", vbOKCancel)
If nr = Cancel Then
Exit Sub
Else
Windows("Historik.xlsm").Activate
Sheets("Ark1").Activate
Range("B4").Value = nr
End If
End Sub

Synes godt om

mikisoq Nybegynder

02. december 2008 - 20:26 #2

Ja, men det havde også fungeret hvis jeg ikke arbejdede med modularisering, men i dette tilfælde vil den kun stoppe sub'en og så fortsætte proceduren ved at gå til næste sub.

Jeg søger en løsning der kan afbryde hele modulet og ikke kun den enkelte sub.

Tak for forsøget og håber du eller andre har et bedre bud.

Synes godt om

excelent Ekspert

02. december 2008 - 21:09 #3

Dim valg

Sub test1()
valg = 1
Call test
If valg <> 1 Then Exit Sub
MsgBox ("Ingen klik på Cancel så sub fortsætter")
End Sub

Sub test()

nr = InputBox("Indtast medlemsnummer : ", "Medlemshistorik", vbOKCancel)
If nr = Cancel Then
valg = 0
Exit Sub
Else
Windows("Historik.xlsm").Activate
Sheets("Ark1").Activate
Range("B4").Value = nr
End If
End Sub

Synes godt om

mikisoq Nybegynder

06. december 2008 - 10:33 #4

Excelent du kan udbede dig et svar, så du kan få dine points som tak for hjælpen med dette spørgsmål :-)

Synes godt om

excelent Ekspert

06. december 2008 - 10:43 #5

så vil jeg gerne udbede mig et svar :-)

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	22/12/202413: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