Daten filtern und Füllfarbe ändern
18.01.2016 11:30:20
Aaron
ich habe noch ein zweites Problem bei dem ich leider nicht weiter komme.
Es geht darum mit Hilfe eines Autofilters Daten zu filtern. Die Filter stehen in zwei Spalten.
Die Zellen der gefilterten Daten sollen anschließend in der Füllfarbe gelb gefärbt werden. Die gefilterten Datensätze sollen im Bereich von der Spalte A bis zur Spalte AF gefärbt werden.
Die verwendete Tabelle ändert sich regelmäßig und somit die Anzahl der gefilterten Datensätze.
Als Hilfe habe ich ein PDF mit einer genaueren Beschreibung angehängt.
Leider habe ich es nicht geschafft eine Lösung zu finden.
Über eure Hilfe würde ich mich daher sehr freuen.
lg Aaron
Bei einem ähnlichem Problem habe ich es auf die unten stehende Weise gelöst. Leider konnte ich die Vorgehensweise nicht auf zwei Filter übertragen.
Sub Einfärben_RE_FStand()
Dim rngZelle As Range
Dim strStart As String
Set rngZelle = Columns("A").Find("RE*", lookat:=xlWhole)
If Not rngZelle Is Nothing Then
strStart = rngZelle.Address
Do
If rngZelle.Row > 1 Then Range(Cells(rngZelle.Row, 1), Cells(rngZelle.Row, 28)). _
Interior.Color = 15773696
Set rngZelle = Columns("A").FindNext(rngZelle)
Loop While Not rngZelle Is Nothing And rngZelle.Address strStart
End If
Set rngZelle = Nothing
End Sub
