Nach Farben in unterschiedlichen Zellen filtern
Helmut
ich hätte eine frage zum filtern von zellfarben. dazu habe ich hier einen code gefunden, der lautet:
Sub nach_farbe_filtern()
Dim s As Integer
Dim x As Integer
s = ActiveSheet.UsedRange.Columns.Count + 1
x = 2
Cells(1, s) = "Farbindex"
Do While Not IsEmpty(Cells(x, 1))
Cells(x, s) = Cells(x, 1).Interior.ColorIndex
Cells(x, s).Interior.ColorIndex = Cells(x, 1).Interior.ColorIndex
x = x + 1
Loop
End Sub
wie kann man den code abändern, bzw. wie lautet dieser genau, wenn ich auch nach zellen in spalten filtern möchte, die nicht zellen in spalte A sind?
ich habe nämlich ein tabellenblatt, in dem ich in verschiedenen spalten verschiedene zellen farblich markiert habe! eben nicht immer die zelle in spalte A. einmal ist es zelle K3, dann wieder H8, ab und zu auch eine ganze zeile, usw.
danke im voraus!
liebe grüße,
helmut