Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung / Datenbalken / Farbe wechse

Forumthread: Bedingte Formatierung / Datenbalken / Farbe wechse

Bedingte Formatierung / Datenbalken / Farbe wechse
15.07.2015 19:22:28
Jerome
Hallo zusammen,
wäre euch dankbar bei der Hilfe folgender Aufgabe:
Spalte A / Spalte B /Spalte C/Spalte D / Spalte E
Kategorie / Sortierung / Stufe 1 /Stufe 2 /Stufe 3
Produkt /0 / 10 /0/0/0
Produkt /0 / 10 /0 /0/0
Produkt /3 / 10 /0 /0/0
Produkt /0 / 10 /0 /0/0
Produkt /0 / 10 /0 /0/0
Produkt /3 / 10 /10 /3
Produkt /3 / 10 /10 /1
Ergebnis sollte sein, dass wenn in die Spalte Sortierung die Ziffer 3 eingegeben wird, der Balken sich automatisch blau färbt. Und umgekehrt, wenn die Ziffer 0 eingegeben wird, färbt sich der Balken rechts daneben rot (siehe Bild).
Wenn es geht, bitte ohne VBA (Makro). Geht das?
Wenn nicht, bitte ohne "Privat Sub" sondern einfach "Sub" beim VBA-Code.
Userbild

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung / Datenbalken / Farbe wechse
15.07.2015 19:38:52
Sepp
Hallo Jerome,
das geht nur per VBA (Was sollen deine ewigen Hinweise bezgl. Private Sub? Das ist Nonsens!)
Du musst die bedingte Formatierung für jede Zelle einzeln erstellen!
' **********************************************************************
' Modul: Tabelle2  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range
  
  On Error Resume Next
  
  If Target(1, 1).Column = 2 Then
    For Each rng In Target
      If rng.Column = 2 And rng.Row > 1 Then
        If rng = 3 Then
          rng.Offset(0, 1).Resize(1, 3).FormatConditions(1).BarColor.Color = RGB(0, 0, 255)
        Else
          rng.Offset(0, 1).Resize(1, 3).FormatConditions(1).BarColor.Color = RGB(255, 0, 0)
        End If
      End If
    Next
  End If
  
End Sub

Gruß Sepp

Anzeige
AW: Bedingte Formatierung / Datenbalken / Farbe wechse
15.07.2015 20:01:37
Jerome
Hey Sepp,
aus dem einfachen Grund, das ich mit "Privat Sub" nur Humbug habe.
Sry, aber deine Antwort hilft mir nicht weiter. Ich kann es so, wie du es schreibt, nicht umsetzen.
Brauche da mehr Infos als den bloßen Code. Tu mich mit VBA aktuell schwer.
Du musst die bedingte Formatierung für jede Zelle einzeln erstellen: Jede Zeile durch gehen und blau oder rot markieren? Brauche mehr Infos bzw. Schritte zum Ziel.
gruß

Anzeige
AW: Bedingte Formatierung / Datenbalken / Farbe wechse
15.07.2015 20:13:33
Sepp
Hallo Jerome,
"Excel Gut" ? Markiere C2:E2 und setzte deine Formatierung (Datenbalken > Einfarbige Füllung)
Klicke dann auf doppelt auf den Formatpinsel (Format Übertragen) und klicke in die Zellen C3:Cx.
Den Code kopierst du in das Modul der Tabelle (Rechtsklick auf Blattregister > Code anzeigen)
Gruß Sepp

Anzeige
AW: Bedingte Formatierung / Datenbalken / Farbe wechse
15.07.2015 20:28:57
Jerome
Hi,
"Excel Gut"? Bei solchen Antworten.... danke für deine Hilfe, aber es klappt nicht so wie gedacht.
Es passiert nicht das, was passieren soll. Ich mache wohl dennoch etwas falsch.
Zudem gibt es nicht nur die Ziffern 0 und 3 sondern 0 bis 6. Das Beispiel war zu einfach gemacht, mein Fehler.
gruß

Anzeige
AW: Bedingte Formatierung / Datenbalken / Farbe wechse
15.07.2015 21:03:18
Sepp
Hallo Jerome,
eine Beispieldatei.
https://www.herber.de/bbs/user/98846.xlsm
Gruß Sepp

Anzeige
AW: Bedingte Formatierung / Datenbalken / Farbe wechse
16.07.2015 20:24:03
Jerome
Hi,
der Wahnsinn. :) Vielen Dank Sepp!!!
gruß
Jerome
;

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
Werte aus einer Zelle in andere Zelle (neue Datei)
Franz

Tach auch,
folgendes Problem habe ich:
ich öffne eine Datei über eine Vorlage "rep.xlt". Die heisst dann bis zum Speichern "rep1". In einer Zelle wird eine Zahl eingetragen, bspw.: 1234. Dann kann ich die Datei per makro speichern, dann heisst sie: "rep1234.xls. Das funktioniert auch g...
22.01.2009 15:10:00
Thread-ID: 1042648
3 Beiträge
Prozent als Balken direkt in Zelle wie Musterbild
Fraenki

Hallo
Ich sprudle gerade so vor Ideen und muss feststellen dass ich ohne euer Wissen nichts auf die Reihe kriegen würde. Ich hoffe es findet sich jemand der mir hilft.
Ich möchte gerne wie auf dem Bild zu sehen hinter meinen Daten einen Balken hinter meinen Eingaben zeichnen lassender d...
13.04.2011 19:53:55
Thread-ID: 1210291
3 Beiträge
Bedingte Formatierung - Datenbalken
Roswitha

Hallo - kann mir jemand sagen, ob man bei Excel2007 bei einer bedingten Formatierung -
wenn man die Option Datenbalken anwählt, mehr als drei Bedingungen=Farben anwenden kann. Wäre super, wenn wenigsten vier möglich wären? Vielen Dank für Eure Mühe!
19.10.2012 10:16:05
Thread-ID: 1282763
2 Beiträge
Füllfarbe nach Wahrheitswert ausgeben
Tina

Hallo Zusammen,
Meine Problem von Gestern:
Der Wert aus Zeile A2 soll in der Spalte B: Zeilen 2 bis 100, gesucht werden und in Zeile C2 ausgegeben werden. Bei GENAU demselben Wert soll ein x ausgegeben und andernfalls ein - ausgegeben werden.
habe ich Dank der Hilfe hier gelöst beko...
30.01.2013 10:45:07
Thread-ID: 1296653
3 Beiträge
Datenbalken in Zellen zentrieren
Daniel

Hallo,
ich benötige ein bissl Hilfe bei der bedingten Formatierung "Datenbalken".
Mein Chef hat eine Tabelle gesehen die als "Hit-Liste" für Lieferanten genutzt wird. In der Liste ist der beste Lieferant Grün und der schlechteste Rot. Die Datenbalken sind unterschiedlich groß aufgrund d...
31.01.2013 08:31:46
Thread-ID: 1296848
2 Beiträge
Bedingte Formatierung Datenbalken
Kulo

Hallo Zusammen,
ich raff es nicht!
Ich habe eine Tabelle mit einem Haushaltsplan erstellt.
In Zelle B20 habe ich ein Budget der monatlich variablen Kosten hinterlegt.
In Zelle B50 bis B80 sind die tatsächlichen Ausgaben eingetragen und werden in B82 aufsummiert. Jetzt möchte ic...
31.03.2015 22:36:02
Thread-ID: 1418331
12 Beiträge
Bei Markierung Wert aus anderer Zelle Zählen
Gunni

Hallo Forum,
ich habe ein Problem mit der automatischen Berechnung von benötigten "Kursstunden"
Folgende Situation:
In meiner Tabelle habe ich alle Kurse die angeboten werden aufgeführt, in der nächsten Spalte stehen die Stunden die für den Kurs benötigt werden. Jetzt möchte ich in...
07.05.2015 15:38:52
Thread-ID: 1425235
8 Beiträge
Zellen unterschiedlich färben nach bestimmten Wert
Daniel

Hallo!
Ich wäre euch verbunden wenn ihr mir bei einem Problem weiterhelfen könntet.
Beschrieben habe ich es in der angehängten Excel Datei.
Es geht darum eine Zelle automatisch nach bestimmten Werten zu färben.
https://www.herber.de/bbs/user/102714.xlsx
Vielen Dank im Vorau...
11.01.2016 09:24:42
Thread-ID: 1468086
5 Beiträge
Anzeige
Farbewechsel nach Werteänderung
Claudia

Hallo zusammen,
ich habe eine Datei mit ca. 3.000 Datensätzen. Die Kundennummern befinden sich in Spalte A und werden untereinander geschrieben. Zu 99 % findet sich eine Kundennummer in mehreren Zeilen z.B. Zeile 3, 4, 5.
Ich bräuchte zur besseren Hervorhebung, wann eine andere Kundennu...
14.03.2017 11:55:32
Thread-ID: 1547260
7 Beiträge
Wertung nach Farben
Udo

Hallo Leute,Geht das Wertung nach Zahlen.Zum Beispiel:Grün +1
Gelb +1
Rot -1
Grau -1Rechnung Grün +1, Gelb +1, Rot -1 = 1
Wenn ja wie....???
Danke und schöne FeiertageUdo
20.12.2002 19:10:18
Thread-ID: 195667
7 Beiträge
Wert aus einer anderen Zelle PLUS text
Tim

Hallo,
vielleicht kann mir jemand verraten, ob folgendes überhaupt funktioniert:
z.B.
In Zelle A1 steh ein Anfangsdatum, in A2 ein Enddatum
In Zelle XY möchte ich nun "Blablabla von Anfangsdatum bis Enddatum" haben, wobei die Datumsangaben natürlich aktualisiert werden sollen, fall...
26.06.2003 17:01:50
Thread-ID: 274310
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Bedingte Formatierung und Datenbalken in Excel

Schritt-für-Schritt-Anleitung

  1. Daten eingeben: Erstelle eine Tabelle mit den gewünschten Werten in den Spalten A bis E. Achte darauf, dass die Spalte mit der Sortierung (z.B. Spalte B) die Werte 0 bis 6 enthält.

  2. Bedingte Formatierung hinzufügen:

    • Markiere die Zellen, die die Datenbalken anzeigen sollen (z.B. C2:E2).
    • Gehe zu „Start“ > „Bedingte Formatierung“ > „Datenbalken“ und wähle die gewünschte Farbe aus.
    • Für die gewünschte Farbanpassung nach Wert, klicke auf „Regeln verwalten“ und wähle „Neue Regel“.
    • Wähle „Formatieren von Zellen, die die folgenden Werte enthalten“ und stelle die Bedingungen für die Farbanpassung ein (z.B. Blau für 3 und Rot für 0).

  3. Format übertragen: Um die Formatierung auf die restlichen Zellen anzuwenden, klicke doppelt auf das Format Pinsel-Symbol und ziehe es über die Zellen, die du formatieren möchtest.

  4. VBA-Code (optional): Wenn du eine Automatisierung möchtest, kannst du den folgenden Code in das Modul der Tabelle einfügen:

    Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rng As Range
   On Error Resume Next
   If Target(1, 1).Column = 2 Then
       For Each rng In Target
           If rng.Column = 2 And rng.Row > 1 Then
               If rng = 3 Then
                   rng.Offset(0, 1).Resize(1, 3).FormatConditions(1).BarColor.Color = RGB(0, 0, 255)
               Else
                   rng.Offset(0, 1).Resize(1, 3).FormatConditions(1).BarColor.Color = RGB(255, 0, 0)
               End If
           End If
       Next
   End If
End Sub

Häufige Fehler und Lösungen

  • Datenbalken erscheinen nicht: Stelle sicher, dass die bedingte Formatierung korrekt angewendet wurde. Überprüfe auch, ob die richtigen Zellen markiert sind.

  • Farbe ändert sich nicht: Vergewissere dich, dass die Bedingungen in der bedingten Formatierung korrekt eingestellt sind. Überprüfe die genauen Werte, die du eingegeben hast.

  • VBA-Code funktioniert nicht: Achte darauf, dass du den Code im richtigen Modul eingefügt hast. Der Code sollte im entsprechenden Arbeitsblattmodul platziert werden, nicht im allgemeinen Modul.

Alternative Methoden

  • Excel-Datenbalken in Zelle: Du kannst die Datenbalken auch ohne VBA erstellen, indem du einfach die bedingte Formatierung direkt in der Zelle anwendest.

  • Prozentuale Füllung: Anstatt Farben zu verwenden, könntest du die Balken prozentual füllen, indem du die Werte in Prozent umrechnest und die Datenbalken entsprechend anpasst.

Praktische Beispiele

  • Beispiel für eine einfache Tabelle: Kategorie Sortierung Stufe 1 Stufe 2 Stufe 3
    Produkt 1 0 10 0 0
    Produkt 2 3 10 0 0

  • Ergebnis: Wenn du in die Zelle der Sortierung „3“ eingibst, färbt sich der Datenbalken in den Stufen 1 bis 3 blau. Bei „0“ wird er rot.

Tipps für Profis

  • Farbverlauf verwenden: Nutze den Farbverlauf für deine Datenbalken, um visuelle Unterschiede noch deutlicher zu machen. Das geht über die Einstellungen der bedingten Formatierung.

  • Vertikale Datenbalken: Wenn du die Datenbalken vertikal darstellen möchtest, kannst du die Zellen entsprechend formatieren und die bedingte Formatierung anpassen.

  • Werte aus anderen Zellen nutzen: Du kannst auch Werte aus anderen Zellen in die bedingte Formatierung einfließen lassen, um die Balkenfarbe dynamisch anzupassen.

FAQ: Häufige Fragen

1. Wie kann ich die Farbe der Datenbalken nach Wert anpassen?
Du kannst die Farbe der Datenbalken in den Regeln der bedingten Formatierung festlegen. Wähle die gewünschten Bedingungen aus und setze die Farben entsprechend.

2. Ist es möglich, die Datenbalken prozentual zu füllen?
Ja, du kannst die Datenbalken in Excel prozentual füllen, indem du die Werte in Prozent umrechnest und die bedingte Formatierung entsprechend anpasst.

3. Kann ich Datenbalken in Excel ohne VBA erstellen?
Ja, du kannst Datenbalken in Excel ohne VBA erstellen, indem du nur die bedingte Formatierung anwendest. VBA ist nur notwendig, wenn du spezifische Automatisierungen benötigst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige