Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
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
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung> 3 Bedingungen

Bedingte Formatierung> 3 Bedingungen
thomas
Hallo,
ich benötigige eine Zellformatierung mit 6 Bedingungen.
Hat jemand einen Lösungsvorschlag, einfaches Makro oder ähnlich..?
Beispiel:
wenn Zelle "A1 = Holz" Dann Zellfarbe "B1 = rot"
wennn Zelle"A1 =Stein" dann Zellfarbe " B1 =grün"
wenn Zelle "A1 = Glas" Dann Zellfarbe " B1= gelb"
wenn Zelle " A1 = Stahl" Dann Zellfarbe" B1= blau
usw.
Danke für die Hilfe
thomas

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Select Case
11.10.2010 15:05:31
CitizenX
Hallo Thomas,
Code kommt ins Modul des Blattes:
[CODE]

Private Sub Worksheet_Change(ByVal Target  _
As Range)
If Target.Address = "$A$1" Then
With Cells(1, 1)
Select Case .Value
Case "Holz"
.Interior.ColorIndex = 3
Case "Stein"
.Interior.ColorIndex = 4
Case "Glas"
.Interior.ColorIndex = 6
Case "Stahl"
.Interior.ColorIndex = 5
End Select
End With
End If
End Sub

Grüße
Steffen
Anzeige
AW: Select Case
11.10.2010 15:33:19
thomas
Hallo Steffen,
danke für die Hilfe.
Habe den code in ein Modul eingefügt, in der Zelle B1 ändert sich die Farbe aber nicht.
?
Gruß
thomas
AW: Select Case
11.10.2010 15:41:47
CitizenX
Hallo Thomas,
dies war ein Bsp.
wenn du mehr Zellen haben möchtest,dann poste mal welcher Bereich für die Abfrage zutreffen soll.
Grüße
Steffen
AW: Select Case
11.10.2010 16:06:59
thomas
Sorry, bin halt VBA laie.
Wie beschrieben,
Wenn Dann
A1 B1
holz zellfarbe rot
stein zellfarbe grün
glas zellfarbe gelb
stahl zellfarbe blau
Ziel ist, Wenn sich in der Zelle "A1" der Begriff ändert, ändert sich auch in Zelle "B1" die Farbe
thomas
Anzeige
AW: Select Case
11.10.2010 16:31:53
CitizenX
Sorry war meine Schuld,hatte das mit B1 überlesen...
so sollte es funktionieren:
[CODE]

Private Sub Worksheet_Change(ByVal Target  _
As Range)
If Target.Address = "$A$1" Then
With Cells(1, 2)
Select Case Cells(1, 1).Value
Case "Holz"
.Interior.ColorIndex = 3
Case "Stein"
.Interior.ColorIndex = 4
Case "Glas"
.Interior.ColorIndex = 6
Case "Stahl"
.Interior.ColorIndex = 5
End Select
End With
End If
End Sub
 

Grüße
Steffen
Anzeige
AW: Select Case
11.10.2010 17:35:12
thomas
...DAAANKEE
Warum kommt eigentlich keiner von euch mal...
11.10.2010 17:56:26
euch
…auf die Idee, es direkt mit Bedingt-Formatierung zu versuchen, als nur immer an den direkten Zellformaten rumzubosseln. VBA bietet auch dafür Möglichkeiten und man kann das auch so komfortabel gestalten, dass man die Farben bzw anderen mögl Formate auf dem TabBlatt auswählt, bspw in einer Legende, die ja ohnehin nicht fehlen sollte, wenn man so etwas anwendet.
Tip: Es müssen ja nur die Formate ausgetauscht wdn, nicht die HptBedingung. Die Nebenbedingg f.d.Formatwechsel kann man auch in der BlattLegende halten. Das Ganze ist idR nicht allzu kompliziert. Ich nenne das Dynamisierung des Bedingtformats! Dazu sind im Archiv schon 2-3 Beiträge mit Bspp zu finden.
Gruß Luc :-?
Anzeige
Weil vielleicht...
11.10.2010 18:23:52
Christian
Hallo Luc;-?,
...Deine Bschreibung dazu einfach zu verworren ist, d.h. Du benutzt in der Erklärung soviele nicht normierte Abkürzungen, und die Übersichtlichkeit ist auch eher dazu geeignet, das Ding als Ishihara-Tafel zu benutzen ;-)
MfG Christian
Das erklärt höchstens, warum meine Lösung...
12.10.2010 19:01:33
Luc:-?
…nicht verstanden wird, aber nicht, warum keiner auf die gleiche Idee kommt, Christian… ;->>
Außerdem ist da ja noch ein komplexes Bsp in Dateiform m.PgmCode…
Ich vermute Denkfaulheit und den allgemeinen Hang zum Voneinander-Abschreiben. Es gibt auch historische Bspp dafür, dass ein vermeintlicher Experte etwas behptet und alle beten das ohne eigene Recherche nach bis es dann doch mal einer macht und siehe da…
Gruß :-?
Anzeige
AW: Das erklärt höchstens, warum meine Lösung...
12.10.2010 19:15:12
Christian
Hallo Luc,
und gerade weil es nicht verstanden wird, wird es evtl. auch nicht angewandt.
Hätte Columbus zu Königin Isabella nur schwer verständliche Erklärungen gegeben, hätte die seine Unternehmungen bestimmt nicht unterstützt!
P.S. hatte mich gestern extra nochmal auf die Suche nach Deiner bed.Formatierung gemacht, da ich sie paarmal nicht verstanden habe, konnte sie leider nicht mehr finden, evtl. kannst Du ja den Link hier nochmal einstellen.
MfG Christian
Wenn du den Download-Link meinst,...
12.10.2010 21:47:59
Luc:-?
…Christian,
den findest du hier!
Gruß Luc :-?
Anzeige

