Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1256to1260
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
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung über mehrere Zellen

Bedingte Formatierung über mehrere Zellen
Bertram
Hallo zusammen,
irgendwie steh ich heute auf dem Schlauch (wie des Öfteren:-)) und brüte seit Stunden über einer bedingten Formatierung. Jetzt hab ich zwar endlich eine Funktionierende hingekriegt, aber das ist ein ganz nettes Monster. Vielleicht habt ihr ja eine Idee diese zu vereinfachen. Vielleicht seh ich auch schon den Wald vor Bäumen nicht mehr:-)
Folgende Aufgabenstellung:
In dem Bereich A3:P3 wird geprüft, wieviele "S" in Folge stehen. Ist eine ununterbrochene Reihe von mindestens 5 "S" vorhanden, sollen alle "S" dieser Reihe nen roten Hintergrund haben.
Hier die Beispieldatei: https://www.herber.de/bbs/user/79832.xlsx
Denke ich viel zu kompliziert?
Danke für Anregungen.
Gruß
Bertram

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bedingte Formatierung über mehrere Zellen
17.04.2012 13:55:51
Reinhard
Hallo Bertram,
=Rot(A3) 
Option Explicit
Function Rot(Zelle) As Boolean
Dim Von As Long, Bis As Long
If Zelle.Value  "S" Then Exit Function
Von = Zelle.Column
Bis = Von
While Von > 1 And Cells(Zelle.Row, Von - 1).Value = "S"
Von = Von - 1
Wend
While Cells(Zelle.Row, Bis + 1).Value = "S"
Bis = Bis + 1
Wend
Rot = (Bis - Von) = 4
End Function

Gruß
Reinhard
AW: Bedingte Formatierung über mehrere Zellen
17.04.2012 15:00:04
Bertram
Hallo Reinhard,
danke für deinen Lösung.
Ich dachte zwar an eine VBA-frei Lösung, aber egal. Habe mal versucht deine Function nachzuvollziehen (da wär ich nie drauf gekommen).
Allerdings funzt das so nur im Bereich H:L. ganz hab ich's noch nicht gerafft, aber wenn ich die Zeile
Rot = (Bis - Von) = 4
ändere in
Rot = (Bis - Von) >= 5
dann scheint es wohl im Bereich E:P zu funktionieren.
Hab ich allerdings A:P komplett voll mit "S", wird nix rot.
Werd mir das mal noch genauer anschauen.
Hast du evtl. noch ne Idee ohne VBA?
Gruß
Bertram
Anzeige
AW: Bedingte Formatierung über mehrere Zellen
17.04.2012 15:05:20
Reinhard
Hallo Dave,
mach aus der = 4
>=4
dann müßte es auch bei mehr als 5 zusammenhängenden funktionieren.
Ohne Vba, schau mal zu http://excelformeln.de/formeln.html
Gruß
Reinhard
AW: Bedingte Formatierung über mehrere Zellen
17.04.2012 15:15:57
Bertram
Hallo Reinhard,
ich heiß zwar nicht Dave, aber danke.
Wenn ich bei Spalte A anfange, haut das nicht hin. hab jetzt meinen Bereich von B:Q mit der Function
Function Rot(Zelle) As Boolean
Dim Von As Long, Bis As Long
If Zelle.Value  "S" Then Exit Function
Von = Zelle.Column
Bis = Von
While Cells(Zelle.Row, Von - 1).Value = "S"
Von = Von - 1
Wend
While Cells(Zelle.Row, Bis + 1).Value = "S"
Bis = Bis + 1
Wend
Rot = (Bis - Von) >= 4
End Function

Dann funktioniert's.
Auf Excelformeln.de hab ich schon gesucht, aber da ist auch nix Einfacheres dabei (soweit ich das gesehen hab)
Gruß
Bertram
Anzeige

347 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Anzeige
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
Kurze , dumme Frage: Prüfen, ob Zelle leer
Dieter

Hi,
wie kann ich denn prüfen , ob die Zelle B230 im Tabellenblatt "Umsatz" leer ist ?
(Wichtig, es ist nicht das Aktive Tabellenblatt)
Danke Dieter
29.01.2009 13:21:56
Thread-ID: 1044976
8 Beiträge
Zählenwenns... Leere Zelle
UweD

Hallo
Ich habe 2 Tabellen, wo (fast) täglich 1. Produktionsrückstände und 2. Fehler aufgelistet sind.
Es kommt vor, daß eine Tabelle mal an einem Tag nicht abgefragt und gefüllt wird.
In der Zusammenfassung wird dieser Tag dann mit 0 gewertet. Wie stelle ich es an, daß an diesem Tag...
13.02.2009 10:55:00
Thread-ID: 1050400
5 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

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
5
6
2
9
2
4
3
7
4
2
3
7
1
4
3
23
23
1
6
9
4
4
9
4
4