Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
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
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