Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
824to828
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen färben

Zeilen färben
07.12.2006 10:28:15
helena
Hallo
geht dies auch wenn ich zwei Bereiche möchte
zB A1:G20 mit blau
A21:G40 mit gelb (Farbe 6)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows.Interior.ColorIndex = xlColorIndexNone
Rows(Target.Row).Interior.ColorIndex = 6
End Sub

Problem könnte noch sein beim Druck sollte Eintrag wieder weg
sein bzw. die Farbe wieder wie Orginal
Danke für Hilfe
gruss helena

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen färben
07.12.2006 13:03:05
Bertram
Hi Helena,
meinst du so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zelle As Range
For Each zelle In Target
If Not Intersect(zelle, Range("A1:G20")) Is Nothing Then zelle.Interior.ColorIndex = 5
If Not Intersect(zelle, Range("A21:G40")) Is Nothing Then zelle.Interior.ColorIndex = 6
Next zelle
End Sub



Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets(1).Range("A1:G40").Interior.ColorIndex = xlNone
End Sub

Gruß
Bertram
AW: Zeilen färben
07.12.2006 14:56:29
helena
Hallo
na nicht ganz, sieh mal in meinem Beispiel da wird immer die aktive
Zeile abhängig von Zeile und nicht Spalte gefärbt.
wenn man aber Blatt drucken will muss wieder Clear sein die Zeile
denke dies geht so wie du vorschlägst, bei dir werden beim Färben
alle angeklickten Zellen gefärbt möchte nur die Zeile von Spalte A:G
benötige dies für grosse Dateien so kann ich lesbarkeit HORIZONTAL
stark verbessern
DANKE für Antwort
gruss helena
Anzeige
AW: Zeilen färben
07.12.2006 14:56:30
helena
Hallo
na nicht ganz, sieh mal in meinem Beispiel da wird immer die aktive
Zeile abhängig von Zeile und nicht Spalte gefärbt.
wenn man aber Blatt drucken will muss wieder Clear sein die Zeile
denke dies geht so wie du vorschlägst, bei dir werden beim Färben
alle angeklickten Zellen gefärbt möchte nur die Zeile von Spalte A:G
benötige dies für grosse Dateien so kann ich lesbarkeit HORIZONTAL
stark verbessern
DANKE für Antwort
gruss helena
AW: Zeilen färben
07.12.2006 15:26:28
Bertram
Hi,
ich versteh's zwar immer noch nicht genau, aber vielleicht so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows.Interior.ColorIndex = xlNone
Select Case Target.Row
Case 1 To 20
Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Interior.ColorIndex = 5
Case 21 To 40
Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).Interior.ColorIndex = 6
End Select
End Sub

Gruß
Bertram
Anzeige
AW: Zeilen färben
07.12.2006 15:46:02
helena
Hallo Bertram
perfekt genau dies wollte ich
Vielen Dank
gruss aus CH
helena
AW: Zeilen färben
07.12.2006 15:46:02
helena
Hallo Bertram
perfekt genau dies wollte ich
Vielen Dank
gruss aus CH
helena
Gerne oT
07.12.2006 15:48:13
Bertram

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige