Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen hervorheben

Zellen hervorheben
15.11.2005 10:06:00
Sieglinde
Hallo!
Möchte gerne meine Excel Liste leichter lesbar machen.
Ist es möglich das ich Zellen vergrössere od. hervorhebe (andere Farbe oder so) wenn ich eine bestimmte Zelle ansteuere.
Konkret: Zelle der Spalte D z.B."D5" wird per Mauskick aktiviert, dann sollen die Zellen A,B,C der Zeile 5 hervorgehoben werden, bzw. vieleicht auch andere Farbe wenn möglich. Wenn ich die Zelle verlasse solls aber wieder weg sein.
Bitte um Eure Hife!
Danke im Voraus
Sieglinde

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen hervorheben
15.11.2005 10:16:17
u_
Hallo,
wenn du sonst keine Zellfarben in dem Blatt hast ist es recht einfach.
In das Klassenmodul der Tabelle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.ColorIndex = 19
End Sub

Gruß
Geist ist geil!
AW: Zellen hervorheben
15.11.2005 11:53:17
Sieglinde
Hallo!
Danke für deinen Beitrag!
Habe aber wie soll es anders sein eine Menge Farbe in meiner Liste.
Es würde auch schon reichen wenn z.B. die entsprechende Zeile od. Schrift grösser wird meinetwegen auch der ganzen Zeile natürlich immer nur die Zeile auf der ich gerade bin ausgehend von der Zelle der Spalte "D".
Gruss
Sieglinde
Anzeige
AW: Zellen hervorheben
15.11.2005 13:37:30
u_
Hallo,
hier mal fette Schrift:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.UsedRange.Font.Bold = False
If Target.Column = 4 Then
Rows(Target.Row).Font.Bold = True
End If
End Sub

oder mit unterschiedlichen Schriftgrößen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.UsedRange.Font.Size = "10"
If Target.Column = 4 Then
Rows(Target.Row).Font.Size = "12"
End If
End Sub

Gruß
Geist ist geil!
AW: Zellen hervorheben
15.11.2005 19:43:01
Sieglinde
Hallo!
Perfekt! Herzlichen Dank
Gruss
Sieglinde
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige