Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.10.2025 16:04:18
Auswahl der Datenüberprüfung auf Folgezellen übertragen
22.10.2025 15:36:11
wie oft kommt ein Buchstabe in einem Array vor, Zählenwenn
22.10.2025 15:30:07
Beitragsproblem im Forum behoben
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
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
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen im Offset farbig darstellen?

Forumthread: Zellen im Offset farbig darstellen?

Zellen im Offset farbig darstellen?
07.05.2021 20:18:40
Selma
Hallo Leute,
ich möchte in meinem Arbeitsblatt abhängig von Zellinhalten in Spalten G und F, die Zellen im Offset farbig darstellen.
Das habe ich wie folgt in meinem Versuch (geht sicherlich noch einfacher) :-) für eine Zeile hinbekommen. 

Sub Color()
If Range("G3").Value = "0" And Range("F3").Value = "true" Then
Range("G3").Offset(0, -5).Interior.ColorIndex = 22
End If
If Range("G3").Value = "1" And Range("F3").Value = "true" Then
Range("G3").Offset(0, -4).Interior.ColorIndex = 22
End If
If Range("G3").Value = "2" And Range("F3").Value = "true" Then
Range("G3").Offset(0, -3).Interior.ColorIndex = 22
End If
If Range("G3").Value = "3" And Range("F3").Value = "true" Then
Range("G3").Offset(0, -2).Interior.ColorIndex = 22
End If
End Sub
Wie bringe ich dies in einer Schleife bitte, die ab Zeile 3 Zeile bis letzte Zelle mit Inhalt der Spalte A gelten soll?
Liebe Grüße,
Selma
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen im Offset farbig darstellen?
07.05.2021 20:22:45
Hajo_Zi
Hallo Selma,
warum VBA?
Benutze Bedingte Formatierung
GrußformelHomepage
Anzeige
AW: Zellen im Offset farbig darstellen?
07.05.2021 22:32:28
Selma
Hallo Hajo,
ich habe mich für VBA entschieden, weil ich diese Aktion in mehreren Dateien ausführen möchte und dies aus meiner Meinung nach per VBA schneller funktioniert.
Liebe Grüße,
Selma
AW: Zellen im Offset farbig darstellen?
07.05.2021 21:10:40
Luschi
Hallo Selma,
bei mir sieht das Konstrukt so aus: 

Sub Color()
Dim rg1 As Range, rg2 As Range, n As Long
n = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Set rg1 = Range(Cells(3, "G"), Cells(n, "G"))
For Each rg2 In rg1
If rg2.Value = "0" And rg2.Offset(0, -1).Value = "true" Then
rg2.Offset(0, -5).Interior.ColorIndex = 22
ElseIf rg2.Value = "1" And rg2.Offset(0, -1) = "true" Then
rg2.Offset(0, -5).Interior.ColorIndex = 23
ElseIf rg2.Value = "2" And rg2.Offset(0, -1) = "true" Then
rg2.Offset(0, -5).Interior.ColorIndex = 24
ElseIf rg2.Value = "2" And rg2.Offset(0, -1) = "true" Then
rg2.Offset(0, -5).Interior.ColorIndex = 25
Else
rg2.Offset(0, -5).Interior.ColorIndex = 0
End If
Next rg2
Set rg1 = Nothing: Set rg2 = Nothing
End Sub
Gruß von Luschi
aus klein-Paris
Anmerkung: Sollten in G3, G4 usw. echte Zahlen (also 1 oder 2 usw.) stehen und nicht Text-Zahlen ('2 oder '3 usw.)
bzw. in der F-Spalte richtige Wahrheítswerte (WAHR bzw. FALSCH oder True bzw. False) dann sieht die Prüfung so aus:
If rg2.Value = 0 And rg2.Offset(0, -1).Value Then
rg2.Offset(0, -1).Value entspricht dabei: rg2.Offset(0, -1).Value = True
das = True ist aber doppelt gemoppelt und kann entfallen.
Anzeige
AW: Zellen im Offset farbig darstellen?
07.05.2021 22:30:46
Selma
Hallo Luschi,
vielen Dank! Auch deine Lösung funktioniert perfekt.
Liebe Grüße,
Selma
AW: Zellen im Offset farbig darstellen?
07.05.2021 21:16:30
Nepumuk
Hallo Selma,
teste mal:
Code:



[Cc]







	
	
	
	




Public Sub SetColor()

  Dim objCell As Range

  For Each objCell In Range(Cells(3, 7), Cells(Rows.Count, 7).End(xlUp))

      If objCell.Offset(0, -1).Value = "true" Then _
      objCell.Offset(0, -5 + objCell.Value).Interior.Color = RGB(255, 128, 128)

  Next
End Sub
Gruß
Nepumuk
Anzeige
AW: Zellen im Offset farbig darstellen?
07.05.2021 22:30:00
Selma
Hallo Nepumuk,
vielen Dank! Es funktioniert perfekt.
Liebe Grüße,
Selma
;

Forumthreads zu verwandten Themen

Zellen farbig darstellen ?
Selma

Hallo Leute,
ich habe die Zahlen in Spalte B aufsteigend sortiert. Jetzt möchte ich die Zellen mit der Füllfarbe ab Zeile 2 wie folgt farbig darstellen:
- Wenn in Spalte B der Zahl "0" steht, dann die Zeile ab Spalte A bis Spalte W mit Interior.ColorIndex 15 darstellen
- Für die Zah...
12.11.2008 08:53:00
Thread-ID: 1023707
10 Beiträge
Anzeige
ausgewählte Zelle hervorheben
Frank

