Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1460to1464
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
Inhaltsverzeichnis

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

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

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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige