{"id":4466,"date":"2023-07-10T21:51:41","date_gmt":"2023-07-10T21:51:41","guid":{"rendered":"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/"},"modified":"2023-07-10T21:51:41","modified_gmt":"2023-07-10T21:51:41","slug":"vba-bij-subuitvoerfout","status":"publish","type":"post","link":"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/","title":{"rendered":"Vba: sub afsluiten bij een fout"},"content":{"rendered":"<p><\/p>\n<hr>\n<p><span style=\"color: #000000;\">U kunt de <b>Exit Sub-<\/b> instructie in VBA gebruiken om een subprocedure af te sluiten wanneer er een fout is opgetreden.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Hier is een gebruikelijke manier om deze verklaring in de praktijk te gebruiken:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">Sub<\/span> DivideValues()\n\n<span style=\"color: #0000ff;\">Dim<\/span> i <span style=\"color: #0000ff;\">As<\/span> Integer\n<span style=\"color: #0000ff;\">On Error GoTo<\/span> ErrorMessage\n\n<span style=\"color: #0000ff;\">For<\/span> i = 1 <span style=\"color: #0000ff;\">To<\/span> 10\n    Range(\" <span style=\"color: #ff0000;\">C<\/span> \" &amp; i) = Range(\" <span style=\"color: #ff0000;\">A<\/span> \" &amp; i) \/ Range(\" <span style=\"color: #ff0000;\">B<\/span> \" &amp; i)\n<span style=\"color: #0000ff;\">Next<\/span> i\n    \n<span style=\"color: #0000ff;\">Exit Sub\n<\/span>\nError Message:\n    MsgBox \u201c <span style=\"color: #ff0000;\">An Error Occurred<\/span> \u201d\n    <span style=\"color: #0000ff;\">Exit Sub<\/span>\n    \n<span style=\"color: #0000ff;\">End Sub\n<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Deze specifieke macro probeert elke waarde in het bereik <strong>A1:A10<\/strong> te delen door de overeenkomstige waarde in het bereik <strong>B1:B10<\/strong> .<\/span><\/p>\n<p> <span style=\"color: #000000;\">Als er een fout optreedt (we proberen bijvoorbeeld te delen door nul), vertelt de <strong>On Error GoTo-<\/strong> instructie VBA om toegang te krijgen tot <strong>ErrorMessage<\/strong> , wat aangeeft dat er een berichtvenster moet worden gemaakt waarin de gebruiker wordt verteld dat er een fout is opgetreden en dat de subprocedure moet worden be\u00ebindigd met behulp van <strong>Exist Sub<\/strong> . stelling.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.<\/span><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Voorbeeld: hoe u een sub kunt maken in geval van een fout in VBA<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\">Stel dat we de volgende lijst met waarden hebben in de kolommen A en B:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-34945 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/uneerreur1.png\" alt=\"\" width=\"504\" height=\"407\" srcset=\"\" sizes=\"auto, \"><\/p>\n<p> <span style=\"color: #000000;\">Stel nu dat we de volgende macro maken om elke waarde in kolom A te delen door de overeenkomstige waarde in kolom B en de resultaten in kolom C weer te geven:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">Sub<\/span> DivideValues()\n\n<span style=\"color: #0000ff;\">Dim<\/span> i <span style=\"color: #0000ff;\">As<\/span> Integer\n\n<span style=\"color: #0000ff;\">For<\/span> i = 1 <span style=\"color: #0000ff;\">To<\/span> 10\n    Range(\" <span style=\"color: #ff0000;\">C<\/span> \" &amp; i) = Range(\" <span style=\"color: #ff0000;\">A<\/span> \" &amp; i) \/ Range(\" <span style=\"color: #ff0000;\">B<\/span> \" &amp; i)\n<span style=\"color: #0000ff;\">Next<\/span> i\n    \n<span style=\"color: #0000ff;\">End Sub<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Wanneer we deze macro uitvoeren, ontvangen we de volgende foutmelding:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\" wp-image-34946 aligncenter\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/uneerreur2.png\" alt=\"\" width=\"403\" height=\"245\" srcset=\"\" sizes=\"auto, \"><\/p>\n<p> <span style=\"color: #000000;\"><span style=\"color: #000000;\">We ontvangen deze foutmelding omdat we in de vierde rij van het Excel-werkblad probeerden te delen door nul.<\/span><\/span><\/p>\n<p> <span style=\"color: #000000;\">Als we eenvoudigweg de subprocedure willen afsluiten wanneer deze fout optreedt, kunnen we de <strong>Exit Sub-<\/strong> instructie als volgt gebruiken:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <span style=\"color: #000000;\"><strong><span style=\"color: #0000ff;\">Sub<\/span> DivideValues()\n\n<span style=\"color: #0000ff;\">Dim<\/span> i <span style=\"color: #0000ff;\">As<\/span> Integer\n<span style=\"color: #0000ff;\">On Error GoTo<\/span> ErrorMessage\n\n<span style=\"color: #0000ff;\">For<\/span> i = 1 <span style=\"color: #0000ff;\">To<\/span> 10\n    Range(\" <span style=\"color: #ff0000;\">C<\/span> \" &amp; i) = Range(\" <span style=\"color: #ff0000;\">A<\/span> \" &amp; i) \/ Range(\" <span style=\"color: #ff0000;\">B<\/span> \" &amp; i)\n<span style=\"color: #0000ff;\">Next<\/span> i\n    \n<span style=\"color: #0000ff;\">Exit Sub\n<\/span>\nError Message:\n    MsgBox \u201c <span style=\"color: #ff0000;\">An Error Occurred<\/span> \u201d\n    <span style=\"color: #0000ff;\">Exit Sub<\/span>\n    \n<span style=\"color: #0000ff;\">End Sub<\/span><\/strong><\/span><\/pre>\n<p> <span style=\"color: #000000;\">Wanneer we deze macro uitvoeren, voert de subprocedure alle mogelijke verdelingsproblemen uit voordat er een fout optreedt. Vervolgens verschijnt er een berichtvenster dat ons vertelt dat er een fout is opgetreden en dat VBA eenvoudigweg bestaat in de subprocedure:<\/span> <\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\"aligncenter wp-image-34947\" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/uneerreur3.png\" alt=\"VBA bij uitvoerfout onder\" width=\"485\" height=\"415\" srcset=\"\" sizes=\"auto, \"><\/p>\n<p> <span style=\"color: #000000;\"><strong>Let op<\/strong> : U kunt <a href=\"https:\/\/learn.microsoft.com\/en-us\/office\/vba\/language\/reference\/user-interface-help\/exit-statement\" target=\"_blank\" rel=\"noopener\">hier<\/a> de volledige documentatie van de <b>Exit<\/b> -instructie in VBA vinden.<\/span><\/p>\n<h2> <span style=\"color: #000000;\"><strong>Aanvullende bronnen<\/strong><\/span><\/h2>\n<p> <span style=\"color: #000000;\">In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:<\/span><\/p>\n<p> <a href=\"https:\/\/statorials.org\/nl\/vba-map-aanmaken\/\" target=\"_blank\" rel=\"noopener\">Mappen maken met VBA<\/a><br \/> <a href=\"https:\/\/statorials.org\/nl\/vba-verwijdermap\/\" target=\"_blank\" rel=\"noopener\">Hoe mappen te verwijderen met VBA<\/a><br \/> <a href=\"https:\/\/statorials.org\/nl\/vba-bestand-verwijderen\/\" target=\"_blank\" rel=\"noopener\">Hoe bestanden te verwijderen met VBA<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>U kunt de Exit Sub- instructie in VBA gebruiken om een subprocedure af te sluiten wanneer er een fout is opgetreden. Hier is een gebruikelijke manier om deze verklaring in de praktijk te gebruiken: Sub DivideValues() Dim i As Integer On Error GoTo ErrorMessage For i = 1 To 10 Range(&#8220; C &#8220; &amp; i) [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"class_list":["post-4466","post","type-post","status-publish","format-standard","hentry","category-gids"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v21.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>VBA: Sub afsluiten in geval van een fout - Statorials<\/title>\n<meta name=\"description\" content=\"In deze tutorial wordt met een voorbeeld uitgelegd hoe je een sub bij een fout in VBA afsluit.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"VBA: Sub afsluiten in geval van een fout - Statorials\" \/>\n<meta property=\"og:description\" content=\"In deze tutorial wordt met een voorbeeld uitgelegd hoe je een sub bij een fout in VBA afsluit.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/\" \/>\n<meta property=\"og:site_name\" content=\"Statorials\" \/>\n<meta property=\"article:published_time\" content=\"2023-07-10T21:51:41+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/uneerreur1.png\" \/>\n<meta name=\"author\" content=\"Dr.benjamin anderson\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Dr.benjamin anderson\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"2\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/\",\"url\":\"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/\",\"name\":\"VBA: Sub afsluiten in geval van een fout - Statorials\",\"isPartOf\":{\"@id\":\"https:\/\/statorials.org\/nl\/#website\"},\"datePublished\":\"2023-07-10T21:51:41+00:00\",\"dateModified\":\"2023-07-10T21:51:41+00:00\",\"author\":{\"@id\":\"https:\/\/statorials.org\/nl\/#\/schema\/person\/d4b8842173cca1bb62cdec41860e4219\"},\"description\":\"In deze tutorial wordt met een voorbeeld uitgelegd hoe je een sub bij een fout in VBA afsluit.\",\"breadcrumb\":{\"@id\":\"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Thuis\",\"item\":\"https:\/\/statorials.org\/nl\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Vba: sub afsluiten bij een fout\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/statorials.org\/nl\/#website\",\"url\":\"https:\/\/statorials.org\/nl\/\",\"name\":\"Statorials\",\"description\":\"Uw gids voor statistische competentie\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/statorials.org\/nl\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"de\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/statorials.org\/nl\/#\/schema\/person\/d4b8842173cca1bb62cdec41860e4219\",\"name\":\"Dr.benjamin anderson\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\/\/statorials.org\/nl\/#\/schema\/person\/image\/\",\"url\":\"http:\/\/statorials.org\/nl\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"contentUrl\":\"http:\/\/statorials.org\/nl\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"caption\":\"Dr.benjamin anderson\"},\"description\":\"Ik ben Benjamin, een gepensioneerde hoogleraar statistiek die nu een toegewijde Statorials-lesgever is. Ik heb uitgebreide ervaring en expertise op het gebied van statistiek en ik ben vastbesloten om mijn kennis te delen met studenten via Statorials. Lees verder\",\"sameAs\":[\"http:\/\/statorials.org\/nl\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"VBA: Sub afsluiten in geval van een fout - Statorials","description":"In deze tutorial wordt met een voorbeeld uitgelegd hoe je een sub bij een fout in VBA afsluit.","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/","og_locale":"de_DE","og_type":"article","og_title":"VBA: Sub afsluiten in geval van een fout - Statorials","og_description":"In deze tutorial wordt met een voorbeeld uitgelegd hoe je een sub bij een fout in VBA afsluit.","og_url":"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/","og_site_name":"Statorials","article_published_time":"2023-07-10T21:51:41+00:00","og_image":[{"url":"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/uneerreur1.png"}],"author":"Dr.benjamin anderson","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Dr.benjamin anderson","Gesch\u00e4tzte Lesezeit":"2\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/","url":"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/","name":"VBA: Sub afsluiten in geval van een fout - Statorials","isPartOf":{"@id":"https:\/\/statorials.org\/nl\/#website"},"datePublished":"2023-07-10T21:51:41+00:00","dateModified":"2023-07-10T21:51:41+00:00","author":{"@id":"https:\/\/statorials.org\/nl\/#\/schema\/person\/d4b8842173cca1bb62cdec41860e4219"},"description":"In deze tutorial wordt met een voorbeeld uitgelegd hoe je een sub bij een fout in VBA afsluit.","breadcrumb":{"@id":"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/statorials.org\/nl\/vba-bij-subuitvoerfout\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Thuis","item":"https:\/\/statorials.org\/nl\/"},{"@type":"ListItem","position":2,"name":"Vba: sub afsluiten bij een fout"}]},{"@type":"WebSite","@id":"https:\/\/statorials.org\/nl\/#website","url":"https:\/\/statorials.org\/nl\/","name":"Statorials","description":"Uw gids voor statistische competentie","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/statorials.org\/nl\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"de"},{"@type":"Person","@id":"https:\/\/statorials.org\/nl\/#\/schema\/person\/d4b8842173cca1bb62cdec41860e4219","name":"Dr.benjamin anderson","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/statorials.org\/nl\/#\/schema\/person\/image\/","url":"http:\/\/statorials.org\/nl\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","contentUrl":"http:\/\/statorials.org\/nl\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","caption":"Dr.benjamin anderson"},"description":"Ik ben Benjamin, een gepensioneerde hoogleraar statistiek die nu een toegewijde Statorials-lesgever is. Ik heb uitgebreide ervaring en expertise op het gebied van statistiek en ik ben vastbesloten om mijn kennis te delen met studenten via Statorials. Lees verder","sameAs":["http:\/\/statorials.org\/nl"]}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/posts\/4466","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/comments?post=4466"}],"version-history":[{"count":0,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/posts\/4466\/revisions"}],"wp:attachment":[{"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/media?parent=4466"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/categories?post=4466"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/statorials.org\/nl\/wp-json\/wp\/v2\/tags?post=4466"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}