Vanita fragte, ob es eine Möglichkeit gibt, Zellen auszuwählen, die eine bestimmte Farbe enthalten. Das Ausführen der Aufgabe ist einfach, wenn Sie Excel 2003 verwenden. Führen Sie einfach die folgenden Schritte aus:

  1. Drücken Sie Strg + F, um die Registerkarte Suchen des Dialogfelds Suchen und Ersetzen anzuzeigen. (Siehe Abbildung 1.)

  2. Stellen Sie sicher, dass sich im Feld Suchen nach nichts befindet.

  3. Klicken Sie auf Format. (Möglicherweise müssen Sie auf Optionen klicken, um die Schaltfläche Format anzuzeigen.) Excel zeigt das Dialogfeld Format suchen an.

  4. Stellen Sie sicher, dass die Registerkarte Muster angezeigt wird. (Siehe Abbildung 2.)

  5. Wählen Sie aus den verfügbaren Farben die Farbe aus, die Sie suchen möchten.

  6. Klicken Sie auf OK, um das Dialogfeld Format suchen zu schließen.

  7. Klicken Sie auf Alle finden. Das Dialogfeld Suchen und Ersetzen wird erweitert und zeigt die Adressen aller Zellen an, die mit der in Schritt 5 angegebenen Farbe formatiert sind. (Siehe Abbildung 3.)

  8. Klicken Sie unten im Dialogfeld auf eine der Zellenadressen. Excel wählt die Zelle im eigentlichen Arbeitsblatt aus.

  9. Drücken Sie Strg + A. Alle Adressen im Dialogfeld sind ausgewählt.

  10. Klicken Sie auf Schließen. Alle Zellen der gewünschten Farbe werden ausgewählt.

Wenn Sie Excel 97, Excel 2000 oder Excel 2002 verwenden, können Sie Zellen einer bestimmten Farbe nur mithilfe eines Makros auswählen. Betrachten Sie das hier gezeigte Makro:

Sub SelectColoredCells()

Dim rCell As Range     Dim lColor As Long     Dim rColored As Range

'Select the color by name (8 possible)

'vbBlack, vbBlue, vbGreen, vbCyan,     'vbRed, vbMagenta, vbYellow, vbWhite     lColor = vbBlue

'If you prefer, you can use the RGB function     'to specify a color     'lColor = RGB(0, 0, 255)



Set rColored = Nothing     For Each rCell In Selection         If rCell.Interior.Color = lColor Then             If rColored Is Nothing Then                 Set rColored = rCell             Else                 Set rColored = Union(rColored, rCell)

End If         End If     Next     If rColored Is Nothing Then         MsgBox "No cells match the color"

Else         rColored.Select         MsgBox "Selected cells match the color:" & _             vbCrLf & rColored.Address     End If     Set rCell = Nothing     Set rColored = Nothing End Sub

Um das Makro zu verwenden, wählen Sie einen Zellenbereich aus, bevor Sie es ausführen. Das Makro durchläuft dann jede ausgewählte Zelle und vergleicht ihre Farbe mit der in lColor angegebenen Farbe. Wenn eine Übereinstimmung gefunden wird, wird die Zelle einem Auswahlsatz hinzugefügt. Wenn der Vorgang abgeschlossen ist, wählt das Makro nur die übereinstimmenden Zellen aus und wird dann beendet.

Wenn Sie andere makrobasierte Lösungen finden möchten, lesen Sie den folgenden Artikel in der Microsoft Knowledge Base:

http://support.microsoft.com/kb/142122

_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 (2396) 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:

Finden von mit einer bestimmten Farbe gefüllten Zellen.