title image


Smiley Re: E97: Glaub ich nicht, doch so.......
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)Static Farbealt%Static alteZelle As RangeCells.Interior.ColorIndex = -4142If Not alteZelle Is Nothing ThenalteZelle.Interior.ColorIndex = FarbealtEnd IfOn Error Resume NextFarbealt = Target.Interior.ColorIndexTarget.Interior.ColorIndex = 15Set alteZelle = TargetEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: