Farbig ausgefüllte Zellen aus Blatt 1 in Blatt 2 aufführen?
Hallo - ich möchte gerne eine Tabelle die fortlaufende Zellen/Zeilen hat (1-700...) im Tab 1 und einzelne dieser Zellen /Zeilen (Inhalte)sind in einer Farbe ausgefüllt, in einem neuen Tab 2 kopieren bzw. anzeigen lassen - jedoch nur die farblichen Zellen.
Bin für jede Hilfe dankbar!
2 Antworten
![](https://images.gutefrage.net/media/user/crRaphi/1631475433860_nmmslarge__178_0_1493_1493_e288717cd1db3e74fa5ed0dbc6a596ef.png?v=1631475434000)
Kopieren und dann Rechtsklick und dann hat man die einfügeobtionen (4 Kästchen). Wenn ich mich nicht täusche ist es Format übertragen.
Vielleicht geht es auch mir vormat übertragen. (Strg + umschalten + c/v)
![](https://images.gutefrage.net/media/default/user/10_nmmslarge.png?v=1551279448000)
Sorry - aber ich würde gern nur die farbigen Zellen im neuen Tab sehen
Ähnlich wie wenn man Zahlen aus verschiedenen Tabs konsolidiert
![](https://images.gutefrage.net/media/user/daCypher/1444744777_nmmslarge.jpg?v=1444744777000)
Manueller Weg:
Du markierst die gesamte Tabelle und gehst dann im Menü "Daten" auf "Filtern". Dann werden dir in den Überschriften Dropdown-Menüs angezeigt und da kannst du dann nach Farbe filtern und die jeweiligen Daten rüberkopieren.
Automatischer Weg:
Es gibt zwar per VBA die Möglichkeit, Farben auszulesen und über einen Trick gibt es auch die Möglichkeit, eine alte Excel 4 Funktion zu benutzen, die das kann, aber einfacher wäre es, wenn die Zeilen nicht per Farbe, sondern z.B. mit einem "x" in einer extra Spalte markiert sind. Die kannst du dann einfach mit der FILTER-Funktion auf dem zweiten Tabellenblatt anzeigen lassen
![](https://images.gutefrage.net/media/user/daCypher/1444744777_nmmslarge.jpg?v=1444744777000)
Ich hab mir jetzt mal spaßeshalber die Mühe gemacht, eine Funktion zu bauen, die die Farbe einer Zelle auslesen kann und auch als Matrixformel (also bei Auswahl mehrerer Zellen) funktioniert:
Function FARBE(zellen As Range)
ReDim results(zellen.Row To zellen.Row + zellen.Rows.Count - 1, zellen.Column To zellen.Column + zellen.Columns.Count - 1) As Long
Dim zelle As Variant
For Each zelle In zellen
results(zelle.Row, zelle.Column) = zelle.Interior.Color
Next zelle
FARBE = results
End Function
Die Funktion kannst du im VBA-Editor einfügen. Wichtig: Du musst sie in ein Modul packen.
- VBA-Editor öffnen (Alt+F11)
- In der Liste links einen rechtsklick auf "VBAProject" machen und dann Einfügen>Modul auswählen.
- Da den Code von oben einfügen
Jetzt kannst du im Arbeitsblatt z.B. mit =FARBE(A1) die Farbe von A1 bestimmen.
Um jetzt alle farblich markierten Zeilen aufs zweite Tabellenblatt zu bringen, kannst du diese Formel benutzen:
=FILTER(Tabelle1!A2:J21;FARBE(Tabelle1!A2:A21)<>16777215)
Statt Tabelle1!A2:J21 muss der gesamte Datenbereich der Tabelle1 drinstehen und statt Tabelle1!A2:A21 muss die Spalte drinstehen, in der die Farben überprüft werden sollen.
Damit werden alle Zeilen angezeigt, die nicht weiß sind, wenn du nur eine bestimmte Farbe haben willst, musst du dir die Nummer halt mit der Farbe-Funktion anzeigen lassen und in die Formel einfügen.
Nachteil: Da das Arbeitsblatt jetzt ein VBA-Modul hat, muss es als .xlsm abgespeichert werden, was evtl. Probleme mit den Makrosicherheitseinstellungen macht, wenn du die Datei wieder öffnen willst oder sie per E-Mail verschicken willst.