title image


Smiley Re: Fadenkreuz
Hallo Daniel,

versuchs mal so:















Private Sub Worksheet_SelectionChange(ByVal Target As Range)      

On Error Resume Next    

Static OldCellIndexcolor As Integer  

Static OldCell As Range  



If Not OldCell Is Nothing Then    

OldCell.EntireRow.Interior.ColorIndex = OldCellIndexcolor

OldCell.EntireColumn.Interior.ColorIndex = OldCellIndexcolor

End If  



OldCellIndexcolor = Target.EntireRow.Interior.ColorIndex

Target.EntireRow.Interior.ColorIndex = 36

Target.EntireColumn.Interior.ColorIndex = 36

Set OldCell = Target



End Sub  











Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: