Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
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
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UsedRange

UsedRange
09.01.2007 09:58:06
steli
Hallo zusammen,
ich möchte dass Excel automatisch eine komplette
Zeile (bzw. den entsprechenden Datensatz) Rot markiert, sobald ich
in dieser Zeile in der Spalte C den Wert von A (aktiv) auf I (inaktiv)
setze.
Wenn ich den Wert wiederum auf A setze soll die Zeile nicht mehr Rot
markiert sein.
Ich glaube dass man dies mit dem UsedRange Befehl hinbekommen müsste,
weiß aber leider nicht genau wie das geht.
Kann mir jemand helfen?
Vielen Dank schon mal im Voraus!!
LG
Steli

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

Betreff
Datum
Anwender
Anzeige
AW: UsedRange
09.01.2007 10:12:43
Erich
Hallo Steli,
der Code gehört in das Klassenmodul des Tabellenblatts: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Const AnzSp = 10  ' anpassen
If Intersect(Target, Columns(3)) Is Nothing Then Exit Sub
For Each rng In Intersect(Target, Columns(3))
If rng = "I" Then
Range(Cells(rng.Row, 1), Cells(rng.Row, AnzSp)).Interior.ColorIndex = 3
ElseIf rng = "A" Then
Range(Cells(rng.Row, 1), Cells(rng.Row, AnzSp)).Interior.ColorIndex = xlColorIndexNone
End If
Next rng
End Sub
Da die Spalten pro Zeile unterschiedlich belegt sein können, wird hier die Spaltenzahl (z. B. 10) fest vorgegeben.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: UsedRange
09.01.2007 10:20:17
steli
Vielen Dank für die Antworten
@ Erich, funktioniert tadellos!
Danke nochmals!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige