Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA farbige Zeile Problem

Forumthread: VBA farbige Zeile Problem

VBA farbige Zeile Problem
10.12.2015 09:05:01
Erik
Hallo zusammen !
Habe folgenden Code in meiner Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 14 And .Value = "a" Then
Cells(.Row, 1).Resize(1, 12).Interior.ColorIndex = 3
Else
Rows(.Row).Interior.ColorIndex = xlNone
End If
End With
End Sub
Dieser funktioniert so wie ich will bis auf das Problem:
sobald ich irgendetwas in der Spalte 1-13 eingebe wird die Zeile wieder weiß.
Sie sollte aber rot bleiben.
Gibts da eine Möglichkeit ?
Gruß
Erik

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA farbige Zeile Problem
10.12.2015 09:16:24
EtoPHG
Hallo Erik,
Eine Möglichkeit wäre, den Code nach deinen Anforderungen zu schreiben. Die kenne ich nicht, leite sie aber von deinem Code ab... 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column  14 Then Exit Sub
With Target
...
Gruess Hansueli

Anzeige
AW: VBA farbige Zeile Problem
10.12.2015 09:27:40
hary
Moin Erik
oder so.
Matthias sein Tip mit eingebaut. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub '--beendet bei Auswahl mehrerer Zellen
If Not Intersect(Target, Columns(14)) Is Nothing Then
Cells(Target.Row, 1).Resize(1, 12).Interior.ColorIndex = IIf(Target.Value = "a", 3,  _
xlNone)
End If
End Sub

gruss hary

Anzeige
AW: VBA farbige Zeile Problem
10.12.2015 10:27:21
Erik
Danke funzt !!
Gruß
Erik
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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