Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Aktive Zelle einfärben und zurück stellen.

Aktive Zelle einfärben und zurück stellen.
09.03.2018 16:35:17
Eisi
Hallo zusammen,
jetzt brauche ich bitte noch mal Eure Hilfe.
Mit nachfolgendem Code markiere ich temporär die Zeile und kann in die aktive Zelle was reinschreiben.
Die aktive Zelle soll aber zwecks Übersicht auch noch gelb eingefärbt werden und wenn ich die Zelle wieder verlasse, soll die alte Farbe wieder eingestellt werden.
Mit den zusammen gewürfelten Codes kann ich die Zelle gelb einfärben, aber leider nur dauerhaft und das soll ja nicht so sein.
Herzlichen dank für das Feedback.
LG Eisi :-)
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim lastcell As Range
Dim farbe As Integer
If UserForm1_PVL.ToggleButton1.Caption = "Zeile ein" Then
Application.EnableEvents = False
Target.EntireRow.Select
Target.Activate
Application.EnableEvents = True
On Error Resume Next
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
Set lastcell = Target
End If
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktive Zelle einfärben und zurück stellen.
09.03.2018 16:52:41
Daniel
Hi
würde ich einfacher lösen:
1. Schreibe im Selection-Change-Event die Zeilen- und Spaltennummer der aktiven Zelle in zwei freie Zellen.
Range("A1").Value = Target.Row
Range("A2").value = Target.column
2. richte dann für alle Zellen eine Bedingte Formatierung ein, welche die entsprechenden Zellen umfärbt
dh um die ganze Zeile hervorzuheben nimmst du diese Formel als Regel:
=Zeile()=$A$1

um die aktive Zelle hervorzuheben nimmst du diese Formel als Regel:
=Und(Zeile()=$A$1;Spalte()=$A$2)
Fertig. Sobalsd die Bedingung nicht mehr zutrifft, ist die Farbe der Bedingten Formatierung weg und die ursprüngliche Farbe wieder da.
Gruß Daniel
Anzeige
AW: Aktive Zelle einfärben und zurück stellen.
09.03.2018 17:26:27
Eisi
Hallo zusammen,
herzlichen Dank für die Hilfe.
Bin ein wenig unter Zeitdruck.
Die eine Lösung erscheint mir als Anfänger sehr kompliziert, aber cool gelöst.
Die letzte Lösung macht mich auch nicht glücklich, weil ich da noch nicht durchsteige.
Muss ich mir später mal anschauen. Wenn ich meine Tabelle nicht endlich fertig bekomme, legt mich mein Chef wohl um.
Trotzdem Danke.
LG
Eisi :-)
Anzeige
AW: Aktive Zelle einfärben und zurück stellen.
09.03.2018 17:33:35
Daniel
Hi
naja, du scheibst irgenwohin, welche Zelle grade aktiv ist (Zeilennummer, Spaltennummer) und den Rest erledigst du die Bedingte Formatierung.
viel einfacher geht's wirklich nicht.
Gruß Daniel
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Aktive Zelle einfärben und zurückstellen


Schritt-für-Schritt-Anleitung

Um die aktive Zelle mit Farbe zu hinterlegen und diese wieder zurückzustellen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Anleitung:

  1. Öffne die Excel-Datei, in der du die aktive Zelle farbig hervorheben möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Doppelklicke auf das Arbeitsblatt, in dem du die Formatierung anwenden möchtest (z.B. "Tabelle1").

  4. Füge den folgenden Code in das Codefenster ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
       Dim lastcell As Range
       Dim farbe As Integer
    
       ' Temporäre Zeilenmarkierung
       Application.EnableEvents = False
       Target.EntireRow.Select
       Target.Activate
       Application.EnableEvents = True
    
       On Error Resume Next
       lastcell.Interior.ColorIndex = farbe
       farbe = Target.Interior.ColorIndex
       Target.Interior.ColorIndex = 6  ' Gelb
       Set lastcell = Target
    End Sub
  5. Schließe den VBA-Editor und teste die Funktion, indem du durch die Zellen klickst. Die aktive Zelle sollte nun gelb hervorgehoben werden.


Häufige Fehler und Lösungen

  • Problem: Die Farbe bleibt dauerhaft.

    • Lösung: Stelle sicher, dass du die lastcell.Interior.ColorIndex korrekt zurücksetzt, bevor die neue Farbe angewendet wird.
  • Problem: Der Code funktioniert nicht.

    • Lösung: Überprüfe, ob du das Makro aktiviert hast und ob die richtigen Berechtigungen in Excel eingestellt sind.

Alternative Methoden

Eine einfachere Möglichkeit, die aktive Zelle hervorzuheben, ist die Verwendung von bedingter Formatierung:

  1. Schreibe im SelectionChange-Event die Zeilen- und Spaltennummer der aktiven Zelle in zwei freie Zellen. Beispiel:

    Range("A1").Value = Target.Row
    Range("A2").Value = Target.Column
  2. Gehe zu "Bedingte Formatierung" in Excel und füge die folgende Regel hinzu, um die aktive Zelle hervorzuheben:

    =UND(ZEILE()=$A$1;SPALTE()=$A$2)
  3. Um die ganze Zeile hervorzuheben, benutze diese Regel:

    =ZEILE()=$A$1

Praktische Beispiele

Hier sind einige Szenarien, in denen du die aktive Zelle farbig darstellen kannst:

  • Wenn du eine Tabelle zur Dateneingabe hast, kannst du die aktive Zelle farbig hervorheben, um die aktuelle Eingabeposition zu zeigen.
  • In Dashboards kannst du die aktive Zelle für bessere Benutzerinteraktion hervorheben.

Tipps für Profis

  • Experimentiere mit verschiedenen ColorIndex-Werten, um unterschiedliche Farben für deine aktive Zelle zu verwenden.

  • Du kannst auch die Rahmenfarbe der aktiven Zelle ändern, indem du den folgenden Code hinzufügst:

    Target.Borders.Color = RGB(255, 0, 0)  ' Beispiel: Rot
  • Nutze die bedingte Formatierung, um eine dynamische und weniger fehleranfällige Lösung zu erstellen.


FAQ: Häufige Fragen

1. Wie ändere ich die Rahmenfarbe der aktiven Zelle in Excel?
Du kannst die Rahmenfarbe der aktiven Zelle ändern, indem du den folgenden Code verwendest:

Target.Borders.Color = RGB(255, 0, 0)  ' Beispiel: Rot

2. Wie kann ich die aktive Zelle dauerhaft einfärben?
Um die aktive Zelle dauerhaft einzufärben, musst du die Bedingte Formatierung verwenden, anstatt VBA, da VBA temporär ist.

3. Was ist die beste Methode, um die aktive Zelle hervorzuheben?
Die Verwendung von bedingter Formatierung ist in der Regel einfacher und weniger fehleranfällig, besonders für Anfänger.

Beliebteste Forumthreads (12 Monate)

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