Excel - VBA: Ändern Sie die Textfarbe einer Zelle basierend auf der Farbe des Textes einer Zelle adjecent

Ich arbeite an einem makro, dass Schleifen durch die Auswahl dData und identifiziert die Zellen haben eine weiße Schriftfarbe. Dann ändert sich die Schriftfarbe auf eine beliebige Zelle neben dData weiß. Der code unten ist was ich habe, so weit. Es funktioniert noch nicht, aber ich bin auf dem richtigen Weg?

Dank!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dData As Range
Dim Cell As Range

Set dData = Sheets("Sheet1").Range("l2:l10000")

For Each Cell In dData
    If Cell.Font.Color = 2 Then
        Cell.Offset(0, -1).Font.Color = 2
    End If
Next Cell
End Sub
Ich glaube, Sie wollen nicht, diesen code in die SelectionChange Veranstaltung, obwohl.
Ich habe ein Kombinationsfeld, das löst ein anderes makro, da könnte ich nur Platz gibt. Irgendwelche Ideen, warum das momentan nicht funktioniert?
Sind Sie erhalte eine Fehlermeldung, oder ist es einfach so, dass nichts passiert, wenn Sie es ausführen?
Passiert nichts wenn ich es ausführen.
Dieser code wirkt sich auf Sheet1 unabhängig davon, was Arbeitsblatt-Modul, legen Sie es in. Sind Sie sicher, dass Sie überprüft Sheet1 für die änderungen?

InformationsquelleAutor NewSpeaker | 2013-10-10

  1. 7

    Dies scheint für mich arbeiten. 

    Sub Test()
Dim dData As Range
Dim Cell As Range

Set dData = Sheets("Sheet1").Range("l2:l10000")

For Each Cell In dData.Cells
        If Cell.Font.Color = 16777215 Then
            Cell.offset(,1).Font.Color = 16777215
        End If
Next
End Sub

    Hinweis auch der Umfang der dData ist beschränkt auf Sheet1

    Auf meinem computer "weiß" ist ein long-Wert von 16777215 die funktioniert bei mir in Excel 2010, und ich denke, sollte die Arbeit im Jahr 2007. In Excel 2003 ich bin mir nicht sicher.

    VERSUCHEN, DIESE

    Sub Sample()
    Dim dData As Range, aCell As Range

    Set dData = Sheets("Sheet1").Range("L2:L10000")

    For Each aCell In dData.Cells
        If aCell.Font.ColorIndex = 2 Then _
        aCell.Offset(, 1).Font.ColorIndex = 2
    Next
End Sub
    Vielen Dank für deine Hilfe, aber es scheint nicht zu sein, etwas zu tun. Was ich versuche zu tun ist, prüfen Sie die Zellen in Spalte "L" haben weiße Schrift und dann die Schriftfarbe ändern ion Spalte "M" in weiß.
    Wenn Sie möchten, chnage die Farbe Col M warum dann Offset(0,-1) 😉 Versuchen Offset(,1)
    benötigen Sie eine zusätzliche If-Anweisung, sonst Zellen in Spalte A wird ein Fehler ausgelöst. Warum dies?
    Oops! Du hast Recht. Danke!!!
    Wo hast "A1" Kommen? Wir sind looping-Zellen in Col L 😉

    InformationsquelleAutor David Zemens

Schreibe einen Kommentar