{"id":1201,"date":"2014-08-12T10:00:54","date_gmt":"2014-08-12T08:00:54","guid":{"rendered":"http:\/\/www.capri-soft.de\/blog\/?p=1201"},"modified":"2014-08-12T10:07:36","modified_gmt":"2014-08-12T08:07:36","slug":"excel-und-vba-pruefen-ob-ein-workbook-worksheet-oder-workbook-bereits-geoeffnet-ist","status":"publish","type":"post","link":"https:\/\/www.capri-soft.de\/blog\/?p=1201","title":{"rendered":"Excel und VBA: Pr\u00fcfen ob ein Workbook, Worksheet oder Sheet bereits ge\u00f6ffnet ist \/ Check if Workbook, Worksheet, Sheet has already been opened"},"content":{"rendered":"<h1>Problem<\/h1>\n<p>Ohne alle Sheets zu durchlaufen wird eine performante L\u00f6sung gesucht zu \u00fcberpr\u00fcfen, ob ein Sheet oder Workbook bereits ge\u00f6ffnet wurde.<\/p>\n<h1>Ansatz<\/h1>\n<p>Eine einfache Methode ist unter Benutzung der &#8222;On Error Resume Next&#8220; Anweisung eine Pr\u00fcfen nach der Referenz<\/p>\n<h1>L\u00f6sung<\/h1>\n<h2>Pr\u00fcfen f\u00fcr Workbook<\/h2>\n<pre class=\"brush: jscript; title: ; notranslate\" title=\"\">\r\n&#039; Pr\u00fcfen ob workbook bereits offen\r\nFunction IsWorkbookOpen(strWB As String) As Boolean\r\n   On Error Resume Next\r\n   IsWorkbookOpen = Not Workbooks(strWB) Is Nothing\r\nEnd Function\r\n<\/pre>\n<p>Beispiel:<\/p>\n<pre class=\"brush: jscript; title: ; notranslate\" title=\"\">\r\nIf Not IsWorkbookOpen(pfad &amp; zielDatei) Then\r\n &#039; Schaltet die Meldungen aus, \r\n Application.DisplayAlerts = False\r\n Workbooks.Open pfad &amp; zielDatei        \r\n &#039; Schaltet die Meldungen wieder ein \r\n Application.DisplayAlerts = True\r\nEnd If\r\n<\/pre>\n<h2>Pr\u00fcfen f\u00fcr Worksheet: <\/h2>\n<p>Dim QWB As Workbook<br \/>\nSet QWB = Workbooks(&#8222;JAN-MARCH.xlsx&#8220;)<br \/>\nIf WorksheetEx(QWB, aktuelleMaterialNummer) Then&#8230;<\/p>\n<pre class=\"brush: jscript; title: ; notranslate\" title=\"\">\r\nFunction WorksheetEx(WBTest As Workbook, strNam As String) As Boolean\r\n   On Error Resume Next\r\n   WorksheetEx = WBTest.Worksheets(strNam).Index &gt; 0\r\nEnd Function\r\n<\/pre>\n<h2>Analog f\u00fcr Sheets<\/h2>\n<p>Sheets sind Worksheets inklusive Charts, Pivottabellen &#8230; <\/p>\n<pre class=\"brush: jscript; title: ; notranslate\" title=\"\">\r\nFunction SheetEx(strNam As String) As Boolean\r\n   On Error Resume Next\r\n   SheetEx = Sheets(strNam).Index &gt; 0\r\nEnd Function\r\n<\/pre>\n<iframe src=\"http:\/\/www.facebook.com\/plugins\/like.php?href=https%3A%2F%2Fwww.capri-soft.de%2Fblog%2F%3Fp%3D1201&amp;layout=standard&amp;show_faces=true&amp;width=450&amp;action=like&amp;colorscheme=light\" scrolling=\"no\" frameborder=\"0\" allowTransparency=\"true\" style=\"border:none; overflow:hidden; width:450px;margin-top:5px;\"><\/iframe>","protected":false},"excerpt":{"rendered":"<p>Problem Ohne alle Sheets zu durchlaufen wird eine performante L\u00f6sung gesucht zu \u00fcberpr\u00fcfen, ob ein Sheet oder Workbook bereits ge\u00f6ffnet wurde. Ansatz Eine einfache Methode ist unter Benutzung der &#8222;On Error Resume Next&#8220; Anweisung eine Pr\u00fcfen nach der Referenz L\u00f6sung Pr\u00fcfen f\u00fcr Workbook &#039; Pr\u00fcfen ob workbook bereits offen Function IsWorkbookOpen(strWB As String) As Boolean &hellip; <a href=\"https:\/\/www.capri-soft.de\/blog\/?p=1201\" class=\"more-link\"><span class=\"screen-reader-text\">Excel und VBA: Pr\u00fcfen ob ein Workbook, Worksheet oder Sheet bereits ge\u00f6ffnet ist \/ Check if Workbook, Worksheet, Sheet has already been opened<\/span> weiterlesen <span class=\"meta-nav\">&rarr;<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[12],"tags":[],"class_list":["post-1201","post","type-post","status-publish","format-standard","hentry","category-vba"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p4yGeN-jn","jetpack_likes_enabled":true,"jetpack-related-posts":[],"_links":{"self":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1201","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1201"}],"version-history":[{"count":4,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1201\/revisions"}],"predecessor-version":[{"id":1205,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1201\/revisions\/1205"}],"wp:attachment":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1201"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1201"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1201"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}