Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
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
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung mit X

Bedingte Formatierung mit X
05.01.2023 06:18:01
oraculix
Hallo Alle!
In meiner Filmdatenbank möchte ich meine Favoriten Filme grün färben wenn ich auf eine Zeile klicke.
Wobei die Favoriten mit X in Spalte E gekennzeichnet sind.
Ich weis das es mit Bedingter Formatierung funktioniert aber ich denke da brauche ich eine Formel dazu.
Zb. Wenn E2:E5000 ein X hat dann Zeile A2:I5000 Grün färben.
Wer kann mir helfen?
https://www.herber.de/bbs/user/157097.xls
Danke
Gruß
Oraculix

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung mit X
05.01.2023 07:10:57
ralf_b
bedingte Formatierung reagiert nicht auf klick. Die färbt sofort alles Passende ein. = $E2="X"
Zellen Hintergrund Grün zu Färben
05.01.2023 07:25:45
oraculix
Hallo ralf_b Danke Funktioniert aber.
Gibt es die Möglichkeit mit VBA nur bei linken Mausklick den Zellen Hintergrund Grün zu Färben?
Gruß
Oraculix
AW: Bedingte Formatierung mit X
05.01.2023 09:32:30
Franziska
Hallo Oraculix,
bin nicht so firm in VBA, aber ich hatte auch so ein Problem und mir half damals das folgende Makro im Arbeitsblatt:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("E2")) Is Nothing Then
Target = IIf(Target = "x", "", "x")
If Target = "x" Then Range("A2:D2").Interior.Color = vbRed
If Target = "" Then Range("A2:D2").Interior.ColorIndex = xlNone
End If
End Sub
Die Funktion bedeutet:
Bei Doppelklick in E2 ein x in e2 eingetragen und die Zeile 2a-d mit roter hintergrundfarbe gefüllt; ein neuer doppelklick in E2 würde das "X" wieder löschen und auch den HIntergrund. Vielleicht hat noch jemand eine Idee, dass es sozusagen bei "aktueller Zelle" genauso funktioniert und nicht wie in meinem Bsp. oben.
Gruß Franzl
Anzeige
AW: Bedingte Formatierung mit X
05.01.2023 10:06:37
oraculix
Vielen Dank Franzl!
Aber ich möchte das X nicht löschen!
Es sollen nur die Zeile Grün markiert werden von A-I wenn in Spalte E ein X ist.
Gruß
Oraculix
AW: Bedingte Formatierung mit X
05.01.2023 11:03:44
hary
Moin
Warum auch immer keine bed. Formatierung.
Hier wenn Zelle(n) ausgewaehlt werden. Wie gewuenscht.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
If Not Intersect(Target, Columns(5)) Is Nothing Then
For Each Zelle In Selection '--falls doch mal mehr als eine Zelle ausgewaehlt
Cells(Zelle.Row, 1).Resize(1, 9).Interior.Color = IIf(Zelle = "x", vbGreen, xlNone)
Next
End If
End Sub
Eigentlich waere das Change_Ereigniss besser. Nacch Eintrag x wird der Zeilenbereich ge/entfaerbt.
gruss hary
Anzeige
AW: Bedingte Formatierung mit X
05.01.2023 11:20:22
Alwin
eine Variante mit Rechtsklick:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Cells(Target.Cells.Row, 5) = "x" Then Rows(Target.Cells.Row).Interior.Color = vbGreen
End Sub
Sollte es unbedingt mit Linksklick sein, dann nimm Doppelklick.
Gruß Uwe
Danke Euch Uwe hat es gelöst!!!
05.01.2023 11:59:24
oraculix
Danke Euch allen !
Danke Uwe hat es gelöst genau so wollte ich es!(bis auf Linksklick wäre mir lieber aber man kann nicht alles haben). Doppelklick geht nicht ist belegt mit Userform öffnen.
Gruß
Oraculix

300 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Bedingte Formatierung mit Bereich
Burghard

Hallo,
ich habe einen Fotokalender gebastelt (für jeden Monat ein Blatt).
Das Jahr läßt sich im 1. Tabellenblatt in Zelle A1 einstellen. Alle anderen Tabellenblätter ändern sich entsprechend.
In den Monaten habe ich verschiedene Bereiche mit einer bedingten Formatierung versehen, um...
05.10.2008 16:09:12
Thread-ID: 1014259
6 Beiträge
SVERWEIS funktioniert nicht
sascha76er

Hallo,
hoffentlich kann mir jemand hier helfen, bei mir funktionieren die SVERWEISE für die Spalten
AI, AQ, AR, AS
nicht.
Leider ist meine Liste größer wie 300 kb, deshalb musste ich die Liste bei einem 1Klickhoster bereitstellen.
Liste: http://www.mediafire.com/?oxyk0vmb21x...
08.10.2008 11:23:24
Thread-ID: 1014967
7 Beiträge
Anzeige
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
Bedingten Formatierung mit MIN; gr. als Mittelwert
Eva

Hallo,
ich habe ein Problem mit einer Bedingten Formatierung.
Ich möchte mir in mehreren Zeilen die MIN Were grün anzeigen lassen und die Werte, welche größer oder gleich dem Durchschnitt sind rot. Leider haut es so gut wie nie in den Zeilen hin. Oft markiert er nur eine Zelle, die ande...
18.12.2008 16:01:00
Thread-ID: 1033913
7 Beiträge
Bedingte Formatierung mit Formeln beschränkt?
Vera

Hallo. Stoße gerade auf ein seltsames Phänomen:
wenn ich eine bedingte Formatierung auf ein Formelergebnis lege, klappt das gut. Das Formelergebnis habe ich dann runterkopiert - auch dann ist die bedingte Formatierung noch ok. Aber ab einer gewissen Anzahl Zeilen klappts dann nicht mehr.
16.01.2009 10:39:21
Thread-ID: 1040464
9 Beiträge
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
bedingte Formatierung mit Datum
Andy

Guten Tag,
ich habe eine Frage.
Ich würde gerne die folgende Bedienung in einer bedingten Formatierung umsetzen.
wenn ein Datum in einer Zelle (A1) nach dem Datum in einer anderen Zelle (A2) ist und eine dritte Zelle (A3) leer ist, dann mache die Zelle (A1) rot.
geht das?
vi...
21.01.2009 16:33:00
Thread-ID: 1042306
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
7
1
5
6
7
4
6
8
5
2
7
3
1
3
4
2
2
1
2
1
2
2
12
5
7