Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
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
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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ß

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ß

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

315 Forumthreads zu ähnlichen Themen

Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Anzeige
Wenn ijn Spalte Datum von Jänner dann Werte zählen
Jänner

Hallo!
Ich habe in der Spalte A ab der Zeile 3 Datumwerte aus den Wochenenden und den Feiertagen stehen.
In der spalte G, H, I stehen nun Werte.
Ich möchte nun alle Werte in Abhängigkeit des Datums zusammenzählen.
Ist in der Spalte A das Jänner Datum vorhanden dann sollen die We...
07.01.2009 08:42:00
Thread-ID: 1037440
4 Beiträge
Wenn Dann mit Werten zwischen 2 Zellen
Thomas

Hallo,
montagsgemäß steh ich gerade auf dem Schlauch und benötoge Hilfe für folgendes Problem:
ich habe mind. 10 Werte in % von 50% bis 110%
In den Zellen A1 bis A10 steht ein Text, dahinter also in B1 bis B10 die Prozentwerte.
Dann steht in C1 ein Objektspezifischer Wert/ein E...
23.02.2009 11:55:52
Thread-ID: 1053025
3 Beiträge
Anzeige
Bedingte Formatierung-Rahmen für bestimmte Zellen
Peter

Hallo zusammen,
ich möchte in einem Tabellenbereich alle Zellen, die eine Zahl enthalten und daher nicht leer sind, mit einem "Rahmen" versehen.
Ich versuche es z.Zt. mit "bedingter Formatierung" und dann "Formel ist" = Istzahl. Leider funktioniert das nicht. Vielleicht hat jemand von E...
20.03.2009 13:51:29
Thread-ID: 1062187
3 Beiträge
Bedingte Formatierung bei leerer Zelle
Marko

Hallo,
vermutlich schon tausend mal gefragt, aber irgendwie komme ich nicht klar.
Wenn in J2 etwas drin steht, soll die Zelle weiß bleiben; wenn nicht, soll sie rot eingefärbt werden.
Wie muss ich die Bedingte Formatierung hierfür gestalten?
Gruss,
Marko
05.05.2009 10:41:00
Thread-ID: 1072999
3 Beiträge
Bedingte Formatierung leere Zellen farbig
ropa

Hallo,
nochmal Bedingte Formatierung
Wie kann ich einen Zellbereich so mit der bedingten Formatierung belegen das alle leeren Zellen z.B. gelb hinterlegt sind wenn ich einen Wert oder Text eingebe dann soll die Formatierung verschwinden.
Grüße
Roland
23.06.2009 14:24:25
Thread-ID: 1083810
2 Beiträge
Eintrag aus Textfeld in zelle übernehmen wenn leer
Benni

hallo,
kann mir jemand helfen, ich kenne mich mit VBA nicht wirklich gut aus.
ich möchte die Eingabe in einem Textfeld auf einer UserForm in eine Zelle auf dem Worksheets "Werte" übertragen. Problem bei der Sache ist, dass z.B. ich bei der Zelle A1 Anfange und wenn dort schon ein „Inhal...
24.06.2009 09:05:21
Thread-ID: 1083991
14 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 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
6
2
3
2
3
2
2
1
13
1
2
2
12
2
2
6
2
7
8
9
7
2
6
2
1