Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 13:43:40
Mittelwertwenn aus unterschiedlichen Tabellenblättern
09.10.2025 13:32:39
MahJong für Execl
09.10.2025 10:43:56
Flagstatus eines Meetingtems nicht abfragbar
09.10.2025 10:00:47
Von zwei Zellen mit Sverweis (B7 und H8) die Summe bilden
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
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereiche finden und markieren

Forumthread: Bereiche finden und markieren

Bereiche finden und markieren
24.09.2020 09:11:54
xtian
Guten Morgen zusammen,
ich benötige einmal Hilfe für ein Makro. Das Makro soll in der Spalte A einen definierten Bereich finden. Der
Bereich geht immer vom ersten BAB bis zum letzten Z. Die Anzahl von BAB und Z kann immer unterschiedlich
sein. Wurde ein Bereich ermittelt, soll das Makro diesen Bereich in einer Farbe in der Spalte D kennzeichnen.
Die Auswahl der Farbe ist erstmal egal. Wichtig ist, dass die jeweiligen Bereiche eine andere Farbe haben.
SpalteA….SpalteD
BAB1...….Markieren Bereich 1 Farbe Rot (Spalte D)
BAB2...….Markieren Bereich 1 Farbe Rot (Spalte D)
BAB3...….Markieren Bereich 1 Farbe Rot (Spalte D)
Z...……….Markieren Bereich 1 Farbe Rot (Spalte D)
Z...……….Markieren Bereich 1 Farbe Rot (Spalte D)
BAB2...….Markieren Bereich 2 Farbe Grün (Spalte D)
Z...……….Markieren Bereich 2 Farbe Grün (Spalte D)
BAB1...….Markieren Bereich 3 Farbe Blau (Spalte D)
BAB2...….Markieren Bereich 3 Farbe Blau (Spalte D)
Z...……….Markieren Bereich 3 Farbe Blau (Spalte D)
Gruß
Christian
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereiche finden und markieren
24.09.2020 09:35:47
Daniel
HI
muss es ein Makro sein?
du könntest auch so vorgehen.
1. schreibe in D1 den Wert 1
2. schreibe ab D2 bis zum Ende der Tabelle die Formel: 

=Wenn(und(Links(A2;3)="BAB";Links(A1;3)"BAB");D1+1;D1)
das markierte dir dann jeden Breich durch eine andere Zahl (wird bei neuen BAB immer hochgezählt)
dann legst du eine Bedingte Formatierung für jede Zahl an, dh
=$D1=1: rot
=$D1=2: grün
=$D1=3: blau
usw
sollten das zuviele Farben werden und du willst mit 3 Farben auskommen die sich regelmäßig wiederholen, erweiterst du die Regelformel so:
=rest($D1;3)=0: blau
=Rest($D1;3)=1: rot
=Rest($D1;3)=2: grün
Gruß Daniel
ps für die Formelfreaks: ja man kann die Formel ab D2 auch kürzer schreiben:
=D1+(Links(A2;3)="BAB")*(Links(A1;3)"BAB")
obs auch einfacher ist als das WENN, muss jeder selbst für sich entscheiden
Anzeige
AW: Bereiche finden und markieren
24.09.2020 09:48:49
xtian
Hallo Daniel,
vielen Dank für deine Hilfe. Ich würde da ein Makro lieber vorziehen. Werde
mich aber mit deiner Idee später auch beschäftigen.
Gruß
Christian
AW: Bereiche finden und markieren
24.09.2020 09:41:13
Rudi
Hallo, 
Sub einfaerben()
Dim rngFirst As Range, rngC As Range
Dim lngColor As Long
Set rngFirst = Range("A2")
lngColor = Range("D2").Interior.Color
For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
If rngC = "Z" And rngC.Offset(1)  "Z" Then
Range(rngFirst, rngC).Interior.Color = lngColor
Set rngFirst = rngC.Offset(1)
lngColor = rngC.Offset(1, 3).Interior.Color
End If
Next rngC
End Sub

Gruß
Rudi
Anzeige
AW: Bereiche finden und markieren
24.09.2020 09:51:11
xtian
Hallo Rudi,
vielen Dank für deine Hilfe. Irgendwo ist hier leider noch ein Fehler drin. Sehe
ihn aber leider nicht. Die Spalte D wird leider nicht eingefärbt.
Gruß
Christian
AW: Bereiche finden und markieren
24.09.2020 10:13:50
Rudi
Range(rngFirst, rngC).resize(,2).Interior.Color = lngColor
AW: Bereiche finden und markieren
24.09.2020 10:17:34
xtian
Hallo Rudi,
leider noch immer keine Farbe.
Anzeige
AW: Bereiche finden und markieren
24.09.2020 10:27:38
Rudi
was ist denn in D?
Ich bin davon ausgegangen, dass jeweils beim ersten BAB D entsprechend eingefärbt ist.
AW: Bereiche finden und markieren
24.09.2020 10:41:00
xtian
In Spalte D ist leider nichts. Der jeweilige Bereich (erster BAB bis letzter Z)
sollen dann in Spalte D eingefärbt sein.
neuer Versuch
24.09.2020 11:29:37
Rudi 
Sub einfaerben()
Dim rngFirst As Range, rngC As Range
Set rngFirst = Range("A2")
For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
If rngC = "Z" And rngC.Offset(1)  "Z" Then
Range(rngFirst, rngC).Offset(, 3).Interior.Color _
= WorksheetFunction.RandBetween(10 ^ 6, 10 ^ 9)
Set rngFirst = rngC.Offset(1)
End If
Next rngC
End Sub

Anzeige
AW: neuer Versuch
24.09.2020 11:34:07
xtian
Rudi, läuft. Vielen lieben Dank.
Gruß
Christian
;

