Hallo zusammen.
Ich habe eine Liste aus der ich verschiedene Ausagen herausziehen möchte.
Dieses kann man ja gut mit der bedingten Formatierung durchführen.
Da es für Anwender konzipiert ist, möchte ich, dass der Anwender diese Aussagen selber definiert.
Aus diesem Grund habe ich eine Schaltfläche eingebaut, die nach verschiedenen Kriterien sortiert und bedingt formatiert.
Ich habe für die bed.Formatierung folgenden Code gebastelt:
Dim Bereich As Range
Dim Zelle As Range
Dim Mindestanf
Set Bereich = ActiveSheet.Range("I11:I50")
Mindestanf = 6000000
For Each Zelle In Bereich
If Zelle.Value >= Mindestanf Then
Zelle.Font.Underline = True
End If
Next
End Sub
Bei bestimmten Größen wird unterstrichen. Dieses funktioniert auch.
Möchte ich jedoch nicht unterstreichen, sondern die Zelle färben, ändere ich den code ... in ....Zelle.Interior.ColorIndex = 36....
dann passiert nichts.
Was mache ich falsch?
Und wie schaffe ich es, dass nicht die Zelle, sondern die verwendeten Spalten in der Zeile gefärbt werden?
Lieben Gruß