Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
992to996
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
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bedingte Formatierung bei 15 Kriterien

bedingte Formatierung bei 15 Kriterien
22.07.2008 19:39:00
Zürn
Hallo !
Ich möchte einer Zelle eine bestimmte Farbe zuweisen und zwar anhand
von 15 verschiedenen Kriterien, welche in der Spalte A ermittelt werden.
Beispiel:
Zelle mit Wert-Spalte A Zelle mit Farbe - Spalte B
A1 "1" automatische Farbzuweisung in B1 "rot"
A2 "2" automatische Farbzuweisung in B2 "blau"
A3 "9" automatische Farbzuweisung in B3 "schwarz"
A4 "1" automatische Farbzuweisung in B4 "rot"
A5 "2" automatische Farbzuweisung in B5 "blau"
A6 "15" automatische Farbzuweisung in B6 "gelb"
Da mit der bedingten Formatierung nur
drei Kriterien möglich sind, ich aber 15 Möglichkeiten habe benötige Eure Hilfe.
Für eine Rückinfo wäre ich sehr dankbar.
Gruss
Bernhard

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Mit VBA
22.07.2008 19:49:00
Backowe
Hallo Bernhard,
Private Sub Worksheet_Change(ByVal Target As Range)
'Code in das entsprechende Tabellenblatt
If Not Intersect(Target, [A1:A20]) Is Nothing And Target.Count = 1 Then
  With Target
    Select Case Target
      Case 1: .Offset(0, 1).Interior.ColorIndex = 3
      Case 2: .Offset(0, 1).Interior.ColorIndex = 5
      Case 9: .Offset(0, 1).Interior.ColorIndex = 1
      Case 15: .Offset(0, 1).Interior.ColorIndex = 6
      'usw
      Case Else: .Offset(0, 2).Interior.ColorIndex = xlNone
    End Select
  End With
End If
End Sub
Gruss Jürgen

Anzeige
Tippfehler verbessert
22.07.2008 21:50:38
Backowe
VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Code in das entsprechende Tabellenblatt
'Bereich auf deine Bedürfnisse anpassen!
If Not Intersect(Target, [A1:A20]) Is Nothing And Target.Count = 1 Then
  With Target
    Select Case Target
      Case 1: .Offset(0, 1).Interior.ColorIndex = 3
      Case 2: .Offset(0, 1).Interior.ColorIndex = 5
      Case 9: .Offset(0, 1).Interior.ColorIndex = 1
      Case 15: .Offset(0, 1).Interior.ColorIndex = 6
      'usw
      Case Else: .Offset(0, 1).Interior.ColorIndex = xlNone
    End Select
  End With
End If
End Sub

Anzeige
AW: zusätzliche Frage
23.07.2008 07:45:06
Peter
Hallo
Das ist ein wirklich guter Tipp, den man oft verwenden kann.
Wie würde der Code aussehen, wenn ein Bereich neben der Eingabezelle gefärbt werden soll (zB die nächsten 4 Zellen nach rechts)?
Gruss Peter

AW: zusätzliche Frage
23.07.2008 09:54:00
Backowe
Hi Peter,
VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Code in das entsprechende Tabellenblatt
'Bereich auf deine Bedürfnisse anpassen!
If Not Intersect(Target, [A1:A20]) Is Nothing And Target.Count = 1 Then
  With Target
    Select Case Target
      Case 1: Range(.Offset(0, 1), .Offset(0, 4)).Interior.ColorIndex = 3
      Case 2: Range(.Offset(0, 1), .Offset(0, 4)).Interior.ColorIndex = 5
      Case 9: Range(.Offset(0, 1), .Offset(0, 4)).Interior.ColorIndex = 1
      Case 15: Range(.Offset(0, 1), .Offset(0, 4)).Interior.ColorIndex = 6
      'usw
      Case Else: Range(.Offset(0, 1), .Offset(0, 4)).Interior.ColorIndex = xlNone
    End Select
  End With
End If
End Sub
Gruss Jürgen

Anzeige
AW: zusätzliche Frage
23.07.2008 10:55:00
Peter
Hallo Jürgen
klappt wunderbar, vielen Dank für Deine Hilfe
herzliche Grüße Peter

Farbnummern
22.07.2008 19:57:00
Backowe
Hallo Bernhard,
die Farbnummern bekommst Du so:
Sub Farbnummern()
Dim i As Integer
For i = 1 To 56
  Cells(i, "A").Interior.ColorIndex = i
Next
End Sub
Gruss Jürgen
Anzeige

180 Forumthreads zu ähnlichen Themen

Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Anzeige
Bedingte Formatierung, wenn Spalte gefüllt
belanglos

Hallo,
ich habe gerade ein Brett vom Kopf.
Ich möchte mit der "Bedingten Formatierung" ein Tabellenblatt formatieren. Bedingung soll aber sein, dass die die "Bedingte Formatierung" alles formatiert, wenn in Spalte A bspw. der Buchstabe A steht.
Kann mir damit jemand weiterhelfen....
11.09.2008 14:34:00
Thread-ID: 1009128
5 Beiträge
Prüfung: AddIn vorhanden?
Harald

Hallo zusammen!
Habe im Excel ein AddIn das beim Start von Excel geladen wird, und beim Schließen Entladen wird.
Der Code lautet wie folgt:
----------------------
Private Sub Workbook_Open() AddIns("MeinAddIn").Installed = True End Sub
Private Sub Workbook_BeforeClose(C...
16.09.2008 08:47:00
Thread-ID: 1009955
7 Beiträge
Anzeige
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
VBA 2 Din A 5 auf Din A 4 Drucken ?
Peter

Hallo
Habe auf ein Tab 2 Din A 5 Bereiche erstellt.
Wie kann man per Vba oder Formel die Beiden Bereiche auf Din A 4 Drucken?
Mfg. Peter
01.12.2008 17:56:42
Thread-ID: 1029327
3 Beiträge
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
Suche rückwärts nach Wert wenn Bedingung erfuellt
Horst

Hey !
Ich schreibe suchmakros.
Mir find("suchwert") kann ich nache einem bestimmten Inhalt einen Zelle suchen...
O.K.
jetzt möchte ich nach einem Wert in einer zelle suchen der eine bestimmte Bedingung erfüllt.
Zum Bespiel möchte ich nach einem Datum in einer suchen...
...
13.01.2009 07:45:09
Thread-ID: 1039076
5 Beiträge
Bedingte Formatierung: 4stellige Zahl auf Endziffer prüfen?!
TimB83

Hallo,
ich probiere und teste schon seit Tagen, die Nerven liegen fast blank :oops:
Vielleicht geht es ja auch gar nicht...
Das ist mein Problem:
Ich habe in meinen Zellen 4stellige Zahlen, die entweder auf 0, auf 1 oder auf 2 enden.
Die Zellen auf 0 (z.B. 2340) sollen grü...
21.01.2009 23:21:19
Thread-ID: 1042405
4 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
5
4
6
3
1
2
2
4
3
1
2
2
3
3
12
3
7
3
2
1
4
4
8
2