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

Forumthread: aktive Zelle in Farbe

aktive Zelle in Farbe
02.08.2013 09:28:28
Andreas
Hallo an alle hier im Forum,
ich habe hier aus dem Forum diesen Code bekommen, der die aktive Zelle immer in einer Farbe darstellt. (zur besseren Erkennung).
Dieses funktioniert auch sehr gut.
Doch wenn ich eine Zelle oder Zeile dauerhaft farblich ändern will, geht mir dieses Format wieder verloren, sobald ich eine andere Zelkle anwähle.
Könnte mir jemand helfen, diesen Fehler zu beheben.
Wäre echt dankbar.
Andreas
hier der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.Interior.ColorIndex = xlNone
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
Set lastcell = Target
End Sub

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktive Zelle in Farbe
02.08.2013 09:41:22
Rudi
Hallo,
Option Explicit
Dim farbe As Long, LastCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
LastCell.Interior.Color = farbe
farbe = IIf(Target.Interior.ColorIndex = xlNone, xlNone, Target.Interior.Color)
Target.Interior.Color = RGB(0, 255, 0)
Set LastCell = Target
End Sub

Gruß
Rudi

Anzeige
AW: aktive Zelle in Farbe
02.08.2013 09:52:49
Andreas
hallo Rudi
danke für die Antwort.
Aber entweder habe ich falsch beschrieben oder du hast falsch verstanden.
Ziel ist
die aktive Zelle immer in einer farbe darstellen, damit ich gleich sehe, wo ich mioch befinde.
Wenn ich eine andere Zelle anwähle, soll diese dann farblich gekennzeichnet sein und die vorherige Zelle soll die Ausgangsfarbe haben.
Ich muss aber Zellen und auch Zeilen mit einer Farbe hinterlegen und diese muss dann auch drin bleiben
bis ich sie unter Formatieren wieder lösche oder ändere.
Bei deinem Code bleibt die Farbe in der angewählten Zelle ´
erhalten.
Andreas

Anzeige
AW: aktive Zelle in Farbe
02.08.2013 09:58:47
Andreas
Hallo Rudi
habe gerade von Uwe eine Lösung bekommen, welche gut funktioniert.
Wollte dir nur Bescheit sagen, das du keine Arbeit mehr investieren musst.
Trotzdem vielen Dank dafür und ein schönes Wochenende.
Andreas

AW: aktive Zelle in Farbe
02.08.2013 09:52:06
UweD
Hallo
versuch es mal so
die aktuelle Zelle erhält eine bedingte Formatierung.
Die Zellfarbe bleibt erhalten...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fehler
Cells.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="="
Selection.FormatConditions(1).Interior.Color = 255
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Gruß UweD

Anzeige
AW: aktive Zelle in Farbe
02.08.2013 09:56:39
Andreas
Hallo Uwe
danke der Code ist so, wie ich Ihn benötige.
Danke und schönes Wochenende.
Andreas

AW: aktive Zelle in Farbe
02.08.2013 10:08:10
Andreas
Hi Uwe
ich bin es doch nocheinmal.
mit dem Wert "255" kann ich ja die Farbe einstellen.
Ich habe aber nur Farbtabellen bis 56 gefunden.
Gibt es da noch andere, damit ich weiss, welche Farbe ich machen kann...
Über eine Antwort würde ich mich natürlich nochmals freuen.
Andreas

Anzeige
AW: aktive Zelle in Farbe
02.08.2013 10:46:42
UweD
Hallo nochmal
- Starte den Recorder,
- Änder irgendeine Zelle auf die Farbe, die du wünschst und
- beende den Recorder
- lies die Farbnummer dann aus dem aufgezeichneten Code ab.
- Trage die Nummer dann in das Makro anstelle der 255 ein
Gruß UweD

AW: aktive Zelle in Farbe
02.08.2013 10:56:45
Andreas
Hi Uwe
....ich weiss leider nicht, was du mit
Starte den Recorder
meinst.
Hab ich wohl noch nie gemacht.
Kannst mir schreiben wie das funktioniert
Andreas

Anzeige
AW: aktive Zelle in Farbe
02.08.2013 11:00:44
Doris
Hallo Andreas,
hier noch ein Paar Farben (habe ich auch nur über Makro aufzeichnen rausgekriegt)
 Farbe       Nummer
gruen	         3407718
gelb	         65535
orange	         39423
rot	         255
gruen_hell	 13434828
gelb_hell	     13434879
blau_hell	     16777164
rosa_hell	     13421823
lila_hell	     16764159
Gruß Doris

Anzeige
AW: aktive Zelle in Farbe
02.08.2013 11:02:41
Andreas
Hallo Doris
danke für deine Hilfe.
Das bringt mich schion weiter.
Schönes Wochenende.
Andreas
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Aktive Zelle in Excel farbig darstellen


Schritt-für-Schritt-Anleitung

Um die aktive Zelle in Excel farbig hervorzuheben, kannst Du den folgenden VBA-Code verwenden. Dieser Code sorgt dafür, dass die aktive Zelle immer in einer bestimmten Farbe angezeigt wird, während die vorherige Zelle ihre ursprüngliche Farbe behält.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Wähle das Arbeitsblatt aus, auf dem Du die aktive Zelle farbig darstellen möchtest.
  3. Füge den folgenden Code in das Modul ein:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Cells.Interior.ColorIndex = xlNone
    Target.Interior.ColorIndex = 6 ' Hier kannst Du die Farbe anpassen
End Sub
  1. Schließe den VBA-Editor und teste den Code, indem Du verschiedene Zellen auswählst.

Häufige Fehler und Lösungen

  • Problem: Die Farbe der aktiven Zelle bleibt nicht bestehen.

    • Lösung: Stelle sicher, dass Du den Code korrekt eingefügt hast. Der Code muss sich im richtigen Arbeitsblatt-Modul befinden.
  • Problem: Ich kann die Rahmenfarbe der aktiven Zelle nicht ändern.

    • Lösung: Um die Rahmenfarbe zu ändern, kannst Du den folgenden Code verwenden:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Cells.Borders.ColorIndex = xlNone
    Target.Borders.ColorIndex = 3 ' Ändere die Zahl für die gewünschte Farbe
End Sub

Alternative Methoden

Eine alternative Methode zur farblichen Hervorhebung der aktiven Zelle ist die Verwendung von Bedingter Formatierung:

  1. Wähle die gesamte Tabelle oder den Bereich aus, den Du formatieren möchtest.
  2. Gehe auf Start > Bedingte Formatierung > Neue Regel.
  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.
  4. Gib die folgende Formel ein:
=ZELLE("Adresse")=ADRESSE(ROW(),COLUMN())
  1. Wähle die gewünschte Formatierung (z.B. Hintergrundfarbe).
  2. Klicke auf OK, um die Regel anzuwenden.

Praktische Beispiele

Hier sind einige Beispiele, wie Du die aktive Zelle farbig darstellen kannst:

  • Aktive Zelle mit Farbe hinterlegen: Verwende den ersten VBA-Code, um die aktive Zelle grün darzustellen, wenn Du Target.Interior.ColorIndex = 4 verwendest.
  • Aktive Zeile hervorheben: Wenn Du die gesamte aktive Zeile farblich hervorheben möchtest, passe den Code an:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Rows.Interior.ColorIndex = xlNone
    Target.EntireRow.Interior.ColorIndex = 6
End Sub

Tipps für Profis

  • Nutze den Makro-Recorder, um die Farbnummern für benutzerdefinierte Farben zu finden. Starte den Recorder, ändere die Farbe einer Zelle und stoppe den Recorder. Der aufgezeichnete Code zeigt Dir die verwendete Farbnummer.
  • Experimentiere mit RGB-Farben, um präzisere Farbtöne zu erhalten, z.B. Target.Interior.Color = RGB(255, 0, 0) für Rot.

FAQ: Häufige Fragen

1. Wie ändere ich die Rahmenfarbe der aktiven Zelle in Excel?
Verwende den spezifischen VBA-Code, um die Rahmenfarbe zu ändern, wie im Abschnitt "Häufige Fehler und Lösungen" beschrieben.

2. Kann ich die aktive Zelle farbig darstellen, ohne VBA zu verwenden?
Ja, Du kannst die bedingte Formatierung verwenden, um die aktive Zelle hervorzuheben, wie im Abschnitt "Alternative Methoden" erläutert.

3. Welche Farben kann ich in Excel verwenden?
Du kannst die Standardfarben oder RGB-Werte verwenden. Um die genauen Farbnummern zu finden, nutze den Makro-Recorder.

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