Microsoft Excel

Herbers Excel/VBA-Archiv

VBA - nochmals Thema Farben | Herbers Excel-Forum


Betrifft: VBA - nochmals Thema Farben von: WalterK
Geschrieben am: 03.02.2012 14:44:08

Hallo nochmal,

zum Thema Farben habe ich jetzt nochmals eine Frage:

Es geht jetzt nur um die Spalte "GESAMT", in der einige Zellen farblich markiert sind.

Der Code soll dann bei allen Zellen dieser Spalte, die den identischen Zellentext haben, die gleiche Farbe vergeben.

Hier ein kleines Beispiel:
https://www.herber.de/bbs/user/78715.xls

Danke für die Hilfe, Servus Walter

  

Betrifft: AW: VBA - nochmals Thema Farben von: ransi
Geschrieben am: 03.02.2012 15:04:12

HAllo Walter

Versuch mal sowas:

Public Sub machs()
    Dim rngGesamt As Range
    Dim Zelle As Range
    Dim myDic As Object
    Set myDic = CreateObject("scripting.Dictionary")
    With Sheets("Tabelle4")
        Set rngGesamt = Intersect(.Range("A2").CurrentRegion, .Rows(2).Find("GESAMT").EntireColumn)
        For Each Zelle In rngGesamt
            If Not myDic.exists(Zelle.Value) Then
                myDic(Zelle.Value) = Zelle.Interior.Color
                Else:
                Zelle.Interior.Color = myDic(Zelle.Value)
            End If
        Next
    End With
End Sub



ransi


  

Betrifft: Genau so. Danke und Servus, Walter von: WalterK
Geschrieben am: 03.02.2012 15:20:02




Beiträge aus den Excel-Beispielen zum Thema "VBA - nochmals Thema Farben"