April hat eine Tabelle in ihrem Word-Dokument. Eine Zeile ist mit einer benutzerdefinierten Farbfüllung formatiert, die der Logo-Farbe des Unternehmens entspricht. April möchte diese Füllfarbe nun in andere Zeilen kopieren. Sie hatte gehofft, den Format Painter verwenden zu können, aber das kopiert nur das Textformat, nicht die in den Tabellenzellen verwendete Füllfarbe. April fragt sich, ob es eine Möglichkeit gibt, die Füllfarbe von einer Zeile in eine andere zu kopieren.

Es gibt verschiedene Möglichkeiten, wie Sie dieses Problem angehen können. Eine besteht darin, einfach die in Word verfügbaren Tools zu verwenden. Befolgen Sie diese Schritte:

  1. Wählen Sie die Zeile aus, die bereits mit der gewünschten Farbe gefüllt ist.

  2. Zeigen Sie die Registerkarte Home des Menübands an.

  3. Klicken Sie in der Gruppe „Absatz“ auf den Abwärtspfeil rechts neben dem Schattierungswerkzeug. (Das Werkzeug sieht aus wie ein verschütteter Farbeimer.) Word zeigt eine Farbpalette an.

  4. Klicken Sie auf Weitere Farben. Word zeigt das Dialogfeld Farben an. Die Farbe der ausgewählten Zeile sollte bereits im Dialogfeld angezeigt werden. (Siehe Abbildung 1.)

  5. OK klicken. (Beachten Sie, dass Sie im Dialogfeld keine Änderungen vorgenommen haben. Sie haben nur auf OK geklickt.)

  6. Wählen Sie die anderen Zeilen in der Tabelle aus, deren Hintergrundfarbe Sie ändern möchten.

  7. Klicken Sie auf der Registerkarte Design des Menübands auf das Schattierungswerkzeug. Ihre gewünschte Farbe wird auf die ausgewählten Zeilen angewendet.

Nachdem Sie die gewünschte Farbe angewendet haben und sie an einer anderen Stelle anwenden möchten (möglicherweise in einer anderen Tabelle oder in einigen Zellen, die Sie verpasst haben), müssen Sie nur die Zellen auswählen und F4 drücken. Die Schattierung wird für die ausgewählten Zellen wiederholt.

Wenn Sie dies mit einer Reihe von Tabellen oder in einer Reihe von Dokumenten ziemlich oft tun müssen, sollten Sie ein Makro verwenden, um die Schattierung durchzuführen. Ein praktisches kleines Makro ist das folgende:

Sub ShadeTable()

Dim backColor As Long     Dim foreColor As Long

If Selection.Information(wdWithInTable) Then         With Selection.Tables(1)

backColor = .Cell(1, 1).Shading.BackgroundPatternColor             foreColor = .Cell(1, 1).Shading.ForegroundPatternColor             .Shading.BackgroundPatternColor = backColor             .Shading.ForegroundPatternColor = foreColor         End With     Else         MsgBox "Put the insertion point in a table"

End If End Sub

Das Makro schattiert eine gesamte Tabelle basierend auf der Schattierung, die in der ersten Zelle der ersten Zeile der Tabelle verwendet wird. Sie müssen lediglich sicherstellen, dass Sie die Einfügemarke irgendwo in der Tabelle platzieren, bevor Sie sie ausführen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (10932) gilt für Microsoft Word 2007, 2010, 2013 und 2016. Eine Version dieses Tipps für die ältere Menüoberfläche von Word finden Sie hier:

Füllfarbe in eine Tabelle kopieren.