Zellen einfärben

Forumthread: Zellen einfärben
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zellen einfärben

Zellen einfärben

27.11.2003 23:28:51

Thomy

Hallo

In den Zellen A1 bis E6 habe ich verschiedene Werte. Wenn ich auf eine Zelle klicke, soll der Hintergrund gelb und die Schrift rot eingefärbt werden. Wenn ich die Zelle wieder verlasse, soll der Hintergrund weiss werden und die Schrift schwarz.
Besten Dank im Voraus für Tipps.
Tom

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen einfärben

27.11.2003 23:47:27

thommy
da hatte ich noch etwas vergessen

27.11.2003 23:51:06

thommy
AW: Zellen einfärben

28.11.2003 08:12:25

Jörg Gradert
AW: Zellen einfärben

28.11.2003 09:08:01

Tom

AW: Zellen einfärben

27.11.2003 23:47:27

thommy

Hallo Thomy
Mal als Lösungsansatz


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column <= 6 And Target.Row <= 6 Then Target.Interior.ColorIndex = 6
If Target.Column <= 6 And Target.Row <= 6 Then Target.Font.ColorIndex = 3
End Sub

Gruß
thommy

da hatte ich noch etwas vergessen

27.11.2003 23:51:06

thommy


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("A1:d6").Interior.ColorIndex = 0
Range("a1:e6").Font.ColorIndex = 1
If Target.Column <= 6 And Target.Row <= 6 Then Target.Interior.ColorIndex = 6
If Target.Column <= 6 And Target.Row <= 6 Then Target.Font.ColorIndex = 3
End Sub

AW: Zellen einfärben

28.11.2003 08:12:25

Jörg Gradert

Hallo Tom,
ich habe den Code etwas verändert, so dass bei Mehrfachauswahl nicht die gesamte Tabelle gelb wird.
Code kopieren, Rechtsklick auf den Tabellenblattnamen, Code anzeigen, den Code in das VBA Editorfenster einfügen, VBA Editor schliessen.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("A1:E6").Interior.ColorIndex = 0
Range("A1:E6").Font.ColorIndex = 1
If Target.Cells.Count = 1 Then
If Target.Column < 6 And Target.Row < 7 Then Target.Interior.ColorIndex = 6
If Target.Column < 6 And Target.Row < 7 Then Target.Font.ColorIndex = 3
End If
End Sub