beliebige Zellen einfärben

[Glausius]

Hallo,

ich suche den Code für die Einfärbung verschiedener markierter Zellen, die jedoch nicht vorher bekannt sind.

Mit diesem Code:

Code:

    With ActiveCell
        With .Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 8420607
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    End With

wird die jeweils markierte Zelle eingefärbt. Sind jedoch mehrere nebeneinander liegende Zellen markiert, wird jeweils nur die erste und nicht der gesamte Bereich gefärbt.

Wie müsste der Code geändert werden, dass sowohl nur eine markierte Zelle oder auch eine Reihe von markierten Zellen gleichzeitig eingefärbt werden?

Danke für die Hilfe!

[RPP63]

Moin!
With Selection?
Gerne auch iVm If TypeName(Selection) = "Range" Then

Gruß Ralf

[Klaus-Dieter]

Hallo,

versuche es einmal so:

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target.Cells.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 8420607
    End With
End Sub

[Glausius]

Hallo,

vielen Dank den beiden Helfern! Der Hinweis von Ralf hat mein Problem lösen können, da es unbedingt ein Makro in einem Modul bleiben musste.