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
328to332
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
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bedingte Formatierung

bedingte Formatierung
31.10.2003 10:46:11
Mathias
Hallo in die Runde,
zur bedingten Formatierung ist ja schon viel geschrieben worden und ich habe auch Einiges im Archiv gefunden. Leider hilft mir das aber nicht weiter.
Deshalb hier meine Frage:
Ich möchte die bedingte Formatierung mit mehr als drei Bedingungen (also per VBA) verwenden. Die Ansätze, die ich dazu gefunden habe, verwenden die "Case"-Funktion. Doch leider funktioniert das nur, wenn der betreffende Wert direkt in die Zelle eingegeben wird. Bei mir sind viele Zellwerte aber über Formeln berechtet.
Wie bekomme ich es also hin, dass z.B. die Farbe der Zelle wechselt, wenn der Zellwert sich durch Formeln ändert?
Gruß
Mathias

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bedingte Formatierung
31.10.2003 10:50:35
Hajo_Zi
Hallo Matthias

schaue mal auf meine Homepage da ist ein Beispiel.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.


AW: bedingte Formatierung
31.10.2003 11:15:27
Mathias
Astrein!
Das sieht erstmal gut aus. Jetzt muss ich das nur noch auf meine Bedürfnisse umstricken.
Vielen Dank!
Gruß
Mathias
Zusatzfrage: bedingte Formatierung
31.10.2003 11:47:43
Mathias
Hallo Hajo,
eine Frage hätte ich noch:
Wie muss der Code geändert werden, wenn die Farbe einer Zelle (z.B.E3) vom Ergebnis einer anderen Zelle (z.B.E2) abhängig sein soll?
Gruß
Mathias
Anzeige
AW: Zusatzfrage: bedingte Formatierung
31.10.2003 11:58:02
Hajo_Zi
Hallo Matthias

Bei Fragen zu meiner Antwort, antworte ich nur, wenn die Frage hinter meiner Antwort steht oder ich lustig bin.
Mit der automatischen E-Mailbenachrichtigung werden nur die letzten beiden Beiträge angezeigt und in diesem Fall sehe ich meine Antwort nicht mehr, wenn die Frage nicht richtig plaziert wurde.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.


Anzeige
AW: bedingte Formatierung
31.10.2003 12:14:11
Mathias
Hallo Hajo,
ich hoffe, ich habe dich richtig verstanden und das ist jetzt korrekt so.

Hier noch mal meine Frage:
Wie muss der Code geändert werden, wenn die Farbe einer Zelle (z.B.E3) vom Ergebnis einer anderen Zelle (z.B.E2) abhängig sein soll?
Gruß
Mathias
AW: bedingte Formatierung
31.10.2003 12:24:54
Hajo_Zi
Hallo Matthias

so ganz klar ist mir das nicht. Aber vielleicht reicht folgendes.

Case "3"
RaZelle.Offset(1, 0).Interior.ColorIndex = 3

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.


Anzeige
AW: bedingte Formatierung
31.10.2003 15:43:21
Mathias
Hallo Hajo,
so ganz komme ich noch nicht zurecht
Probiere hier schon eine ganze Weile, klappt aber nicht
Vielleicht kannst Du mehr damit anfangen, wenn ich das Beispiel konkreter erkläre:
Ich mache hier gerade eine Urlaubsdatei und habe dafür die Namen und andere Grunddaten in Spalte A-D eingetragen. Ab Spalte E folgt der Datumsbereich (E3=01.01. F3=02.01. usw. [aber nur Wochentage ->Mo-Fr]) Außerdem habe ich mehrere Hilfszeilen, die (über Formeln berechnet) z.B. ein "F" ausgeben, wenn der betreffende Tag ein Feiertag ist (Zeile2) Oder ein "X", wenn Ferien sind (Zeile4).
Und nun möchte ich folgendes erreichen: Die Zellen im Bereich E3 bis ED50 sollen in Abhängigkeit davon eingefärbt oder umrandet werden, ob es sich um einen Feiertag handelt, oder um einen Montag, oder ob Ferien sind.
Ein paar Beispiele:Der 01.01. ist ein Feiertag -> E3-E50=grün
Der 05.01. ist ein Montag und es sind Ferien -> G3-G50=gelb&Rand links
Der 12.01. ist ein normaler Montag -> L3-L50=keine Färbung&Rand links
usw.
Ich hoffe, ich konnte deutlich machen, was ich erreichen möchte und würde mich freuen, wieder von dir zu hören.
Gruß
Mathias
Anzeige
AW: bedingte Formatierung
01.11.2003 08:51:30
Hajo_Zi
Hallo Mathias

wer soll das nachbauen???

Aus Deiner Beschreibung sehe ich nur 3 Bedingungen, aber ich vermute Du hast noch ein paar mehr.

Lade doch mal Deine Datei hoch ode den Tabellen auschnitt hoch mit Beschreibung ungefähr so.

AW: bedingte Formatierung
03.11.2003 17:02:04
Mathias
Hallo Hajo,
ich versuch's mal....

Die Datei ist jetzt hochgeladen unter
https://www.herber.de/bbs/user/1727.xls

Nochmal kurz mein Vorhaben:
Ich möchte den Bereich ab Spalte E sowohl einfärben, als auch mit Rand versehen, um so Feiertage (dunkles Gelb), Ferien (helles Gelb) und Wochen (Rand) kenntlich zu machen. Und das alles in Abhängigkeit von den Werten in Zeile 2-5. Einzelnd ist das bereits gelöst. Zeile setzt automatisch die Wochenränder, der Bereich ab Zeile 3 färbt Ferien und Feiertage korrekt ein. Doch für die Kombination benötige ich mehr als drei Bedingungen.

Ich hoffe, du kannst dir jetzt ein Bild davon machen und hast evtl. einen Lösungsansatz parat.

Gruß
Mathias
Anzeige
AW: bedingte Formatierung
03.11.2003 17:15:01
Hajo_Zi
Hallo Mathias
den Code habe ich vergessen.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'   erstellt von Hajo.Ziplies@web.de 19.07.03, 30.10.03, 31.10.03
' http://home.media-n.de/ziplies/
'   HINTERGRUND
'   für Schrift RaZelle.Font.ColorIndex
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("C:IV")
'    ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case UCase(RaZelle.Value) ' UMWANDLUNG DER Eingabe in Großbuchstaben
Case "GU"
RaZelle.Interior.ColorIndex = 3
Case "U"
RaZelle.Interior.ColorIndex = 4
Case "SU"
RaZelle.Interior.ColorIndex = 6
Case "K"
RaZelle.Interior.ColorIndex = 7
Case "SE"
RaZelle.Interior.ColorIndex = 17
Case Else
RaZelle.Interior.ColorIndex = xlNone
End Select
End If
Next RaZelle
'    ActiveSheet.protect ("Passwort")
Set RaBereich = Nothing
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige