ich hoffe hier kann mir jemand weiterhelfen. Ich muss eine analoge Karten-Sortier-Übung irgendwie digitalisieren, aber scheitere gerade noch an der korrekten Umsetzung und hoffe, hier kann mir jemand weiterhelfen.
Ich habe zwar schon viele Forenbeiträge durchforstet und versucht die Makros auf mein Beispiel anzuwenden, aber bislang ohne Erfolg.
Konkret hatte ich folgendes überlegt:
Ich bräuchte ein Makro, dass Zellen auf eine Hintergrundfarbe untersucht und bei Erfüllung ins nächste Arbeitsblatt in eine bestimmte Spalte (A und B) kopiert.
Das heißt konkret, ist ein Wort/eine Zelle im Arbeitsblatt "Categorize" in der Range (A1:Y19) entweder mit der Hintergrundfarbe gelb (Color.Index = 5) oder rot (Color.Index =3) eingefärbt, sollen alle gelb markierten Zellen im Arbeitsblatt "Filter" in der Spalte A (Range A2:A50) erscheinen und alle rot markierten Zellen im Arbeitsblatt "Filter" in der Spalte B (Range B2:B50) erscheinen.
Geht das?
Hier mal meine Versuche, aber wie gesagt, ich bin leider Anfänger ...
Sub rot_kopieren()
Dim zel As Range
For Each zel In Sheets("Categorize").Range("A1:Y19")
If zel.Interior.ColorIndex = 3 Then
Sheets("Filter").Range("A2:A50") = _
Sheets("Categorize"). --> spätestens hier bin ich verloren, wenn ich nicht schon davor _
ohenhin etwas anders definieren hätte müssen.
End If
Next zel
End Sub