Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1116to1120
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
1116to1120
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingtes Formatierung mit Makro

Bedingtes Formatierung mit Makro
Kai
Hi,
Ich habe in einem Sheet1 Datensätze stehen. IN der Spalte G sind in jedem DS Prozentzahlen drin (entweder 20, 40, 60, 80, oder 100 %)
Neben der Spalte G sind 5 leere Spalten :
H ist für 20 %
I ist für 40 %
J ist für 60 %
K ist für 80 %
L ist für 100 %
Ich möchte nun per Makro (schleife) alle Datensätze durcharbeiten. Zuerst muss die Spalte G angeschaut werden, was da für ein wert drin steht. Steht dort zB 20% soll die Daneben stehende Zelle (H) grau gefärbt werden, steht in G zB 60% drin, müssen die daneben stehenden Spalten H, I und J farblich markiert werden usw. Für jeden 20er-Schritt eine Spalte weiter nach rechts.
Also, dass ich nachher sowas wie einen Balken habe, der mit die Prozente aus der Spalte G farblich anzeigt.
Hat da einer eine Idee, wie man das machen könnte ?
Danke mal für Eure Unterstützung.
Kai
Fehler in bedingter Formatierung
12.11.2009 10:21:58
Tino
Hallo,
ersetze im Code die Zeile
.FormatConditions.Add Type:=xlExpression, Formula1:="=H2="" """
durch diese
.FormatConditions.Add Type:=xlExpression, Formula1:="=" & ActiveCell.Address(0, 0) & "="" """
Gruß Tino
AW: Fehler in bedingter Formatierung
12.11.2009 11:06:42
Kai
Hallo Tino,
mach ich was falsch , oder der Code: wenn ich die Spalte G um einen wert erweitere, also in G7 auch noch ein Prozent-Wert reinschreibe, dann stürtzt der Code ab. Woran liegt das ?
Werte können so zwischen 20 und 30 Zeilen runter gehen.
Danke
Kai
Anzeige
AW: Fehler in bedingter Formatierung
12.11.2009 12:38:29
Tino
Hallo,
habe den Code nochmal angepasst, hier die Datei.

Die Datei https://www.herber.de/bbs/user/65814.xls wurde aus Datenschutzgründen gelöscht


Gruß Tino
AW: Fehler in bedingter Formatierung
17.11.2009 08:14:54
Kai
Hi Tino,
Sorry, ich habe mich garnicht bedankt, das will ich nun hier mit tun.
Ich hätte noch eine Bitte. bzw. Frage:
Wenn ich Dein Code richtig verstehe, dann wird die bedingte Formatierung dadurch erreicht, dass Du in die Zellen ein LEERZEICHEN rein machst, das ist dann das KriteriuM dafür, dass die Zelle gefärbt wird !
Richtig ?
Wenn Du die Formel : =WENN(ABRUNDEN($G6*100/10;0)>=SPALTE(A$1);" ";"") per Makro reinschreinbst, ist es da zB. möglich, wenn in der Spalte A vorne "PLANUNG" steht die bedingte Formatierung in einem dunkleren Grau zu machen.
Ich könnte mir das so vorstellen, der Code wie seither und wenn in der Spalte A in der entsprechenden Zeile ein "Planung" steht, dann ZWEI Leerzeichen rein machen und man fügt noch eine zweite bedingte Formatierung ein, die zuschlägt, wenn zwei Leerzeichenin den Zellen sind.
Geht das ?
Ich habe Dir zum besseren Verständnis Dein altes Beispiel noch mal beigefügt und habe es mal Grafisch dargestellt.
https://www.herber.de/bbs/user/65965.xls
Danke
Kai
Anzeige
mit einer zweiten Bedingung
17.11.2009 15:02:41
Tino
Hallo,
habe dies mit einer zweiten Bedingung gelöst wo nach zwei Leerzeichen gefärbt wird.
Sub Makro1()
Dim Bereich As Range
Set Bereich = Range("G2", Cells(Rows.Count, 7).End(xlUp))
Set Bereich = Range(Bereich.Offset(0, 1), Bereich.Offset(0, 5))

If Not Intersect(Bereich, Rows(1)) Is Nothing Then Exit Sub
With Bereich
    .FormulaR1C1 = "=IF(ROUNDDOWN(RC7*100/20,0)>=COLUMN(R1C[-7]),IF(RC1=""Planung"",""  "","" ""),"""")"
    .Value = .Value
     Columns("H:L").FormatConditions.Delete
    
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & ActiveCell.Address(0, 0) & "="" """
    With .FormatConditions(1).Interior
        .ColorIndex = 15
    End With

    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & ActiveCell.Address(0, 0) & "=""  """
    With .FormatConditions(2).Interior
        .ColorIndex = 16
    End With
End With
End Sub
Gruß Tino
Anzeige
AW: mit einer zweiten Bedingung
17.11.2009 16:09:16
Kai
Hallo Tino,
Danke für die schnelle Antwort. Muss ich dann noch über bedingte Formatierung eine zweite anlegen und da zwei leerzeichen reinmachen und eine andere Farbe defineiren ?
Gruss
Kai
Vielen, vielen Dank ....
17.11.2009 16:42:13
Kai
Hi Tino,
ahh, geht ohne. OK funktioniert wunderbar, danke
Gruss
Kai
Bedingte Formatierung ohne Makro
12.11.2009 10:12:29
Erich
Hallo Kai,
wozu brauchst du da ein Makro? Das geht mit bed. Formatierung:
 GHIJKL
1Proz20%40%60%80%100%
220%     
3100%     
45%     
560%     

Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
H21. / Formel ist =$G2>=H$1Abc
I21. / Formel ist =$G2>=I$1Abc
J21. / Formel ist =$G2>=J$1Abc
K21. / Formel ist =$G2>=K$1Abc
L21. / Formel ist =$G2>=L$1Abc
H31. / Formel ist =$G3>=H$1Abc
I31. / Formel ist =$G3>=I$1Abc
J31. / Formel ist =$G3>=J$1Abc
K31. / Formel ist =$G3>=K$1Abc
L31. / Formel ist =$G3>=L$1Abc
H41. / Formel ist =$G4>=H$1Abc
I41. / Formel ist =$G4>=I$1Abc
J41. / Formel ist =$G4>=J$1Abc
K41. / Formel ist =$G4>=K$1Abc
L41. / Formel ist =$G4>=L$1Abc
H51. / Formel ist =$G5>=H$1Abc
I51. / Formel ist =$G5>=I$1Abc
J51. / Formel ist =$G5>=J$1Abc
K51. / Formel ist =$G5>=K$1Abc
L51. / Formel ist =$G5>=L$1Abc

Die Formel ist überall gleich, nur die Farben sínd pro Spalte verschieden. Du kannst also die Formate nach unten kopieren.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Bedingte Formatierung ohne Makro
12.11.2009 11:09:54
Kai
Hallo Erich,
meinst Du oben, die Funktion Bedingts Formatieren ? Aber da kann ich doch max. 3 Bedingungen angeben
Gruss
Kai
Bedingte Formatierung mit einer Bed.
12.11.2009 11:35:39
Erich
Hallo Kai,
das verstehe ich jetzt nicht. Ich habe doch nur 1, nicht 3 Bedingungen hingeschrieben. Mehr als 1 wird nicht gebraucht.
Die Bedingung ist sogar prinzipiell in allen Zellen gleich - du kannst sie nach rechts und unten kopieren.
Lediglich die Farben (Muster) sind pro Spalte verschieden.
Hast du nicht einfach mal ausprobiert, was ich vorhin gepostet habe?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

318 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Bedingte Formatierung mit Bereich
Burghard

Hallo,
ich habe einen Fotokalender gebastelt (für jeden Monat ein Blatt).
Das Jahr läßt sich im 1. Tabellenblatt in Zelle A1 einstellen. Alle anderen Tabellenblätter ändern sich entsprechend.
In den Monaten habe ich verschiedene Bereiche mit einer bedingten Formatierung versehen, um...
05.10.2008 16:09:12
Thread-ID: 1014259
6 Beiträge
SVERWEIS funktioniert nicht
sascha76er

Hallo,
hoffentlich kann mir jemand hier helfen, bei mir funktionieren die SVERWEISE für die Spalten
AI, AQ, AR, AS
nicht.
Leider ist meine Liste größer wie 300 kb, deshalb musste ich die Liste bei einem 1Klickhoster bereitstellen.
Liste: http://www.mediafire.com/?oxyk0vmb21x...
08.10.2008 11:23:24
Thread-ID: 1014967
7 Beiträge
Anzeige
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
Bedingten Formatierung mit MIN; gr. als Mittelwert
Eva

Hallo,
ich habe ein Problem mit einer Bedingten Formatierung.
Ich möchte mir in mehreren Zeilen die MIN Were grün anzeigen lassen und die Werte, welche größer oder gleich dem Durchschnitt sind rot. Leider haut es so gut wie nie in den Zeilen hin. Oft markiert er nur eine Zelle, die ande...
18.12.2008 16:01:00
Thread-ID: 1033913
7 Beiträge
Bedingte Formatierung mit Formeln beschränkt?
Vera

Hallo. Stoße gerade auf ein seltsames Phänomen:
wenn ich eine bedingte Formatierung auf ein Formelergebnis lege, klappt das gut. Das Formelergebnis habe ich dann runterkopiert - auch dann ist die bedingte Formatierung noch ok. Aber ab einer gewissen Anzahl Zeilen klappts dann nicht mehr.
16.01.2009 10:39:21
Thread-ID: 1040464
9 Beiträge
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
bedingte Formatierung mit Datum
Andy

Guten Tag,
ich habe eine Frage.
Ich würde gerne die folgende Bedienung in einer bedingten Formatierung umsetzen.
wenn ein Datum in einer Zelle (A1) nach dem Datum in einer anderen Zelle (A2) ist und eine dritte Zelle (A3) leer ist, dann mache die Zelle (A1) rot.
geht das?
vi...
21.01.2009 16:33:00
Thread-ID: 1042306
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
7
1
5
6
7
4
6
8
5
2
7
3
1
3
4
2
2
1
2
1
2
2
5
7
15