Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1548to1552
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
Inhaltsverzeichnis

Füülfarbe abhängig vom Zellinhalt?

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

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

Betreff
Datum
Anwender
Anzeige
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
29Falsch
30496

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.

Anzeige
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

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige