Zellen färben nach ausgewählter Zelle?

17/09/2009 - 13:56 von Karsten W. | Report spam
Hallo,

geht es eigentlich, den Hintergrund einer Zelle festzulegen, abhàngig
davon, ob eine Zelle selektiert ist oder nicht?

Ich möchte gern die Tabellenüberschriften der aktuellen (da wo gerade
der Cursor ist) Spalte anders fàrben.

Für jeden Hinweis dankbar,

Karsten.
 

Lesen sie die antworten

#1 Wolfgang Kutsche
17/09/2009 - 16:14 | Warnen spam
Hallo Karsten,

schreibe folgenden Code in die Tabelle, in der das Makro wirken soll.

Option Explicit
'Konstanten festlegen
Const FarbeAus = 0 'Farbindex außerhalb der aktivierten Zelle
Const FarbeEin = 35 ' Farbindex aktive Zelle
Const ZeileFarbe = 1 'ZeileFarbànderungen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'>>> Farbe zurücksetzen
Rows(ZeileFarbe).Interior.ColorIndex = FarbeAus
'>>> Farbe der Zelle 'ZeileFarbe' àndern
Cells(ZeileFarbe, ActiveCell.Column).Interior.ColorIndex = FarbeEin
End Sub

Gruß Wolfgang
WinXP Home SP3, Office 2003 SP3 & 2007 SP1
http://www.wk-bau-edv.de


"Karsten W." wrote:

Hallo,

geht es eigentlich, den Hintergrund einer Zelle festzulegen, abhàngig
davon, ob eine Zelle selektiert ist oder nicht?

Ich möchte gern die Tabellenüberschriften der aktuellen (da wo gerade
der Cursor ist) Spalte anders fàrben.

Für jeden Hinweis dankbar,

Karsten.

Ähnliche fragen