{"id":162,"date":"2019-12-22T17:16:55","date_gmt":"2019-12-22T16:16:55","guid":{"rendered":"https:\/\/www.achtzigzehn.net\/blog\/?p=162"},"modified":"2020-04-08T22:04:54","modified_gmt":"2020-04-08T20:04:54","slug":"excel-vba-makro-gedankenstuetzen","status":"publish","type":"post","link":"https:\/\/www.achtzigzehn.net\/blog\/2019\/12\/22\/excel-vba-makro-gedankenstuetzen\/","title":{"rendered":"Excel VBA Makro Gedankenst\u00fctzen"},"content":{"rendered":"\n<p>Ich habe immer wieder die Aufgabe T\u00e4tigkeiten in Excel zu automatisieren, aber eben nur alle ewigen Zeiten. Manche Makros ben\u00f6tige ich \u00f6fters, wobei zwischen zwei Malen auch wieder einige Zeit vergeht. <br><br>Generell ist jeder Code-Schnipsel vor seiner Nutzung auf den jeweiligen Anwendungsfall anzupassen, z.B. <em>columns<\/em>, <em>range<\/em>, etc. <br><br>Diesen Blog-Eintrag werde ich von Zeit zu Zeit mit weiteren Code-Schnipseln erg\u00e4nzen.<br><br>Last update: 2019-12-22<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">Verbundene Zellen aufl\u00f6sen<\/h2>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub VerbundeneZellenAufloesen()\nDim c As Range\nFor Each c In Intersect(Columns(\"A:B\"), ActiveSheet.UsedRange)\n    If c.MergeCells Then\n       With c.MergeArea\n          .UnMerge\n          .Value = c.Value\n       End With\n    End If\n Next c\n End Sub<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">Checkboxen in Zellen hinzuf\u00fcgen<\/h2>\n\n\n\n<pre class=\"wp-block-code\"><code>Sub AddCheckbox()\n     Dim i\n     For i = 18 To 200 'cells from 18 to 200\n     ActiveSheet.CheckBoxes.Add(Cells(i, \"I\").Left, Cells(i, \"I\").Top, 72, 17.25).Select\n     With Selection\n         .Caption = \"\"\n         .Value = xlOff '\n         .LinkedCell = \"J\" &amp; i\n         .Display3DShading = False\n     End With\n     Next\n End Sub<\/code><\/pre>\n\n\n\n<p>&nbsp; &nbsp; <\/p>\n","protected":false},"excerpt":{"rendered":"<p>Ich habe immer wieder die Aufgabe T\u00e4tigkeiten in Excel zu automatisieren, aber eben nur alle ewigen Zeiten. Manche Makros ben\u00f6tige ich \u00f6fters, wobei zwischen zwei Malen auch wieder einige Zeit vergeht. Generell ist jeder Code-Schnipsel vor seiner Nutzung auf den jeweiligen Anwendungsfall anzupassen, z.B. columns, range, etc. Diesen Blog-Eintrag werde ich von Zeit zu Zeit [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[15],"tags":[11],"class_list":["post-162","post","type-post","status-publish","format-standard","hentry","category-scripting-coding","tag-excel-vba"],"_links":{"self":[{"href":"https:\/\/www.achtzigzehn.net\/blog\/wp-json\/wp\/v2\/posts\/162","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.achtzigzehn.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.achtzigzehn.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.achtzigzehn.net\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.achtzigzehn.net\/blog\/wp-json\/wp\/v2\/comments?post=162"}],"version-history":[{"count":2,"href":"https:\/\/www.achtzigzehn.net\/blog\/wp-json\/wp\/v2\/posts\/162\/revisions"}],"predecessor-version":[{"id":165,"href":"https:\/\/www.achtzigzehn.net\/blog\/wp-json\/wp\/v2\/posts\/162\/revisions\/165"}],"wp:attachment":[{"href":"https:\/\/www.achtzigzehn.net\/blog\/wp-json\/wp\/v2\/media?parent=162"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.achtzigzehn.net\/blog\/wp-json\/wp\/v2\/categories?post=162"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.achtzigzehn.net\/blog\/wp-json\/wp\/v2\/tags?post=162"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}