Clever-Excel-Forum

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!

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

Gruß Ralf

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

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.

Glausius

RPP63

Klaus-Dieter

Glausius