Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.07.2025 07:26:11
Excelproblem mit natürlichen Zahlen
12.07.2025 06:51:22
Grok.Free: Your Gateway to Advanced AI Technology
11.07.2025 18:11:03
Zeiträume vergleichen
11.07.2025 15:59:08
Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gleichartige Zellenblöcke/Einträge färben

Forumthread: gleichartige Zellenblöcke/Einträge färben

gleichartige Zellenblöcke/Einträge färben
03.11.2017 09:15:50
Gerhard
Hallo,
in einer Anwesenheitsliste werden täglich Kürzel eingetragen. Diese werden mit bedingter Formatierung gefärbt.
Die Aufgabe: sobald in einer Zeile/Reihe 42 K Einträge (=krank) ununterbrochen nebeneinander stehen, sollen diese gelb gefärbt werden (siehe Beispielzeilen in der Musterdatei.)
Wenn möglich als Makro (evtl. Start mit Button).
Die Anwesenheitstabelle geht über 2 Jahre. Eintragungen in den Zellen Y19:ACA200.
Mit bed. Format. gelingt mir die Lösung nicht, noch weniger die Makrolösung. Gibt es eine Lösung? Wer kann mir diese ggf. erstellen?
Die Beisp.-Tabelle ist vereinfacht. https://www.herber.de/bbs/user/117409.xlsx
Gruß
Gerhard
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Bedingte Formatierung
Tags
#bedingteformatierung #datenanalyse #makros
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Areas
03.11.2017 09:44:39
Fennek
Hallo,
nur so als Idee: 

- für jede Zeile wird der Bereich Z bis letzte Spalte als Range definiert
- K wird in 999 umgewandelt
- mit specialcells(2,1) werden alle Zahlen ausgewählt
- eine Schleife über alle Areas prüft auf count > 42 und färbt ggf
- die 999 wird in K zurück gewandelt

Sind deine VBA-Kenntnisse ausreichen, um so einen Code warten zu können?
mfg
(es gibt sicher auch andere Möglichkeiten, mal sehen, was andere vorschlagen)
Anzeige
AW: Areas
03.11.2017 09:52:45
Gerhard
Hallo Fennek,
Danke für diese Idee. Diese in VBA umzusetzen schaffe ich nicht. Meine Makrokenntnisse sind sehr bescheiden.
Gruß
Gerhard
AW: Code
03.11.2017 11:11:09
Fennek
Hallo,
in der Beispieldatei läuft der Code fehlerfrei durch und in der ersten relevanten Zeile färbt er richtig ein. Die weiteren Prüfungen überlasse ich dir.

Sub iFen()
Dim rgn As Range
Dim Ar As Range
ls = Cells(8, Columns.Count).End(xlToLeft).Column
lr = Cells(Rows.Count, "E").End(xlUp).Row
For i = 10 To lr
On Error GoTo nrow
Set Rng = Range(Cells(i, "Z"), Cells(i, ls))
Rng.Replace "k", 999
If WorksheetFunction.Count(Rng) > 0 Then
For Each Ar In Rng.SpecialCells(2, 1).Areas
If Ar.Count > 41 Then Ar.Interior.Color = vbYellow
Next Ar
End If
nrow:
Err.Clear
On Error GoTo 0
Rng.Replace 999, "k"
Next i
End Sub
mfg
Anzeige
AW: eine bedingte Formatierungsformel ...
03.11.2017 11:30:46
...
Hallo Gerhard,
... in Y10 und entsprechender Gültigkeitsbereichsdefinition würde auch schon reichen:
=WENN(Y10"k";0;VERGLEICH(1;(Y10:$ABC10"k")*1;0)-25+SPALTE()-VERWEIS(9;1/($Y10:Y10"k"); SPALTE($9:$9)+1)) >41
Gruß Werner
.. , - ...
@ Fennek + Werner
03.11.2017 11:45:22
Gerhard
nach der Gartenarbeit werd ich beide Vers. testen.
Ich gebe dann die Infos.
Gruß
Gerhard
Anzeige
AW: Code Variante
03.11.2017 12:32:31
Fennek
Hallo,
mit "on error" zu arbeiten, ist manchmal etwas kritisch. Hier eine andere Variante:

Sub iFen()
Dim rgn As Range
Dim Ar As Range
ls = Cells(8, Columns.Count).End(xlToLeft).Column
lr = Cells(Rows.Count, "E").End(xlUp).Row
For i = 10 To lr
Set rng = Range(Cells(i, "Z"), Cells(i, ls))
rng.Name = "Fen"
If [SumProduct(--(Fen = "k"))] > 41 Then
rng.Replace "k", 999
For Each Ar In rng.SpecialCells(2, 1).Areas
If Ar.Count > 41 Then Ar.Interior.Color = vbYellow
Next Ar
rng.Replace 999, "k"
End If
Next i
End Sub
mfg
Anzeige

Forumthreads zu verwandten Themen

Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
Zwei Dinge in einer Zelle
Sabine

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...
29.08.2008 15:25:00
Thread-ID: 1005860
2 Beiträge
Anzeige
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Tasten während der Eingabe in einer Zelle abfragen
Arthur

Hallo.
Wie kann man in Excel auf die Eingabe in einer Zelle schon beim Tastendruck reagieren?
Beispiel: Schon während der Eingabe von Werten soll reagiert werden. Bspw. ist eine fünfstellige Bestelnummer einzutragen. Nachdem fünf Ziffern eingetragen sind soll automatisch in die nächste...
22.10.2008 11:44:52
Thread-ID: 1018286
4 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
Anzeige
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
hochzählen in einer Zelle
Tobias

Guten Morgen zusammen,
ich möchte in einer Zelle einen Wert "hochzählen" lassen. Also z.B. in Zelle A1 soll jeweils alles zusammen addiert werden was in Zelle B1 eingegeben wurde.
Ich hoffe das ist einigermaßen verständlich...
Vielen Dank im Voraus für Eure Tipps!
20.12.2008 10:26:00
Thread-ID: 1034350
12 Beiträge
Schriftfarben in Zellen
Ulli

Hallo Zusammen,
beim letzen mal wurde mir sehr schnell, sehr kompetent und sehr freundlich geholfen. Dafür möchte ich mich nochmals bedanken.
Hier mein Problem: Ich habe eine Tabelle mit verschiedenen Farben in einer Zelle. Diese Farben entsprechen jedoch nicht den originalen Schriftfar...
19.01.2009 07:57:00
Thread-ID: 1041313
5 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
Anzeige
Bei Öffnen der Excel-Datei eine best. Zelle wählen
Georg

Hallo, ich bin es noch mal. Diesmal öffnen statt schließen :-)
Mit welchem VBA-Code kann ich bewirken, dass beim Öffnen einer Excel-Datei immer eine bestimmte Zelle (B3) auf einem bestimmten Tabellenblatt (Tabelle13) ausgewählt wird?
Private Sub ?() Tabelle13.Select Tabelle13.Range("B...
23.01.2009 15:05:00
Thread-ID: 1043024
3 Beiträge
Anzeige
mehrere Zellen in einer einfügen
Claus

Hallo,
wie kann ich per Makro die Eingaben einiger Zellen in einer andere kopieren? Beispiel
A1 = 1,
A2 = 2,
A3 = 3,
A4 = 4,
A5 = 5,
Ergebnis sollte in B1 stehen und müsste wie folgt lauten 1,2,3,4,5,
Die Anzahl der A Zeilen ist nich fix. Fängt immer bei A1...
27.01.2009 18:00:00
Thread-ID: 1044333
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige