Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1324to1328
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
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

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

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

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

Anzeige
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

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

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
Anzeige

33 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige