VBA formatieren
14.08.2019 16:42:16
Hanimo
Ich habe ein Problem
Wenn ich mit der Maus ein Bereich markiere und will mit ein Makro alle Zellen mit bestimmte wert mit rote Farbe füllen oder ein andere, habe einMakro geschrieben, aber funktioniert leider nicht.
Frage: Weis jemand wie es geht?
Sub Bereisch()
Dim Bereich As Range
Dim Zelle As Range
Dim Summe As Double
Set Bereich = Selection
For Each Zelle In Bereich.Cells
If Value = 2 Then .Interior.ColorIndex = 6
End If
Next Zelle
End Sub
Anzeige