Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
944to948
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
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Markierung

Markierung
28.01.2008 09:58:36
Waldemar
Hallo Zusammen,
habe hier einen Fehler drin und komm nicht weiter.
Die Zellen in den Spalten A-C sollen nur markiert werden wenn die Zelle in der Spale D ausgewählt ist.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("A:C").Interior.ColorIndex = xlNone
If Target.Column = 4 Then Range(Cells(Target.Row, 1), Cells(Target.Row, 2), Cells(Target.Row, _
_
3)).Interior.ColorIndex = 6
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markierung
28.01.2008 10:08:00
Beverly
Hi Waldemar,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("A:C").Interior.ColorIndex = xlNone
If Target.Column = 4 Then Range(Target.Offset(0, -3), Target.Offset(0, -1)).Interior. _
ColorIndex = 6
End Sub




AW: Markierung
28.01.2008 10:09:06
Ingo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("A:C").Interior.ColorIndex = xlNone
If Target.Column = 4 Then Range(Cells(Target.Row, 1), Cells(Target.Row, 3)).Interior. _
ColorIndex = 6
End Sub


mfG
Ingo Christiansen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige