In einem bestimmten Bereich
befinden sich mit gelber Hintergrundfarbe
formatierte Zellen, diese sollen alle fett formatiert werden.
Sub Formatieren()
For Each Zelle In Range("A1:P100")
If Zelle.Interior.ColorIndex = 6 Then Zelle.Font.Bold = True
Next Zelle
End Sub
|
