title image


Smiley Re: werte in spalte a bei übereinstimmung färben (vba - excel 2000)
Hallo,

so vielleicht:





      

Private Sub Worksheet_Change(ByVal Target As Range)



    Dim c As Range

    Dim cc As Range

    If Target.Row > 6 Or Target.Column <> 2 Then Exit Sub

    Set c = Range("A1:A6").Find(what:=Target)

    If Not c Is Nothing Then

       c.Interior.ColorIndex = 6

    End If

    'wenn Werte wieder gelöscht werden, keine Farbe mehr 

    For Each c In Range("A1:A6")

        Set cc = Range("B1:B6").Find(c.Value)

        If cc Is Nothing Then

           c.Interior.ColorIndex = xlNone

        End If

    Next c



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0




Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: