Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1688to1692
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Füllfarbe bei Verlassen der Zelle zurücksetzen

Füllfarbe bei Verlassen der Zelle zurücksetzen
08.05.2019 09:31:07
Axel
Hallo zusammen,
ich möchte bei Klick in eine Zelle einer fest definierten Range, dass sich die Füllfarbe ändert und beim Verlassen der Zelle sich die vorherige Füllarbe wieder herstellt.
Dazu habe ich auch etwas gefunden, dass ich so aber nicht umsetzen kann.
Mit dem unten aufgeführten Makro ändert sich zwar die Füllfarbe beim Klick in die Zelle, aber beim Verlassen der Zelle wird nicht wieder die alte Färbung hergestell.
Ich erbitte eure Unterstützung und bedanke mich vorab.
Gruß
Axel 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Range bei dem eine Änderung etwas bewirken soll
Set changeRange = Range("B19:B30")
If Not Application.Intersect(changeRange, Target) Is Nothing Then
If Target.Interior.Color = RGB(242, 242, 242) Then
Target.Interior.Color = 65535
Else
Target.Interior.Color = RGB(242, 242, 242)
End If
End If
End Sub

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Füllfarbe bei Verlassen der Zelle zurücksetzen
08.05.2019 09:49:04
Daniel
Hi
mach das so:
diesen Code ins Modul des tabellenblatts.
er hinterlegt die aktive Zelle in einem Namen: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Names.Add "aktiveZelle", ActiveCell
Application.ScreenUpdating = True
End Sub
richte dann für die betroffenen Zellen eine bedingte Formatierung mit dieser Formel als regel ein.
sie prüft ob die jeweilige Zelle der aktiven Zelle entspricht.
Über die Bedingte Formatierung bleibt die Originalformatierung erhalten und muss nicht wieder hergestellt werden, das macht Excel automatisch: 
=ZELLE("adresse";A1)=ZELLE("adresse";aktiveZelle)

Gruß Daniel
Anzeige
AW: Füllfarbe bei Verlassen der Zelle zurücksetzen
08.05.2019 10:04:32
Axel
Hallo Daniel,
danke für Deine Antwort.
Ich habe folgendes gemacht:
- mein Makro rausgeschmissen
- Dein Makro ins Modul des Tabellenblatts eingefügt
- bedingte Formatierung für die betroffenen Zellen mit Deiner Formel eingerichtet.
Ergebnis:
Wenn ich die betroffenen Zellen anklicke, werden sie nicht eingefärbt (was mein Makro vorher gemacht hatte) und auch sonst passiert nichts mit den formatierten Zellen.
Ich kann auch mein Makro nicht zusätzlich drin lassen, weil es dann einen Konflikt gibt.
Mein Makro hat ja schon die Zellen, die ich in der Range definiert hatte, korrekt eingefärbt. Wenn man dann aus der eingefärbten Zelle rausgeht, bleibt die Zelle eingefärbt und die nächste angeklickte Zelle aus der definierten Range wird auch eingefärbt. Wenn ich dann auf die zuvor eingefärbte Zelle klicke, wird wieder die alte Füllfarbe hergestellt. Ich will nur diesen zusätzlichen Klick nicht machen müssen, sondern, dass die Zelle schon beim Verlassen wieder zur alten Farbe wechselt.
Gruß
Axel
Anzeige
AW: Füllfarbe bei Verlassen der Zelle zurücksetzen
08.05.2019 10:39:06
Daniel
Hi
hast du bedacht, dass du Zelladresse in der Regel "A1" noch ggf an deinen tatsächlichen Zellbereich anpassen musst?
dh wenn die Regel für B19:B30 gelten soll und du beim Einrichten der Bedingten Formatierung diese Zellen markiert hast, musst du das "A1" natürlich durch "B19" ersetzen.
Gruß Daniel
AW: Füllfarbe bei Verlassen der Zelle zurücksetzen
08.05.2019 10:15:41
Torsten
Hallo Axel,
versuch es mal so:
in ein Modul: 
Option Explicit
Public OldColorIndex As Variant
Public OldRange As String
in die Tabelle: 
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'   Beim 1. Aufruf ist OldRange noch undefiniert
If OldRange = "" Then
OldRange = Target.Address
OldColorIndex = Target.Interior.ColorIndex
'       Setze Hintergrundfarbe der aktiven Selection
Target.Interior.Color = RGB(242, 242, 242)
Else
'       Setze alten Range auf alte Farbe
If Range(OldRange).Interior.Color = RGB(242, 242, 242) Then
Range(OldRange).Interior.ColorIndex = OldColorIndex
End If
OldColorIndex = Target.Interior.ColorIndex
'       Merke mir aktuellen Adresse für nächsten Aufruf
OldRange = Target.Address
'       Setze Hintergrundfarbe der aktiven Selection
Target.Interior.Color = RGB(242, 242, 242)
End If
End Sub
Gruss Torsten
Anzeige
AW: Füllfarbe bei Verlassen der Zelle zurücksetzen
08.05.2019 10:23:01
Torsten
sorry, hatte noch vergessen, deine Range einzugrenzen: 
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Set changeRange = Range("B19:B30")
If Not Application.Intersect(changeRange, Target) Is Nothing Then
'   Beim 1. Aufruf ist OldRange noch undefiniert
If OldRange = "" Then
OldRange = Target.Address
OldColorIndex = Target.Interior.ColorIndex
'       Setze Hintergrundfarbe der aktiven Selection
Target.Interior.Color = RGB(242, 242, 242)
Else
'       Setze alten Range auf alte Farbe
If Range(OldRange).Interior.Color = RGB(242, 242, 242) Then
Range(OldRange).Interior.ColorIndex = OldColorIndex
End If
OldColorIndex = Target.Interior.ColorIndex
'       Merke mir aktuellen Adresse für nächsten Aufruf
OldRange = Target.Address
'       Setze Hintergrundfarbe der aktiven Selection
Target.Interior.Color = RGB(242, 242, 242)
End If
Else
Exit Sub
End If
End Sub

