Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1924to1928
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
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA | Zelle Farbig wenn

VBA | Zelle Farbig wenn
29.03.2023 11:03:40
Spezi

Hallo Zusammen,

Ich habe über bedingte Formatierung eine Formel, wenn für 2 Zeilen,3+ Zeilen der Datum und in der Spalte worauf sich die B.Formatierung befindet ein Text eingetragen wird sich der Text bei 2 identischen Texten beide Zellen GELB und ab3+ alle Zellen Rot werden.
(Bsp. Datum eingetragen auf A12 und die Zelle R12 hat den Text "Hallo" A13 Datum und die Zelle R13 "Hallo", bei 2 wären jetzt die Zelle R12 und R13 Gelb hervorgehoben. Bei 3 und weiter wären alle Rot.

Die Formeln: (wird angewendet auf =$R$12:$R$1000)
=ZÄHLENWENNS($R:$R;$R12;$B:$B;VERKETTEN(">=";HEUTE()-30))=2 (GELB)
=ZÄHLENWENNS($R:$R;$R12;$B:$B;VERKETTEN(">=";HEUTE()-30))>=3 (ROT)

Meine Frage:
Aufgrund der B.Formatierung laggt meine Datei. Kann man diese Bedingung über VBA steuern?
Kann mir da einer evtl. behilflich sein?

LG, Spezi

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

Betreff
Datum
Anwender
Anzeige
AW: VBA | Zelle Farbig wenn
29.03.2023 12:05:52
MCO
Hey, Spezi.
Versuch das mal...

ungetestet...

Sub färben_Bedingung()
    For Each cl In Range("R12:R1000") 'Die Formeln: (wird angewendet auf =$R$12:$R$1000)
        '=ZÄHLENWENNS($R:$R;$R12;$B:$B;VERKETTEN(">=";HEUTE()-30))=2 (GELB)
        If CountIfs(Range("R:R"), cl, Range("B:B"), CONCATENATE(">=", Date - 30)) = 2 Then
           cl.Interior.ColorIndex = vbYellow
        ElseIf CountIfs(Range("R:R"), cl, Range("B:B"), CONCATENATE(">=", Date - 30)) = 3 Then
        '=ZÄHLENWENNS($R:$R;$R12;$B:$B;VERKETTEN(">=";HEUTE()-30))>=3 (ROT)
            cl.Interior.ColorIndex = vbYellow
        Else
            'nix?
        End If
    Next cl
End Sub
Gruß, MCO


Anzeige
AW: VBA | Zelle Farbig wenn
29.03.2023 12:28:39
Spezi
Hallo MCO,

hat leider so nicht hingehauen =(
trotzdem Danke.

LG, Spezi


Testdatensätze?
29.03.2023 12:52:34
MCO
Schieb doch mal eine Datei mit ein paar Testdatensätzen hoch....


AW: VBA | Zelle Farbig wenn
29.03.2023 14:35:37
onur
Deiner recht wirren Beschreibung nach (es gibt eine neue Erfindung - nämlich Satzzeichen wie Komma usw) geht es doch nur darum zu testen, wie oft der Text in R jeweils vorkommt - oder ? Aber was hat das mit dem Datum in A zu tun ?


Anzeige
AW: VBA | Zelle Farbig wenn
29.03.2023 14:51:52
Spezi
Hallo Onur,

Korrekt, sofern der Text mehrmals vorkommt, soll es farbig hervorgehoben werden.
Auf die Frage zurück, was es mit dem Datum zu tun hat.
Wenn es innerhalb der letzten 30 Tage mehrmals vorkommt, dass der selbe Text in der Zelle steht, so soll es dann farbig angezeigt werden.

LG, Spezi


AW: VBA | Zelle Farbig wenn
29.03.2023 15:25:31
onur
DEINE Formel vergleicht, da du immer die komplette Spalte nimmst, bei jeder Änderung/Eingabe 1 MILLION Zeilen mit R2 und 1 MILLION Zeilen mit dem Datum, und das Ganze mal 990 - ca 2 Milliarden Berechnungen - was erwartest du denn ?
Nimm DAS:
=ZÄHLENWENNS($R$2:$R$990;$R2;$A$2:$A$990;">=" & HEUTE()-30)=2
bzw ">2" am Ende,


Anzeige
AW: VBA | Zelle Farbig wenn
29.03.2023 15:38:04
GerdL
Mit VBA so:

Sub Unit()

    Dim C As Range, x As Long
    Dim rngR As Range
    Dim rngA As Range
    
    Set rngR = Range("R2:R" & Cells(Rows.Count, "R").End(xlUp).Row)
    Set rngA = Range("A2:A" & Cells(Rows.Count, "R").End(xlUp).Row)
    
    For Each C In rngR
        x = WorksheetFunction.CountIfs(rngR, C, rngA, ">=" & CLng(Date - 30))
        If x = 2 Then
            C.Interior.Color = vbYellow
        ElseIf x > 2 Then
            C.Interior.Color = vbRed
        Else
            C.Interior.Color = -4142
        End If
    Next
    
    Set rngR = Nothing: Set rngA = Nothing

End Sub
Gruß Gerd


Anzeige
AW: VBA | Zelle Farbig wenn
29.03.2023 16:31:09
Spezi
Hey Leute,

Das meine Formel nicht korrekt hinterlegt war, habe ich nicht gewusst.
Die neue Formel hat Wirkung gezeigt.
Kein lagging mehr. Bin euch für eure Unterstützung sehr dankbar.

LG, Spezi ✌️

306 Forumthreads zu ähnlichen Themen

VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:38:53
Thread-ID: 1093112
2 Beiträge
Anzeige
Excel Farbe der selektierten Zellen ändern
lupo

Guten Morgen,
ein Arbeitskollege möchte gerne die Farbe der ausgewählten / markierten Zellen ändern.
Zu dem Thema habe ich viel gegoogelt. An verschiedenen Stellen wird behauptet das würde nicht gehen.
Dann habe ich diese Video gefunden:
http://www.bukisa.com/videos/22842_mrexce...
07.08.2009 10:05:24
Thread-ID: 1094211
4 Beiträge
Zellenhintergrundfarbe per Auswahl ändern ?
Werner

Hallo,
ich möchte folgendes erreichen:
In der Zelle A1 soll zukünftig der Text stehen "Bitte Thema auswählen", sobald man auf diese Zelle klickt soll so ein kleines Auswahlmenü aufgehen in dem nun folgnde Auswahl erscheint:
1.: QUALITÄT - gelb - Wird dieser Eintrag ausgewählt so sol...
26.02.2010 12:31:53
Thread-ID: 1141730
5 Beiträge
Anzeige
Farbe von Schalter nach Zelleninhalt ändern
Schalter

Servus
ich wollte gern, das meine Schalter farbig hinterlegt wird, je nach Inhalt einer Zelle...
also wenn in Zelle A1 "1" steht soll mein Schalter rot sein, wenn "2" steht soll er grün sein...
geht das?
Danke
Timonski
09.06.2010 08:09:55
Thread-ID: 1160947
16 Beiträge
Zelle farbig ausfüllen über Formel / bedingte Form
Jim

Hallo Forum,
ich habe eien Frage bzgl. einer Zellformatierung.
Mit welcher Formel oder bedingten Formatierung kann ich einer Zelle eine Füllfarbe unter Randbedingungen zuweisen
Z.B steht in der Zelle A1 die Zahl 1, 2, 3, 4 oder 5. Nun soll die Zelle A2 farbig sein (ohne das ich ein...
22.07.2010 22:07:47
Thread-ID: 1168460
3 Beiträge
Zellenfarbe ändern
Kurt

Guten Abend,
ich möchte nur die Zellenfarbe der Spalte B nach Eingabe einer Zahl
ändern und zwar in Rot.
Die Farbe ist vorher Blau.
mfg Kurt B
14.09.2010 22:19:53
Thread-ID: 1177597
6 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
Formatieren von Zellen per VBA
Zellen

Guten Tag
habe bereits eine Ergänzungsfrage zu einem Projekt bei welchem mir hier via Forum schon sehr sehr gut geholfen wurde....
und zwar:
mittels folgendem Code schreibe ich in eine Spalte ein Datum:
Cells(j, 10).Value = CDate(MyDatStrg)
Wie müsste ich diese Zeile erweite...
07.12.2010 10:53:17
Thread-ID: 1190357
18 Beiträge

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
1
3
3
4
2
15
2
5
6
17
4
14
7
2
3
11
5
2
2
2
3
3
2
6
6