Hallo Cracks,
ich suche eine Möglichkeit eine markierte Zelle auf einem Arbeitsblatt kenntlich zu machen. Habe schon mal gesehen das die Zeile und Spalte in der die markierte Zelle liegt farblich hervorgehoben werden. Da die Zellen in meinem Arbeitsblatt aber alle farblich ausgefüllt sind k...
26.08.2009 13:29:39
Thread-ID: 1098756
13 Beiträge
Position der Zeile mit aktive Zelle verändern
Karsten

Hallo,
ich möchte per Makro-Code die Zeile mit der aktive Zelle in den unteren Bereich knapp über die horizontale Bildlaufleiste bekommen.
Kann mir bitte jemand dabei helfen?
Besten Dank.
Karsten
13.11.2010 13:03:28
Thread-ID: 1186634
3 Beiträge
Zellen farbig darstellen, aber "farblos" druc
hans.hansen

Hallo zusammen,
ich bin gerade dabei eine Rechnungsvorlage zu gestalten (in Excel 2003), d.h. mit farblichen Logo und verschiedenen Formatierungen. Ein paar wenige Zellen sollen dem Nutzer die Eingabe ermöglichen(=nicht gesperrte Zellen), der Rest der Tabelle hat einen Blattschutz. Alle nic...
27.01.2013 12:16:45
Thread-ID: 1296183
9 Beiträge
Zellen Farbig darstellen, per Makro
Luise

Guten Tag,
ich habe eine Tabelle, da stehen Namen von
D15-i50.
Ich möchte gern die Zellen der Namen einzeln farbig darstellen.
Die Namen sind von Q1-Q8 gelistet.
Geht sowas per Makro ?
mfg
Luise
25.08.2017 17:46:47
Thread-ID: 1576665
7 Beiträge
Target/Aktive Zelle - hervorheben- Tipps/Anregung
STeve

Hi all......möchte die aktive Zelle einfach besser sichtbar hervorheben.
Das Blatt ist in den meisten Bereichen geschützt.
Mehrfachmarkierung/Selection nicht notwendig.
Code sollte natürlich nicht zu belastend sein.
Wer kann mir da seine/n knackigen Code's/Ideen/Tipps zur Verfü...
10.01.2019 20:33:26
Thread-ID: 1667312
4 Beiträge
Wort suchen, dann Zelle farbig darstellen
Sergej

Hallo Leute,
wie kann ich bitte per VBA in Spalte A nach Wort "Bildanhang" in der Zelle suchen.
Wenn das Wort in der Zelle vorkommt, dann soll die Zelle da drunter mit der Füllfarbe gelb darstellt werden usw. Das Ganze soll bis letzte benutzte Zelle der Spalte A abgearbeitet werden.
14.01.2019 23:28:31
Thread-ID: 1668131
6 Beiträge
Anzeige
Aktive Zeile hervorheben
Udo

Hallo Forum.
Versuche verzweifelt diesen Code so umzuschreiben, daß er mir nicht nur eine Zelle sondern die ganze Zeile markiert, ich aber wie mit diesem Code auch Änderungen z.B. die Farbe einer einzelnen Zelle ändern vornehmen kann. Desweiteren sollte die Zeile nicht grau sondern nur mit M...
10.02.2003 07:05:02
Thread-ID: 216484
8 Beiträge
aktive zelle mit farbe hinterlegt nicht drucken
Joachim
Hi zusammen,
ich habe mal etwas herum gestöbert und folgenden interessanten Code gefunden um die aktive zelle gelb zu hinterlegen, den ich auch gleich eingebaut habe.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Static OldIndex As Integer Static OldCe...
08.07.2003 22:28:54
Thread-ID: 278630
3 Beiträge
Anzeige
Zeile mit Mauszeiger farblich hervorheben
Ulf

Hi,

Ist es möglich, die Zeile oder die Zelle in der sich der Mauszeiger befindet farblich hervor zu heben? Also ich meine nicht die aktivierte Zelle sondern wenn ich mit der Maus über die Tabelle wandere, daß die Zelle darunter farblich markiert wird.

Dank schon mal für Eure Müh...
29.07.2003 20:26:14
Thread-ID: 287339
3 Beiträge
Anzeige
Aktive Zelle farbig?
Ralf
Hallo,
wie bekomme ich es hin das die jeweils aktive Zelle immer gelb wird,und sobald sie nicht mehr aktiv ist grau wird.Das soll aber nur in einem bestimmten bereich so sein z.B A1:D40.
Vielen Dank im vorraus.
Gruß Ralf
17.11.2003 11:47:39
Thread-ID: 339132
5 Beiträge
Zeile farblich hervorheben
PeterM
Liebe Experten,
ich möchte eine Tabelle so formatieren, dass die Zeile in der der sich die aktive Zelle befindet immer farblich hervorgehoben erscheint. Also wenn ich die Kursortasten nach oben bzw. nach unten tippe mit der aktiven Zelle ein ganzer Balken nach oben bzw. nach unten wandert.
H...
18.11.2003 12:23:56
Thread-ID: 339714
8 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