{"id":188,"date":"2014-09-12T10:31:32","date_gmt":"2014-09-12T08:31:32","guid":{"rendered":"http:\/\/crazyice.net\/?p=188"},"modified":"2016-06-30T16:53:35","modified_gmt":"2016-06-30T14:53:35","slug":"vba-excel-textfelder-bzw-shapes-loeschen","status":"publish","type":"post","link":"https:\/\/crazyice.net\/?p=188","title":{"rendered":"VBA Excel &#8211; Textfelder bzw. Shapes l\u00f6schen"},"content":{"rendered":"<p>Um schnell und einfach viele unben\u00f6tigte Textfelder auf einem Tabellenblatt zu l\u00f6schen, k\u00f6nnt ihr dieses Script verwenden.<\/p>\n<p>Als Kommentar sind auch Anweisungen enthalten, um die Textfelder mit Text zu bef\u00fcllen. Diese k\u00f6nnt ihr f\u00fcr Testzwecke verwenden. Einfach das &#8218;-Zeichen entfernen und in der Zeile mit der L\u00f6schanweisung (.Delete) am Anfang ein &#8218;-Zeichen einf\u00fcgen.<\/p>\n<p><!--more--><\/p>\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"php\">Private Sub RemoveTextBoxes() \r\n  Dim counter counter = 0 \r\n  Dim shp As Shape \r\n  For Each shp In Tabelle1.Shapes \r\n    If shp.Type = msoTextBox Then \r\n      counter = counter + 1 \r\n      shp.Delete \r\n      'shp.TextFrame.Characters.Text = CStr(counter) \r\n    End If \r\n  Next \r\n  Debug.Print (\" Deleted \" + CStr(counter) + \" TextBoxs\")\r\nEnd Sub<\/pre>\n<p><code><br \/>\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Um schnell und einfach viele unben\u00f6tigte Textfelder auf einem Tabellenblatt zu l\u00f6schen, k\u00f6nnt ihr dieses Script verwenden. Als Kommentar sind auch Anweisungen enthalten, um die Textfelder mit Text zu bef\u00fcllen. Diese k\u00f6nnt ihr f\u00fcr Testzwecke verwenden. Einfach das &#8218;-Zeichen entfernen und in der Zeile mit der L\u00f6schanweisung (.Delete) am Anfang ein &#8218;-Zeichen einf\u00fcgen.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[63],"tags":[64,68,67,66,65],"class_list":["post-188","post","type-post","status-publish","format-standard","hentry","category-microsoft-office","tag-excel","tag-shape","tag-textbox","tag-textfeld","tag-vba"],"_links":{"self":[{"href":"https:\/\/crazyice.net\/index.php?rest_route=\/wp\/v2\/posts\/188","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/crazyice.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/crazyice.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/crazyice.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/crazyice.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=188"}],"version-history":[{"count":5,"href":"https:\/\/crazyice.net\/index.php?rest_route=\/wp\/v2\/posts\/188\/revisions"}],"predecessor-version":[{"id":216,"href":"https:\/\/crazyice.net\/index.php?rest_route=\/wp\/v2\/posts\/188\/revisions\/216"}],"wp:attachment":[{"href":"https:\/\/crazyice.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=188"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/crazyice.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=188"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/crazyice.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=188"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}