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

Bedingte Formatierung-VBA?
09.07.2008 16:47:10
Fridolin
Hallo Leute
Ich suche eine Möglichkeit, um eine Liste mit 6 unterschiedlichen Hintergrundfarben zu versehen.
Wert (Hintergrund) in A1 muss grün sein, wenn in A7 "Oberhofen" steht,
Wert (Hintergrund) in A1 muss jedoch blau sein wenn in A7 "Thun" steht,
Wert (Hintergrund) in A1 muss gelb sein, wenn in A7"Interlaken" steht,
Wert (Hintergrund) in A1 muss violett sein, wenn in A7 "Betrieb" steht
Wert (Hintergrund) in A1 muss rosa sein, wenn in A7 "privat",
Wert (Hintergrund) in A1 muss grau sein, wenn in A7 "Bern" steht.
Wie löse ich das am Besten? Vielen Dank für eure Unterstützung
Es geht um eine ganze Tabelle (Schlüsselverzeichnis).
Grüsse aus der Schweiz Fridolin

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

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung-VBA?
09.07.2008 17:17:51
Matthias
Hallo
Die Farben mußt Du aber selbst anpassen.
Wenn in A7 ein anderer Wert steht als vorgegeben wird der Hintergrung auf xlNone gesetzt.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim StrgZellText
If Selection.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A7")) Is Nothing Then
StrgZellText = Target.Value
If StrgZellText = "Oberhofen" Or StrgZellText = "Thun" Or StrgZellText = "Interlaken"  _
Or StrgZellText = "Betrieb" Or StrgZellText = "privat" Or StrgZellText = "Bern" Then
Select Case StrgZellText
Case Is = "Oberhofen"
Cells(1, 1).Interior.ColorIndex = 1
Case Is = "Thun"
Cells(1, 1).Interior.ColorIndex = 3
Case Is = "Interlaken"
Cells(1, 1).Interior.ColorIndex = 5
Case Is = "Betrieb"
Cells(1, 1).Interior.ColorIndex = 6
Case Is = "privat"
Cells(1, 1).Interior.ColorIndex = 7
Case Is = "Bern"
Cells(1, 1).Interior.ColorIndex = 9
End Select
Else
Cells(1, 1).Interior.ColorIndex = xlNone
End If
End If
End Sub


Gruß Matthias

Anzeige
AW: Bedingte Formatierung-VBA?
09.07.2008 17:20:27
Backowe
Hi,
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Code in das entsprechende Tabellenblatt
If Not Intersect(Target, [A7]) Is Nothing And Target.Count = 1 Then
  If LCase(Target.Value) = "oberhofen" Then
    [A1].Interior.ColorIndex = 10
  ElseIf LCase(Target) = "thun" Then
    [A1].Interior.ColorIndex = 5
  ElseIf LCase(Target) = "interlaken" Then
    [A1].Interior.ColorIndex = 6
  ElseIf LCase(Target) = "betrieb" Then
    [A1].Interior.ColorIndex = 17
  ElseIf LCase(Target) = "privat" Then
    [A1].Interior.ColorIndex = 7
  ElseIf LCase(Target) = "bern" Then
    [A1].Interior.ColorIndex = 15
  Else
    [A1].Interior.ColorIndex = xlNone
  End If
End If
End Sub

Anzeige
AW: Bedingte Formatierung-VBA?
09.07.2008 21:02:25
Fridolin
Hey, genial!
Erste Versuche haben mich zum Ziel gebracht, wobei ich die Feinheiten erst in den nächsten Tagen vollbringen werden kann.
Herzlichen Dank für eure Unterstützung und für die prompte Reaktion.
Liebe Grüsse Fridolin

AW: Bedingte Formatierung-VBA?
13.07.2008 19:23:00
Fridolin
Danke, eure Vorschläge haben mir wunderbar geholfen und meine Tabelle sieht wunderschön aus und ist absolut zweckmässig!
Schlussendlich habe ich mich auf einen "Mix" eingelassen; alle eure Vorschläge waren jedoch umsetz- und anwendbar.
Liebe Grüsse aus der regnerischen Schweiz. Fridolin
Anzeige

300 Forumthreads zu ähnlichen Themen

bedingte formatierung berechnen lassen unter vba
morbiuz

Hallo,
ich habe eine Spalte A auf der 2 verschiedene bedingte Formatierungen gesetzt sind (rot, grün) für die Scriftfarbe
leider kann ich die Werte nicht über meine Funktion zusammenrechnen lassen:
Sub mtest() Dim zelle As Range Dim bereich As Range Dim a As Integer Set bereich =...
20.08.2008 03:03:00
Thread-ID: 1003056
2 Beiträge
Anzeige
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Anzeige
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 Formel zwischen
lutz

Hallo,
ich komme beie einer bedingten Formatierung nicht weiter:
ich brauche eine Formel, die nur dann die bedingte Formatierung ausgibt wenn ein Vergleichswert in Spalte D zwischen den minimal und maximalwerten aus den Spalten B (min) und C (max) liegt.
Habe es mit =WENN($D$4>$B...
27.01.2009 07:55:00
Thread-ID: 1044063
3 Beiträge
Bedingte Formatierung mit VBA
Steffen

Hallo,
habe schon viele Einträge gelesen, aber noch keiner war für mein Problem hilfreich oder ich stelle mich nur zu dämlich an. Folgendes Problem:
1. In einer Tabelle, die vom SQl-Server gefüllt wird, ist außerhalb des benannten Bereiches eine Spalte M, deren Zellen eine bestimmte Far...
13.02.2009 09:44:00
Thread-ID: 1050348
4 Beiträge
Bedingte Formatierung Formel
Karel

Hallo Forum,
Zellen werde durch bedingte markierung nach Minmale (Farbe ROT) und Maximale wert (Farbe Grun)markiert.
Wenn zelle Leer oder Inhalt wert NULL (0) Zelle werd GELB Markiert
mein Problem ist wenn Zelle Leer ist Funktioniert Min und Max .
Aber wenn Zelle inhalt Wert NU...
02.03.2009 16:37:10
Thread-ID: 1055657
5 Beiträge
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
12.03.2009 17:38:23
Thread-ID: 1059597
2 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
1
5
6
19
8
5
2
3
4
1
3
7
4
6
2
7
7
2
2
2
2
4
2
11
8