Forumthreads zu verwandten Themen

Bedingte Formatierung - Datenbalken bei neg Werten
Gianleandro

Ich suche nach einer Möglichkeit die Datenbalken bei der bedingten Formatierung auch für negative Werte zu nutzen. Dabei schwebt mir eine Art Spielgelung der Datenbalken bei negativen Werten vor.
Wer hat dazu eine Idee?
https://www.herber.de/bbs/user/55283.xlsx
09.09.2008 14:22:24
Thread-ID: 1008498
3 Beiträge
Wert finden und relativen Bereich markieren
Luca-Darius

Hallo, ich suche nach einer Lösung für das folgende Problem einer Toto-Auswertung/13er-Wette.
Ich will zum Beispiel in den Zeilen 1, 15 und 29 (im Bereich A1:AJ1,A15:AJ15,A29:AJ29) nach Zellen suchen, die den Buchstaben X enthalten. Alle Zellen in dem genannten Bereich enthalten entweder de...
23.03.2009 18:44:39
Thread-ID: 1063012
5 Beiträge
duplikate finden und zählen wenn...
Carmen

Hallo zusammen,
hab gleich zwei Punkte an denen ich nicht so recht weiterkomme.
Ich habe eine Tabelle in der Anteilseigner aufgeführt sind, die können mehrfach auftauchen da manche mehrere Trangen an unterschiedlichen Tagen gekauft haben.
Nun sollen die aktiven Anteilseigner in eine...
14.05.2009 14:20:14
Thread-ID: 1075160
4 Beiträge
Formel für doppelte Werte in einer Liste...
Jessi

Hallo zusammen,
habe ein Problem, aber sicherlich ein nicht unzulösendes für Euch:
Ich habe eine Liste mit mehren Einträgen in einer Spalte z.B.
A
B
C
A
A
B
D
Z
Ich möchte nun die Spalte durchsuchen nach allen vorhanden UNTERSCHIEDLICHEN Einträgen, so...
17.06.2009 17:28:50
Thread-ID: 1082326
2 Beiträge
Bedingte Formatierung mit mehreren Werten
Thorsten

Liebe Excel-Gurus,
ich benötige Hilfe bei folgendem Problem.
In der angehängten Tabelle möchte ich gerne, dass die Zeile bzw. das LAS und FAL
sich farblich verändern sobald in irgendeinem der oberen Fraktionen der Wert
Farbe (grün), Farbe (weiß) oder Farbe (braun) ausgewählt wir...
13.07.2009 17:09:04
Thread-ID: 1088289
2 Beiträge
Doppelte Werte, abhängig von aktiver Zelle, finden
aktiver

Hallo,
auch nach stundenlanger Suche konnte ich folgendes Problem bisher nicht lösen:
In meinem Tabellenblatt kommen verschiedene Zelleinträge mehrfach vor.
Nun soll, wenn sich der Cursor in einer Zelle befindet, deren Inhalt in der Tabelle nochmals (oder mehrmals) vorkommt, diese Z...
09.08.2009 13:52:48
Thread-ID: 1094515
12 Beiträge
Anzeige
identische Einträge farblich markieren
BartekBartek

Hallo zusammen,
ich moechte um fachkundige Hilfe bezüglich folgender Aufgabenstellung bitten:
Ich habe 5 Spalten. IJede Spalte ist für je ein Produkt vorgesehen und in jeder Spalte sind Teilenummern des Produktes aufgelistet.
Nun möchte ich via macro folgendes erreichen:
Wenn In...
08.09.2009 05:33:33
Thread-ID: 1101143
4 Beiträge
Duplikate finden und markieren
gert

Hallo Zusammen,
ich möchte aus einer größeren Tabelle nur die Duplikate markieren. Die Originale sollen verbleiben.
In der Anlage habe ich eine Mustertabelle. Hier werden alle Datensätze dann als Duplikat markiert.
https://www.herber.de/bbs/user/64319.xls
Wer kann mir die Formel...
10.09.2009 15:46:32
Thread-ID: 1101805
3 Beiträge
Gleiche Werte in Spalte markieren
Larissa

Hallo,
ich möchte mit einem Makro in einer Spalte alle Zellen mit dem gleichen Wert markieren.
Mit meinem Makro wird nur die erste Zelle mit dem Wert markiert:
Dim Belegnr As String
Belegnr = ActiveCell.Offset(0, -14)
Sheets("Kontierung").Select
Range("B:B").Find(Belegnr...
27.09.2009 22:24:30
Thread-ID: 1105923
8 Beiträge
bedingte Formatierung - Zellwerte vergleichen
Thomas

hallo zusammen,
ich nutze seit einigen tagen excel 2007 und es stellt sich folgendes problem:
in einer größeren tabelle möchte ich einen zellwert farblich formatieren, nachdem er mit einem anderen zellwert verglichen wurde.
beispiel:
wenn der zellwert in b6 kleiner als der zellw...
25.11.2009 22:48:05
Thread-ID: 1120129
9 Beiträge
VBA Schleife - elimieren von doppelten Werten
doppelten

Hallo Forum,
ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
09.03.2010 11:06:49
Thread-ID: 1144532
9 Beiträge
Anzeige
Zellen mit gleichen Werten markieren
Melanie

Hallo Liebe Excel-Freunde,
ich mochte in einer Tabelle alle Zellen markieren, bei der die Werte aus Zelle B auch in Zelle C vorkommen. Dabei können in Zelle C auch mehrfach Zahlen aus B vorkommen, die müssen auch markiert werden. Sie Beispiel:
Tabelle1 BCDEFGHIJ2TestMaterialnummerW...
17.08.2010 13:53:00
Thread-ID: 1172624
6 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