{"id":146,"date":"2009-01-16T13:55:09","date_gmt":"2009-01-16T13:55:09","guid":{"rendered":""},"modified":"2018-05-02T07:54:56","modified_gmt":"2018-05-02T06:54:56","slug":"zellenhintergrund-von-markierten-tabellenzellen-faerben","status":"publish","type":"post","link":"https:\/\/www.kastenmaier.de\/?p=146","title":{"rendered":"VBA &#8211; Word: Zellenhintergrund von markierten Tabellenzellen f\u00e4rben"},"content":{"rendered":"<h1><span style=\"font-size: large;\">Beschreibung<\/span><\/h1>\n<p style=\"text-align: justify;\">Bei der Tabellenformatierung muss ich die Zellenhintergrundfarbe einzelner Zellen h\u00e4ufig \u00e4ndern. Da die Farben fest sind, hilft mir das folgende Makro die Arbeit zu beschleunigen.<\/p>\n<p style=\"text-align: justify;\"><!--more--><\/p>\n<p style=\"text-align: justify;\">Das folgende Makro \u00e4ndern die Zellenhintergrundfarbe aller markierter Zellen in grau und falls diese schon grau sind wird die Zellenhintergrundfarbe wieder entfernt.<\/p>\n<h1><span style=\"font-size: large;\">Sourcecode<\/span><\/h1>\n<pre class=\"brush: vb; gutter: true\">Public Sub ZellenhintergrundGrau()\r\n    &#039;Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.\r\n    On Error GoTo NoDocumentOpen\r\n\r\n    &#039; Falls keine Datei ge\u00f6ffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Pr\u00fcfung, ob eine Datei ge\u00f6ffnet ist, wird \u00fcber die L\u00e4nge des Dateinamens des aktiven Dokuments durchgef\u00fchrt.\r\n    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen\r\n\r\n    With Selection.Cells.Shading\r\n        If .Texture = wdTexture15Percent Then\r\n            &#039; Falls die Zelle bereits grau ist, Hintergrundfarbe entfernen, ...\r\n            .Texture = wdTextureNone\r\n        Else\r\n            &#039; ... andernfalls Hintergrundfarbe der Zelle auf grau \u00e4ndern\r\n            .Texture = wdTexture15Percent\r\n            &#039; evtl. vorhandene F\u00fcllmuster werden entfernt\r\n            .BackgroundPatternColor = wdColorAutomatic\r\n        End If\r\n    End With\r\n\r\nNoDocumentOpen:\r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Beschreibung Bei der Tabellenformatierung muss ich die Zellenhintergrundfarbe einzelner Zellen h\u00e4ufig \u00e4ndern. Da die Farben fest sind, hilft mir das folgende Makro die Arbeit zu beschleunigen.<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[29,19],"tags":[49,37,38],"class_list":["post-146","post","type-post","status-publish","format-standard","hentry","category-startseite","category-vba-word","tag-programmieren","tag-vba","tag-word"],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p5LyzC-2m","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/146","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=146"}],"version-history":[{"count":7,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/146\/revisions"}],"predecessor-version":[{"id":1467,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=\/wp\/v2\/posts\/146\/revisions\/1467"}],"wp:attachment":[{"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=146"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=146"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kastenmaier.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=146"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}