Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1208to1212
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
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung mit Zellfarbe

Bedingte Formatierung mit Zellfarbe
Dieter(Drummer)
Hi Formelspezialisten,
in Zelle A1 steht eine Startdatum und in den Folgezellen geht dieses Datum bis zum Ende des Jahres.
Ich suche folgende BEDINGTE FORMATIERUNG in SPALTE B:
Die ersten 3 Zellen in Spalte B, also B1:B3, sollen in ROT gefärbt werden, die nächsten 3 Zellen, also B4:B6, sollen GRÜN gefärbt werden und die nächsten 3 Zellen, also B7-B9, sollen GRÜN gefärbt werden.
Diese farbliche Reihenfolge soll sich so oft Spalte B wiederholen, bis in der Spalte A KEIN Datum mehr steht, also leer ist.
Hier ist eine Mustertdatei: https://www.herber.de/bbs/user/74465.xls
Danke für evtl Hilfe.
Gruß
Dieter(Drummer)

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

Betreff
Benutzer
Anzeige
AW: MIT VBA wäre wohl bessere Lösung
20.04.2011 11:15:24
Dieter(Drummer)
Hi VBA Spezialisten,
es wäre hier wohl besser, die per VBA zu machen. Mit der Bitte um eien VBA Lösung
grüßt
Dieter(Drummer)
AW: MIT VBA wäre wohl bessere Lösung
20.04.2011 11:39:19
chris
Hallo mit VBA könntest Du es so lösen:
Option Explicit
Dim x As Integer
Dim farbe_akt As Integer
Dim col As Integer
Dim anz As Integer
Sub datei()
farbe_akt = 1
x = 1
anz = 0
col = 3
farbe_akt = 1
Do While Cells(x, 1)  ""
If anz = 3 Then
If farbe_akt = 1 Then
col = 4
anz = 0
farbe_akt = 2
GoTo weiter
End If
If farbe_akt = 2 Then
anz = 0
farbe_akt = 3
col = 4
GoTo weiter
End If
If farbe_akt = 3 Then
anz = 0
farbe_akt = 1
col = 3
GoTo weiter
End If
End If
weiter:
anz = anz + 1
Cells(x, 2).Interior.ColorIndex = col
x = x + 1
Loop
End Sub

gruß Chris
Anzeige
AW: Färbt nicht richtig ...
20.04.2011 11:49:23
Dieter(Drummer)
Hi Chris,
Danke frü schnellen Lösungsvorschlag. Es werden die ersten 3 Zellen in B RIOT gesetzt und die nächten 6 Zellen GRÜN. Es müssen aber dein ersten 3 Zellen in TOT, dann die nächsten 3 in BALU und die näachten 3 in GRÜN sein. Dies wiederholt sich dann.
Danke für's evtl. Anpassung.
Gruß
Dieter(Drummer)
AW: Färbt nicht richtig ...
20.04.2011 11:53:05
chris
Von Blau hast Du nichts geschrieben ?
Da musst Du eben nur noch den Colorindex Ändern.
AW: Färbt nicht richtig ... nun ohne Schreibfehler
20.04.2011 11:55:01
Dieter(Drummer)
Hi Chris,
Danke für schnellen Lösungsvorschlag. Es werden die ersten 3 Zellen in ROT gesetzt und die nächsten 6 Zellen GRÜN. Es müssen aber die ersten 3 Zellen in ROT, dann die nächsten 3 in BLAU und die nächsten 3 in GRÜN sein. Dies wiederholt sich dann.
Danke für's evtl. Anpassung.
Gruß
Dieter(Drummer)
Anzeige
AW: Färbt nicht richtig ... nun ohne Schreibfehler
20.04.2011 11:59:12
chris 