313 Forumthreads zu ähnlichen Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
Bedingte Formatierung in Abhängigkeit mehrerer Fel
Thomas

hallo,
ich habe bei einer automatischen formatierung ein paar probleme.
meine tabelle beinhaltet die informationen über switchbelegung und portkonfiguration wie folgt:
Port; Patchfeld; Last input; Last output; VLAN 1; VLAN2; Description
nun sollen die jeweiligen Zeilen anhand de...
11.11.2008 11:56:34
Thread-ID: 1023497
6 Beiträge
Bedingte Formatierung über Tabellenblätter
Thomas

Hallo,
ich habe in einem extra Datenblatt welches Stammdaten enthält einen Code für die Formatierung
erzeugt (vier verschiedene Farbe Sollen Verwendung finden).
Wie kann ich ohne Verwendung des Menüs Bedingte Formatierung, in dem mir nur 3 Bedingungen
zur Verfügung stehen, ohne...
12.11.2008 14:06:30
Thread-ID: 1023831
2 Beiträge
Anzeige
Bedingte Formatierung: Zielenminimum
Wolff

Hallo zusammen,
ich hab ein kleines Problem mit der bedingten Formatierung.
Und zwar möcht ich in einem Arbeitsblatt das jeweilige Zeilenminimum hervorheben. Die Formel für eine Ziele ist soweit kein Problem, allerdings funktioniert das "runterziehen" des Formats nicht. Excel erweitert...
09.12.2008 12:30:00
Thread-ID: 1031341
8 Beiträge
bedingte Formatierung in 2007version
lufrio1

Hallo,
ich verzweifle gerade an der bekn...... Bedingten Formatierung.
Wie kann ich folgendes darstellen:
wenn die Zelle C3 ist kleiner als 9 dann mach C27-f27 grün, sonst weiß lassen.
Vielen dank im Voraus.
Lufrio
16.12.2008 11:10:55
Thread-ID: 1033231
2 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 einer ganzen Zeile
Steffan

Hallo,
hab ein neues Problem.
Spalte B ist Hilfsspalte mit 1 oder 0
Ist in der Zelle der Hilfsspalte z.B. (5,2) eine 1, dann die Zeile Rot (zumindestens 5 Spalten davon), ansonsten bleibts so wies ist.
Über bedingte Formatierung hab ich in anderen Foren gelesen, billige Beispiel...
23.12.2008 11:50:29
Thread-ID: 1034966
4 Beiträge
Tabellenreiter färben mit bedingter Formatierung
Marcus

Hi und guten Tag,
ich möchte den Tabellenreiter eines Arbeitsblattes färben, wenn die Zelle K17 via einer bedingten Formatierung "Rot" gefärbt wird. Wenn sie "Grün" wird, dann grün...
Dazu hab ich aus den Internet folgenden VBA-Code:
Sub Auto_Open() Dim objWorksheet As Worksheet...
04.04.2009 18:57:06
Thread-ID: 1066873
5 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
3
7
5
1
2
7
1
6
3
4
6
3
2
9
2
2
13
2
4
4
2
11
3
2
10