Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: nicht die ganze Zeile färben

nicht die ganze Zeile färben
09.12.2015 09:41:52
Erik
Hallo zusammen habe folgendes Makro
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 14 And .Value = "a" Then
Rows(.Row).Interior.ColorIndex = 3
ElseIf .Column = 13 And .Value = "a" Then
Rows(.Row).Interior.ColorIndex = 6
Else
Rows(.Row).Interior.ColorIndex = xlNone
End If
End With
Wie muß es heißen damit nicht die komplette Zeile gefärbt wird sonder nun Spalte A-N ?
Gruß Erik

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: nicht die ganze Zeile färben
09.12.2015 09:48:47
hary
Moin Erik
Cells(.Row, 1).Resize(1, 14).Interior.ColorIndex = 3

gruss hary

mir Range
09.12.2015 09:49:55
Matthias
Hallo
Bsp:
Range(Cells(.Row, "A"), Cells(.Row, "N")).Interior.ColorIndex = 3
oder
Range(Cells(.Row, 1), Cells(.Row, 14)).Interior.ColorIndex = 3
Gruß Matthias

Anzeige
AW: nicht die ganze Zeile färben
09.12.2015 09:54:57
Erik
Prima DANKE !!
Gruß
Erik

wichtig: erst auf Target.Count=1 prüfen
09.12.2015 10:37:52
Matthias
Hallo
Du solltest zu Beginn noch abfragen
If Target.Count = 1 Then ...
'hier Dein Code
End If
sonst bekommst Du den Laufzeitfehler'13
wenn mehr als eine Zelle markiert ist.
Z.B beim Entfernen in einem mehrzelligen Range
Gruß Matthias
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige