title image


Smiley Re: Registerfarbe Zellwertabhängig ändern
Hallo Andreas,





Option Explicit



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target = 3 And Target.Address = "$A$1" Then ActiveSheet.Tab.ColorIndex = 3

End Sub





Gruß Hajo



"Wer Rechtschreibfehler findet, darf sie behalten!"



Das Exceltreffen 2005 http://home.arcor.de/nurablage/treffen2005/treffen2005.htm


 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: