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

Bed. Formatierung in Abhängigkeit mehrerer Zellen

Forumthread: Bed. Formatierung in Abhängigkeit mehrerer Zellen

Bed. Formatierung in Abhängigkeit mehrerer Zellen
Stefan
Hallo zusammen
Ich stehe wieder einmal vor einem Problem, bei welchem ich auf eure Unterstützung angewiesen bin:
Ich bearbeite eine Geschäfts-Pendenzenliste, welche mehr als 3 dedingte Formatierungen beinhaltet. Die Bedingungen sind vom Inhalt mehreren Zellen abhängig. Nun zu meinem Beispiel:
Diese Bedingungen hatte ich bis jetzt unter der Bedingten Formatierung eingestellt:
Für Bereiche A:D, F:H
=UND(RECHTS(A4;2)"00";G4="p") dann Schriftfarbe schwarz schmal (1) (Standard)
=UND(RECHTS(A4;2)="00";G4="p") dann Schriftfarbe schwarz (1) fett
=UND(RECHTS(A4;2)="00";G4="e") dann Schriftfarbe grau (16) fett
=UND(RECHTS(A4;2)"00";G4="e") dann Schriftfarbe grau (16) schmal
*Zusätzlich kommen folgende Formatierungen neu dazu:
Für Bereich E:E
* =UND(RECHTS(A4;2)="00";E4="hf";G4="p") dann Schriftfarbe grün (43) fett
* =UND(RECHTS(A4;2)="00";E4="sf";G4="p") dann Schriftfarbe orange (45) fett
* =UND(RECHTS(A4;2)="00";E4="AMü";G4="p") dann Schriftfarbe lila (7) fett
* =UND(RECHTS(A4;2)="00";E4="PV";G4="p") dann Schriftfarbe violett (13) fett
=UND(RECHTS(A4;2)="00";G4="e") dann Schriftfarbe grau (16) fett
* =UND(RECHTS(A4;2)"00";E4="hf";G4="p") dann Schriftfarbe grün (43) schmal
* =UND(RECHTS(A4;2)"00";E4="sf";G4="p") dann Schriftfarbe orange (45) schmal
* =UND(RECHTS(A4;2)"00";E4="AMü";G4="p") dann Schriftfarbe lila (7) schmal
* =UND(RECHTS(A4;2)"00";E4="PV";G4="p") dann Schriftfarbe violett (13) schmal
=UND(RECHTS(A4;2)"00";J4="e") dann Schriftfarbe grau (16) schmal
* =UND(RECHTS(A4;2)="00";ODER(E4"hf;E4"sf";E4"AMü";E4"PV");G4="p") dann
Schriftfarbe schwarz (1) fett
* =UND(RECHTS(A4;2)"00";ODER(E4"hf;E4"sf";E4"AMü";E4"PV");G4="p")
dann Schriftfarbe schwarz (1) schmal
Erläuterung:
Für Spalten A:D und F:H:
Wenn A4 (2 Zeichen von rechts) = "00" ergibt und der Inhalt von G4 = "p" ist, dan muss die Schrift von A4:D4; F4:H4 fett schwarz formatiert werden
usw.
Für Spalte E:
Wenn A4 (2 Zeichen von rechts) = "00" ergibt, der Inhalt von E4 = "hf" ist und der Inhalt von G4 = "p" ist, dan muss die Schrift in E4 fett grün formatiert werden
usw.
Ich will nun alle Bedingungen in ein Makro einbauen, so dass nach einer Eingabe in den definierten Bereichen A:D, E:E und F:H die entsprechenden Formatierungen automatisch übernommen werden, z.B. mit folgender Anweisung:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A4:H")) Is Nothing Then
…
Weiss jemand, wie ich die Bedingungen sinnvoll mit einem Makro zum Laufen bringe?
Ich hoffe es meldet sich jemand, trotz der warmen Ferienzeit!
Es grüsst Euch
Stefan
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bed. Formatierung in Abhängigkeit mehrerer Zellen
21.07.2010 19:18:54
fcs
Hallo Stefan,
in meiner kühlen Untergeschoß-Einlieger-Mietwohnung konnte ich deine Wüsche wohl doch auf die Reihe bringen.
In einer deiner Prüfeungen wolltest prüfen: J4="e"
Ich nehme an, das sollte auch G4="e" heißen. Falls nicht, dann muss man an der Prozedur nochmals basteln.
Gruß
Franz 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngRow As Range, Zeile As Long
'Zeile und Spalte der geänderten Zelle(n) prüfen
If Target.Row >= 4 And Target.Column = 4 Then
'Font-Einstellungen zurücksetzen in Spalten A:H
With Range(Cells(Zeile, 1), Cells(Zeile, 8)).Font
.ColorIndex = xlAutomatic: .Bold = False
End With
'Spalten A:D und F:G formatieren
With Application.Union(Range(Cells(Zeile, 1), Cells(Zeile, 4)), _
Range(Cells(Zeile, 6), Cells(Zeile, 8))).Font
'rechte 2 Zeichen in Spalte A prüfen
Select Case Right(Cells(Zeile, 1), 2)
Case "00"
'Wert in Spalte G prüfen
Select Case Cells(Zeile, 7) 'Wert in Spalte G
Case "p": .ColorIndex = 1:  .Bold = True
Case "e": .ColorIndex = 16: .Bold = True
End Select
Case Else ' "00"
'Wert in Spalte G prüfen
Select Case Cells(Zeile, 7) 'Wert in Spalte G
Case "p": .ColorIndex = 1:  .Bold = False
Case "e": .ColorIndex = 16: .Bold = False
End Select
End Select
End With
'Spalte E formatieren
With Cells(Zeile, 5).Font
'rechte 2 Zeichen in Spalte A prüfen
Select Case Right(Cells(Zeile, 1), 2)
Case "00"
'Wert in Spalte G prüfen
Select Case LCase(Cells(Zeile, 7)) 'Wert Spalte G
Case "p"
'Wert in Spalte E prüfen
Select Case Cells(Zeile, 5)
Case "hf":  .ColorIndex = 43: .Bold = True
Case "sf":  .ColorIndex = 45: .Bold = True
Case "AMü": .ColorIndex = 7:  .Bold = True
Case "PV":  .ColorIndex = 13: .Bold = True
Case Else:  .ColorIndex = 1:  .Bold = True
End Select
Case "e"
.ColorIndex = 16: .Bold = True
End Select
Case Else ' "00"
'Wert in Spalte G prüfen
Select Case Cells(Zeile, 7) 'Wert Spalte G
Case "p"
'Wert in Spalte E prüfen
Select Case Cells(Zeile, 5) 'Wert Spalte E
Case "hf":  .ColorIndex = 43: .Bold = False
Case "sf":  .ColorIndex = 45: .Bold = False
Case "AMü": .ColorIndex = 7:  .Bold = False
Case "PV":  .ColorIndex = 13: .Bold = False
Case Else:  .ColorIndex = 1:  .Bold = False
End Select
Case "e": .ColorIndex = 16: .Bold = False
End Select
End Select
End With
End If
Next
End If
End Sub

Anzeige
Stichwort: Dynamisiertes BedingtFormat
22.07.2010 16:59:07
Luc:-?
Hi Stefan,
such mal im Herber-Archiv, dann bekommst du das auch mit (dynamisierter) echter BedingtFormatierung (allerdings nur mit VBA-Unterstützung) vor xl12 mit beliebig vielen (Unter-)Bedingungen hin.
Diese Möglichkeit ist leider immer noch nicht bei der Allgemeinheit der Foristen angekommen, weshalb stets und ständig Vorschläge a la CFPlus (s.Franz, Hajo u.a.) gemacht wdn… ;->
Gruß Luc :-?
Anzeige

Forumthreads zu verwandten Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Währungsformat in Zellen Vol.2
Henner

Hi,
leider bekomme ich keine Antwort auf mein Post:
https://www.herber.de/forum/archiv/1016to1020/t1018098.htm
Ich gehe davon aus, dass ich das Problem einfach nicht so gut beschreiben kann. Habe das ganze Szenario jetzt nochmal ganz vereinfacht nachgebaut, hoffe ich komme damit nu...
21.10.2008 21:58:00
Thread-ID: 1018178
5 Beiträge
Fehler bei Formel per Makro in Zelle eintragen
Born

Hallo Forum,
ich habe folgendes Problem:
Ich schreibe per Makro in Zellen eine Formel. Als Ergebnis bekomme ich jedoch nur die Fehlermeldung #NAME?. Wenn ich dann mit F2 in den Bearbeiten-Modus gehe und Enter drücke, kommt das richtige Ergebnis. Meine Formel scheint also richtig zu sein...
23.10.2008 10:15:00
Thread-ID: 1018538
11 Beiträge
Zelle in Währungsformat setzen
Larissa


Hallo,
ich lasse in eine Tabelle durch VBA in einer Zeile Daten eintragen, welche aus verschiedenen Tabellenblättern gesammelt werden.
In Spalte 11 Wird die Währung "USD" oder "EUR" eingetragen und zwei Spalten danach die Summe. Die Spalte mit der Summe muss entsprechend der Währu...
23.10.2008 20:39:35
Thread-ID: 1018794
5 Beiträge
Formel in Zellen einfügen!
Andi

Hallo zusammen,
ich würde gerne mit Hilfe eines Makros eine Formel in die die Spalte "Q" einfügen.
Die Formel soll jedoch nur in de Zellen der Spalte "Q" eingetragen werden,
wo auch ein Wert in der jeweiligen Zeile der Spalte "L" vorhanden ist.
Ich hoffe es kann mir jemand bei...
30.10.2008 21:03:30
Thread-ID: 1020721
6 Beiträge
Formelwerte in bestimmte Zellen
Sebastian

Hallo zusammen,
ich möchte gerne mit Hilfe eines Makros oder ähnlichem die Formelwerte eines bestimmten Arrays in ein bestimmtes Array eintragen lassen, wenn man darauf klickt.
Ist dies möglich? Wenn ja, wie? ;)
Vielen Dank für eure Hilfe und falls Ihr noch etwas mehr Info braucht,...
17.11.2008 21:32:00
Thread-ID: 1025413
7 Beiträge
formel in zelle,mit makro
rolf

hallo
wie kann ich diese formel =DATEDIF(E2;$F$1;"Y") mit einem makro in tabelle1 zelle f2 eintragen.
mfg rolf
25.11.2008 23:12:13
Thread-ID: 1027900
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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