{"id":1206,"date":"2014-08-12T10:11:48","date_gmt":"2014-08-12T08:11:48","guid":{"rendered":"http:\/\/www.capri-soft.de\/blog\/?p=1206"},"modified":"2014-08-12T10:23:10","modified_gmt":"2014-08-12T08:23:10","slug":"excel-und-vba-ein-sheet-einlesen-und-kopieren","status":"publish","type":"post","link":"https:\/\/www.capri-soft.de\/blog\/?p=1206","title":{"rendered":"Excel und VBA: Ein Sheet einlesen und kopieren"},"content":{"rendered":"<h1>Problem<\/h1>\n<p>Ein Sheet soll aus einer anderen Datei rauskopiert und hier eingelesen werden<\/p>\n<h1>Ansatz<\/h1>\n<p>\u00dcber manuelles einlesen <\/p>\n<h1>L\u00f6sung<\/h1>\n<p>Benutzter Funktion:<\/p>\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>Funktion kopiereSheet:<\/p>\n<pre class=\"brush: jscript; title: ; notranslate\" title=\"\">\r\nSub kopiereSheet(zielDatei As String, materialnummer As String)\r\n    Dim ZWB As Workbook\r\n    Dim letzteZeileQuelle, letzteSpalteQuelle As Integer\r\n    Dim QWS As Worksheet, ZWS As Worksheet\r\n\r\n    \r\n    &#039; Debug.Print ZWB.ActiveSheet.Name &amp; &quot;&lt;&lt;&lt;&lt; ZWB VORHER QWS &gt;&gt;&gt;&gt;&quot; &amp; QWS.Name\r\n        \r\n    If Not IsWorkbookOpen(zielDatei) Then\r\n        Application.DisplayAlerts = False\r\n        Workbooks.Open Tabelle1.Cells(2, 2) &amp; zielDatei                \r\n        Application.DisplayAlerts = True\r\n    End If\r\n        \r\n    Set ZWB = Workbooks(zielDatei)                             \r\n    Set QWS = QWB.Worksheets(materialnummer)   &#039; Quelle\r\n   \r\n    \r\n    ZWB.Sheets.Add after:=ZWB.Worksheets(1)\r\n    ZWB.ActiveSheet.Name = materialnummer\r\n    \r\n    Set ZWS = ZWB.ActiveSheet\r\n        \r\n    &#039; Finde die letzte Zeile\r\n    letzteZeileQuelle = QWS.Cells.Find(&quot;*&quot;, &#x5B;A1], , , xlByRows, xlPrevious).Row + 1\r\n    letzteSpalteQuelle = QWS.Cells.Find(&quot;*&quot;, &#x5B;A1], , , xlByRows, xlPrevious).Row + 1\r\n               \r\n    Dim i, j As Integer\r\n    \r\n    For i = 1 To letzteZeileQuelle\r\n        For j = 1 To letzteSpalteQuelle\r\n            ZWS.Cells(i, j) = QWS.Cells(i, j)\r\n        Next j\r\n    Next i\r\n   \r\n   Debug.Print ZWB.ActiveSheet.Name &amp; &quot;&lt;&lt;&lt;&lt; ZWB NACHHER QWS &gt;&gt;&gt;&gt;&quot; &amp; QWS.Name\r\n  \r\n   ZWB.Sheets(1).Activate\r\nEnd Sub\r\n<\/pre>\n<iframe src=\"http:\/\/www.facebook.com\/plugins\/like.php?href=https%3A%2F%2Fwww.capri-soft.de%2Fblog%2F%3Fp%3D1206&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 Ein Sheet soll aus einer anderen Datei rauskopiert und hier eingelesen werden Ansatz \u00dcber manuelles einlesen L\u00f6sung Benutzter Funktion: &#039; Pr\u00fcfen ob workbook bereits offen Function IsWorkbookOpen(strWB As String) As Boolean On Error Resume Next IsWorkbookOpen = Not Workbooks(strWB) Is Nothing End Function Funktion kopiereSheet: Sub kopiereSheet(zielDatei As String, materialnummer As String) Dim ZWB &hellip; <a href=\"https:\/\/www.capri-soft.de\/blog\/?p=1206\" class=\"more-link\"><span class=\"screen-reader-text\">Excel und VBA: Ein Sheet einlesen und kopieren<\/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-1206","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-js","jetpack_likes_enabled":true,"jetpack-related-posts":[],"_links":{"self":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1206","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=1206"}],"version-history":[{"count":2,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1206\/revisions"}],"predecessor-version":[{"id":1208,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1206\/revisions\/1208"}],"wp:attachment":[{"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1206"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1206"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.capri-soft.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1206"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}