Anzeige
AW: Füllfarbe bei Verlassen der Zelle zurücksetzen
08.05.2019 10:24:26
Axel
Hallo Thorsten,
vielen Dank.
Die Zelle hat bereits eine Graufärbung (.Interior.Color = RGB(242, 242, 242), die nach Verlassen der Zelle wieder hergestellt werden soll.
An welcher Stelle wird bei Deinem Code denn die Zelle gelb (.INTERIOR.COLOR= 65535) beim Klick in die Zelle eingefärbt?
Ich kann doch mit meinem Code gar nicht so weit weg vom Ziel sein, nur dieses "beim Verlassen der Zelle" muss noch eingefügt werden. Mit "Else" funktioniert das nicht.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Range bei dem eine Änderung etwas bewirken soll
Set changeRange = Range("B19:B30")
If Not Application.Intersect(changeRange, Target) Is Nothing Then
If Target.Interior.Color = RGB(242, 242, 242) Then
Target.Interior.Color = 65535
Else
Target.Interior.Color = RGB(242, 242, 242)
End If
End If
End Sub
Gruß
Axel
Anzeige
AW: Füllfarbe bei Verlassen der Zelle zurücksetzen
08.05.2019 10:35:05
Torsten
Sorry, das war nicht ganz klar, dass die Zellen urspruenglich grau sind. Das gelb habe ich glatt uebersehen. Also hier ein neuer Versuch:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Set changeRange = Range("B19:B30")
changeRange.Interior.Color = RGB(242, 242, 242)
If Not Application.Intersect(changeRange, Target) Is Nothing Then
'   Beim 1. Aufruf ist OldRange noch undefiniert
If OldRange = "" Then
OldRange = Target.Address
OldColor = Target.Interior.Color
'       Setze Hintergrundfarbe der aktiven Selection
Target.Interior.Color = 65535
Else
'       Setze alten Range auf alte Farbe
If Range(OldRange).Interior.Color = 65535 Then
Range(OldRange).Interior.Color = OldColor
End If
OldColor = Target.Interior.Color
'       Merke mir aktuellen Adresse für nächsten Aufruf
OldRange = Target.Address
'       Setze Hintergrundfarbe der aktiven Selection
Target.Interior.Color = 65535
End If
Else
Exit Sub
End If
End Sub
Gruss Torsten
Anzeige
gelöst
08.05.2019 10:41:31
Axel
Hi Thorsten,
klasse! So funktioniert es einwandfrei!
Vielen Dank, wie immer tolles Forum, schnelle kompetente Lösung.
Weiter so!
Axel
gerne...
08.05.2019 11:24:20
Torsten
und danke fuer die Rueckmeldung

306 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
über Farbe der Zelle Zellen dynamisch sperren
Sucher

Hallo liebes Forum,
kann mir hier im Forum eine/einer weiterhelfen.
Das Makro soll wenn Colerindex = 2 Zellen dynamisch entsperren alle anderen Zell- Farben sollen gesperrt werden!
Ist Situation:
Ich habe mit Excel einen Rechner gebastelt der von anderen Anwendern benutzt werde...
11.12.2008 09:18:42
Thread-ID: 1031921
13 Beiträge
Hintergrundfarbe auf Grund Wert in anderer Zelle
Roger

Guten Morgen,
ich suche eine Lösung für folgendes Problem: In der Spalte F von Zeile 4 bis 300 habe ich folgende werte stehen: entweder nichts, Ja oder Nein. Nun will ich zwecks übersicht in Spalte A in den Zellen 4 bis 300 Farben als Hintergurnd haben. Wenn in Zelle F4 nichts steht, dann i...
18.12.2008 08:21:58
Thread-ID: 1033737
10 Beiträge
Anzeige
MIN-Wert von bestimmten Zellen auslesen
bestimmten

Hallo zusammen,
ich habe folgendes Problem, welches sich erstmal gar nicht schwierig anhört, nur bei der Umsetzung hapert es noch ein bißchen.
Ich habe in meiner Excel Tabelle bspw... folgendes stehen
Zeile 12: I12=test, J12=4
Zeile 14: C14=test, D14=3, H14=test, I14=6
Zeile...
14.01.2009 11:17:03
Thread-ID: 1039535
10 Beiträge
Diagramm Linienfarbe aus Zellfarbe "auslesen"
StefanK

Hallo Herber-Excel-Freunde,
ich habe ein Diagramm (Punkt XY - Untertyp: Punkte mit Linien ohne Datenpunkte) rstellt.
Dabei formatiert Excel erst einmal die Farben automatisch.
Bislang markiere ich dann die einzelnen Linien im Diagramm und formatiere die Farben um.
Jetzt meine A...
16.02.2009 19:50:00
Thread-ID: 1051268
11 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
ich hab' immer noch mein kleines Problem, vielleicht weiß hier ja einer weiter?
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
18.03.2009 13:41:01
Thread-ID: 1061396
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
10
12
9
7
9
10
5
3
5
3
2
6
1
3
3
17
2
3
2
3
7
3
2
1