Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktive Zelle markieren

Forumthread: Aktive Zelle markieren

Aktive Zelle markieren
21.02.2018 10:23:14
Nele
Guten Morgen,
ich habe versucht die aktive Zelle in einer Arbeitsmappe farblich zu hinterlegen. Leider funktioniert der Code bei mir nicht ?
Dim lastcell As Range
Dim farbe As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 4
Set lastcell = Target
End Sub
Gibt es einen besseren Weg ?
Grüße Nele
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktive Zelle markieren
21.02.2018 10:27:13
Bernd
Hi,
meinst Du so:
Option Explicit
Dim AlteFarbe As Integer, MarkierteZelle As String
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If MarkierteZelle = "" Then
MarkierteZelle = Target.Address
AlteFarbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 4
Else
If Range(MarkierteZelle).Interior.ColorIndex = 4 Then
Range(MarkierteZelle).Interior.ColorIndex = AlteFarbe
End If
AlteFarbe = Target.Interior.ColorIndex
MarkierteZelle = Target.Address
Target.Interior.ColorIndex = 4
End If
End Sub
MfG Bernd
Anzeige
AW: Aktive Zelle markieren
21.02.2018 10:48:56
Nele
Hallo Bernd,
leider ändert sich absolut nichts..
zeigt mir an : Target.Interior.ColorIndex = 4 = Falsch
Grüße
Nele
AW: Aktive Zelle markieren
27.02.2018 09:34:21
Nele
Hallo Bernd,
ich war die ganze Woche nicht mehr am Rechner zwecks Urlaub. Werde es heute noch einmal ausprobieren.
Grüße
Nele
Anzeige
Fktiert nicht, ist keine Fehlerbeschreibung! (owT)
21.02.2018 11:44:51
EtoPHG

Beliebteste Forumthreads (12 Monate)

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