title image


Smiley Re: noch zusätzlich eine Frage
Hallo Necro,

hier ein kleines Beispiel, wie man es machen könnte:

Gehe im Projekt-Explorer auf die Tabelle, für die du das haben willst und wähle 1.

aus dem linken PullDown Worksheet und aus dem rechten Activate und gebe z.B.

Private Sub Worksheet_Activate()



Application.OnKey "{delete}", "Faerben"



End Sub

ein und wähle 2. Deactivate und gebe

Private Sub Worksheet_Deactivate()



Application.OnKey "{delete}"



End Sub

ein.

In ein normales Modul gibt du den Code Faerbe ein, zB.



Sub Faerben()



Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).Interior.ColorIndex = 3



End Sub



Jetzt werden bei Betätigen der Taste Del (= Entf) die ersten 7 Zellen der Zeile, in der die aktive Zelle ist, rot eingefärbt.



Worti

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: