Alle ausgewählten Zellen im Bereich B8:B500 einfärben

[FrankyHB]

Hallo, guten Abend,

ich habe eine Frage, wie erreiche ich es, das ich alle ausgewählten Zellen im Bereich von (B8:B500) grün einfärben kann.

Selection.Interior.ColorIndex = 4

Ich möchte dies per Button steuern, aber auf den o.g. Bereich beschränken damit nicht eine andere Zelle im Arbeitsblatt eingefärbt wird
auf der zufällig der Courser steht.

Gruß Frank

[Kuwer]

Hallo Frank,

Code:

Sub abc()
  On Error Resume Next
  Application.Intersect(Range("B8:B500"), Selection).Interior.ColorIndex = 4
  On Error GoTo 0
End Sub

Gruß Uwe

[FrankyHB]

Danke, klappt perfekt.