Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
272to276
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
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Navigationshilfe + fehler

Navigationshilfe + fehler
29.06.2003 17:31:16
Steffen
Hallo und guten Tag,

ich habe folgendes Makro:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'On Error GoTo raus:
cellm.Interior.ColorIndex = 15
'raus:

Range("B" & Target.Row).Interior.ColorIndex = 3

'Dim cellm
cellm = Range("B" & Target.Row)
End Sub



Ich möchte wenn ich in einer Zelle bin, die Zelle in Spalte B markieren, beim verlassen sollte die Zelle dann wieder die andere Farbe bekommen.

Leider funktioniert das obige Makro nicht, bitte helft mir.

Danke schonmal

Steffen

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

Betreff
Datum
Anwender
Anzeige
AW: Navigationshilfe + fehler
29.06.2003 18:39:22
ChrisL
Hi Steffen

Wie wärs hiermit...

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns(2).Interior.ColorIndex = xlNone
Cells(Target.Row, 2).Interior.ColorIndex = 3
End Sub

Gruss
Chris


AW: Navigationshilfe + fehler
29.06.2003 18:37:40
GraFri
Hallo

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static OldCellIndexcolor As Integer
Static OldCell As Range


If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = OldCellIndexcolor
End If

OldCellIndexcolor = Range("B" & Target.Row).Interior.ColorIndex
Range("B" & Target.Row).Interior.ColorIndex = 15

Set OldCell = Range("B" & Target.Row)
End Sub



mfg, GraFri


Anzeige
Danke,
29.06.2003 20:20:14
Steffen
Euch werds gleich mal probieren.

Steffen


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige