Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1828to1832
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
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

169 Forumthreads zu ähnlichen 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
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
Anzeige
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
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

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
9
12
2
8
3
6
3
5
7
2
2
4
7
14
15
24
1
1
6
4
4
4
3
1
3