Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1168to1172
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
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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 :-?

311 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
Währungsformat in Zellen
Henner

Hi,
mit den folgenden Codes (Modul) lasse ich das Währungsformat in Zellen ändern. Einmal in EUR und einmal in CHF:
Sub EUR() Sheets("RNG.PDF").Select Range("I34:J42,J48:J51").Select Range("J48").Activate Selection.NumberFormat = "#,##0.00 $" End Sub
Sub CHF() Sheets("RNG.PDF")...
21.10.2008 17:27:54
Thread-ID: 1018098
2 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
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
2
4
9
13
2
4
5
1
4
10
4
5
6
2
6
2
3
5
4
2
1
5
4
5
3