Jozef sucht nach einer Möglichkeit, die Hintergrundfarben bestimmter Zellen in dem von ihm erstellten Arbeitsblatt zu ändern. Zum Beispiel möchte er alle roten Hintergrundzellen finden und in blau ändern oder alle gelben Hintergründe finden und in blau ändern. Jozef fragt sich, ob es dafür einen einfachen Weg gibt.

Es ist ziemlich offensichtlich, dass Sie die Hintergrundfarben aller Zellen manuell ändern können, sodass Sie diese Option nicht verwenden müssen, um die Änderungen vorzunehmen. Was Sie brauchen, ist eine Möglichkeit, Änderungen an allen Zellen gleichzeitig vorzunehmen. Wenn Sie Excel 2002 oder 2003 verwenden, können Sie die folgenden Schritte ausführen:

  1. Drücken Sie Strg + H, um die Registerkarte Ersetzen des Dialogfelds Suchen und Ersetzen anzuzeigen.

  2. Erweitern Sie das Dialogfeld, indem Sie auf die Schaltfläche Optionen klicken. (Siehe Abbildung 1.)

  3. Klicken Sie auf die Schaltfläche Format rechts neben dem Feld Suchen nach. Excel zeigt das Dialogfeld Format suchen an.

  4. Stellen Sie sicher, dass die Registerkarte Muster ausgewählt ist. (Siehe Abbildung 2.)

  5. Verwenden Sie die Steuerelemente im Dialogfeld, um die Hintergrundfarbe anzugeben, die Sie ersetzen möchten.

  6. OK klicken.

  7. Klicken Sie auf die Schaltfläche Format auf der rechten Seite des Felds Ersetzen durch.

Excel zeigt das Dialogfeld Format ersetzen an.

  1. Stellen Sie sicher, dass die Registerkarte Muster ausgewählt ist.

  2. Verwenden Sie die Steuerelemente im Dialogfeld, um die Hintergrundfarbe anzugeben, die Sie beim Ändern der Zellen verwendet haben.

  3. OK klicken.

  4. Klicken Sie auf Alle ersetzen.

Wenn Sie eine ältere Version von Excel verwenden, funktionieren diese Schritte nicht.

Stattdessen müssen Sie ein Makro verwenden, um die Änderungen vorzunehmen. Das Folgende ist ein Beispiel für eines, das funktionieren sollte. (Sie können dieses Makro auch in späteren Versionen von Excel verwenden.)

Sub ChangeColor()

Dim rCell As Range     If Selection.Cells.Count = 1 Then         MsgBox "Select the range to be processed."

Exit Sub     End If     For Each rCell In Selection         If rCell.Interior.Color = RGB(255, 0, 0) Then  'red             rCell.Interior.Color = RGB(0, 0, 255)      'blue         End If     Next rCell End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-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.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (9042) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Ersetzen von Hintergrundfarben in Zellen.