Sub datei()
farbe_akt = 1
x = 1
anz = 0
col = 3
farbe_akt = 1
Do While Cells(x, 1)  ""
If anz = 3 Then
If farbe_akt = 1 Then
col = 5
anz = 0
farbe_akt = 2
GoTo weiter
End If
If farbe_akt = 2 Then
anz = 0
farbe_akt = 3
col = 4
GoTo weiter
End If
If farbe_akt = 3 Then
anz = 0
farbe_akt = 1
col = 3
GoTo weiter
End If
End If
weiter:
anz = anz + 1
Cells(x, 2).Interior.ColorIndex = col
x = x + 1
Loop
End Sub

AW: Danke Chris, habs geschafft ...
20.04.2011 12:00:46
Dieter(Drummer)
Danke für deine Hilfe und Bemühung!
Schöne Ostertage ...
Gruß,
Dieter(Drummer)

333 Forumthreads zu ähnlichen Themen

Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Anzeige
Wenn ijn Spalte Datum von Jänner dann Werte zählen
Jänner

Hallo!
Ich habe in der Spalte A ab der Zeile 3 Datumwerte aus den Wochenenden und den Feiertagen stehen.
In der spalte G, H, I stehen nun Werte.
Ich möchte nun alle Werte in Abhängigkeit des Datums zusammenzählen.
Ist in der Spalte A das Jänner Datum vorhanden dann sollen die We...
07.01.2009 08:42:00
Thread-ID: 1037440
4 Beiträge
Wenn Dann mit Werten zwischen 2 Zellen
Thomas

Hallo,
montagsgemäß steh ich gerade auf dem Schlauch und benötoge Hilfe für folgendes Problem:
ich habe mind. 10 Werte in % von 50% bis 110%
In den Zellen A1 bis A10 steht ein Text, dahinter also in B1 bis B10 die Prozentwerte.
Dann steht in C1 ein Objektspezifischer Wert/ein E...
23.02.2009 11:55:52
Thread-ID: 1053025
3 Beiträge
Anzeige
Bedingte Formatierung-Rahmen für bestimmte Zellen
Peter

Hallo zusammen,
ich möchte in einem Tabellenbereich alle Zellen, die eine Zahl enthalten und daher nicht leer sind, mit einem "Rahmen" versehen.
Ich versuche es z.Zt. mit "bedingter Formatierung" und dann "Formel ist" = Istzahl. Leider funktioniert das nicht. Vielleicht hat jemand von E...
20.03.2009 13:51:29
Thread-ID: 1062187
3 Beiträge
Bedingte Formatierung bei leerer Zelle
Marko

Hallo,
vermutlich schon tausend mal gefragt, aber irgendwie komme ich nicht klar.
Wenn in J2 etwas drin steht, soll die Zelle weiß bleiben; wenn nicht, soll sie rot eingefärbt werden.
Wie muss ich die Bedingte Formatierung hierfür gestalten?
Gruss,
Marko
05.05.2009 10:41:00
Thread-ID: 1072999
3 Beiträge
Bedingte Formatierung leere Zellen farbig
ropa

Hallo,
nochmal Bedingte Formatierung
Wie kann ich einen Zellbereich so mit der bedingten Formatierung belegen das alle leeren Zellen z.B. gelb hinterlegt sind wenn ich einen Wert oder Text eingebe dann soll die Formatierung verschwinden.
Grüße
Roland
23.06.2009 14:24:25
Thread-ID: 1083810
2 Beiträge
Eintrag aus Textfeld in zelle übernehmen wenn leer
Benni

hallo,
kann mir jemand helfen, ich kenne mich mit VBA nicht wirklich gut aus.
ich möchte die Eingabe in einem Textfeld auf einer UserForm in eine Zelle auf dem Worksheets "Werte" übertragen. Problem bei der Sache ist, dass z.B. ich bei der Zelle A1 Anfange und wenn dort schon ein „Inhal...
24.06.2009 09:05:21
Thread-ID: 1083991
14 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 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
2
3
2
3
2
2
1
13
1
2
2
12
2
2
6
2
7
8
9
7
2
6
2
1