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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige