Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA - nochmals Thema Farben

VBA - nochmals Thema Farben
WalterK
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA - nochmals Thema Farben
03.02.2012 15:04:12
ransi
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
Anzeige
Genau so. Danke und Servus, Walter
03.02.2012 15:20:02
WalterK

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige