title image


Smiley Re: Zellen einfärben
Hallo Fritz,



versuche es mal so:









Sub zellen_einfaerben_RGB()

For i = 1 To[a65536].End(xlUp).Row

    If IsNumeric(Range("A" & i)) And Not IsEmpty(Range("A" & i)) Then _

    Range("D" & i).Interior.Color = RGB(Range("A" & i), Range("B" & i), Range("C" & i))

Next

End Sub





Code eingefügt mit Syntaxhighlighter 4.0




Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: