Füülfarbe abhängig vom Zellinhalt?

Forumthread: Füülfarbe abhängig vom Zellinhalt?

26.03.2017 11:56:43

Sergej

Hallo Leute,
ich habe in einem Arbeitsblatt ab Zeile 2 bis Zeile 235 Daten stehen.
Jetzt möchte ich per VBA die Zeilen in diesem Bereich mit zwei Füllfarben (gelb und grün) wie folgt abwechselnd darstellen:
Solange der Zellinahlt in der Spalte B (ab Zeile 2) nach unten gesehen gleich ist, dann sollen die Zellen von Spalte A bis Spalte H in gelb dargestellt werden. Wenn der Zelleinhalt in Splate B anders ist, dann in grüne Füllfarbe darstellen.
Wie mache ich das bitte?

Gruß,
Sergej

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Füülfarbe abhängig vom Zellinhalt?

26.03.2017 12:10:41

Hajo_Zi

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Schau mal hier
Eine hochgeladene Arbeitsmappe bzw. ein geposteter Tabellenausschnitt dagegen, erhöhen die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem aussagekräftigen Dateinamen hoch oder benutze ein Tool zur Tabellenanzeige.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, solltest du diese Daten anonymisieren bzw. pseudonymisieren.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms).

Jul 2014

	C
29	Falsch
30	496

verwendete Formeln
Zelle	Formel	Bereich	N/A
C29	=C27=C28
C30	=SUMMEWENN([Bildschirm.xlsm]Statistik!$Q$44:$Q$54;"<" &HEUTE();[Bildschirm.xlsm]Statistik!$R$54)

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 18.07 einschl. 64 Bit

Ich hätte bedingte Formatierung gesehen.

AW: Füülfarbe abhängig vom Zellinhalt?

26.03.2017 12:23:10

Sergej

Hallo Hajo,
danke für Deine ausführliche Hinweise / Tipps!
Ich denke die Frage habe ich verständlich gestellt und eine Beispieldatei in diesem Fall nicht erforderlich ist. Ein Bild sollte die Frage nur noch verdeutlichen.
Gruß,
Sergej

AW: Füülfarbe abhängig vom Zellinhalt?

26.03.2017 13:29:17

Matthias

Hallo! Der Code unten sollte das eigentlich machen. Bitte mal probieren. VG


Sub farbe_wechseln()
Dim ende As Long
Dim farbe1 As Long
Dim farbe2 As Long
Dim zeile As Long
Dim aktfarbe As Long
Application.ScreenUpdating = False
ende = ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
farbe1 = 6 'gelb
farbe2 = 43 'grün
aktfarbe = farbe1
If ActiveSheet.Cells(2, 2)  "" Then ActiveSheet.Range(ActiveSheet.Cells(2, 1), _
ActiveSheet.Cells(2, 8)).Interior.ColorIndex = aktfarbe
For zeile = 3 To ende
If ActiveSheet.Cells(zeile - 1, 2)  ActiveSheet.Cells(zeile, 2) Then
If aktfarbe = farbe1 Then
ActiveSheet.Range(ActiveSheet.Cells(zeile, 1), _
ActiveSheet.Cells(zeile, 8)).Interior.ColorIndex = farbe2
aktfarbe = farbe2
Else
ActiveSheet.Range(ActiveSheet.Cells(zeile, 1), _
ActiveSheet.Cells(zeile, 8)).Interior.ColorIndex = farbe1
aktfarbe = farbe1
End If
Else
ActiveSheet.Range(ActiveSheet.Cells(zeile, 1), _
ActiveSheet.Cells(zeile, 8)).Interior.ColorIndex = aktfarbe
End If
Next
Application.ScreenUpdating = True
End Sub

AW: Füülfarbe abhängig vom Zellinhalt?

26.03.2017 14:57:52

Sergej

Hallo Matthias,
perfekt - danke!
Gruß,
Sergej

AW: Füllfarbe, abhängig vom Zellinhalt darüber

26.03.2017 14:50:27

Gerd

Hallo Sergej!

Sub bbb()
Dim Farbe(1) As Long, X As Long, I As Boolean
Farbe(0) = vbYellow
Farbe(1) = vbGreen
For X = 2 To 235
If Cells(X, 2)  Cells(X - 1, 2) Then I = Not I
Cells(X, 1).Resize(1, 8).Interior.Color = Farbe(Abs(I))
Next
End Sub

Gruß Gerd

AW: Füllfarbe, abhängig vom Zellinhalt darüber

26.03.2017 20:15:07

Sergej

Hallo Gerd,
funktioniert auch! Danke!
Gruß,
Sergej

Beliebteste Forumthreads (12 Monate)

Füülfarbe abhängig vom Zellinhalt?

Forumthread: Füülfarbe abhängig vom Zellinhalt?

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread