Bedingte Formatierung: mehr als 3 Bedingungen in VBA
Michael Karajan
Ich habe eine Excel (2003) Tabelle in der ich mehr als 3 Bedingungen habe
und entsprechend die Zeilen formatieren muss.
Bis 3 Bedingungen stellt es kein Problem dar. Jedoch muss ich jetzt doch auf
VBA umstellen, da mehrere Bedingungen hinzukommen.
Wie stelle ich es an, dass bei Eingabe bestimmter Werte in z.B. in Spalte N
Zeile 12 die ganze Zeile 12 (A-P) ohne "neu berechnen" formatiert wird?
Ich habe leider im Moment keine Idee. Habe auch keine Antwort anderweitig
gefunden.
Für Eure Antworten besten Dank im voraus.
Gruß
Michael
Claus Busch
Am Mon, 22 Feb 2010 00:59:01 -0800 schrieb Michael Karajan:
> Ich habe eine Excel (2003) Tabelle in der ich mehr als 3 Bedingungen habe
> und entsprechend die Zeilen formatieren muss.
> Bis 3 Bedingungen stellt es kein Problem dar. Jedoch muss ich jetzt doch auf
> VBA umstellen, da mehrere Bedingungen hinzukommen.
> Wie stelle ich es an, dass bei Eingabe bestimmter Werte in z.B. in Spalte N
> Zeile 12 die ganze Zeile 12 (A-P) ohne "neu berechnen" formatiert wird?
Werden innerhalb der Tabelle auch Ver�nderungen vorgenommen?
Wird die Tabelle weitergef�hrt (erweitert)?
Wie lauten die Bedingungen und welche Farben sollen der jeweiligen
Bedingung zugeordnet werden?
Mit freundlichen Gr�ssen
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
Hajo_Zi
schaue hier http://hajo-excel.de/vba_format.htm
Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista Ultimate SP2 und Excel Version2007 SP2
http://Hajo-Excel.de/
Michael Karajan
"Hajo_Zi" wrote:
> Hallo Michael,
>
> schaue hier http://hajo-excel.de/vba_format.htm
>
In der Umgebung wo ich arbeite, kann ich leider keine Dateien mit ZIP-Endung
öffnen. Könnte ich die PN senden und du schickst mir die Datei an die
angegebene Email-Adresse?
Danke im Voraus.
Gruß
Michael
Michael Karajan
"Claus Busch" wrote:
> Werden innerhalb der Tabelle auch Veränderungen vorgenommen?
> Wird die Tabelle weitergeführt (erweitert)?
Nein. Die Werte der Tabelle bleiben (keine Fortführung). Es werden lediglich
in den spalten P respektive Q eventuell Eintragungen erfolgen.
> Wie lauten die Bedingungen und welche Farben sollen der jeweiligen
> Bedingung zugeordnet werden?
>
Es sind diverse Bedingungen.
Bspw. kann in Spalte P Datum eingetragen sein. Dann soll diese Zeile a-q
z.B. Hintergrund dunkelgrün und Schrift weiß sein.
Oder es kann mal in Spalte q der Text "ztt" stehen. Dann soll die Zeile a-q
Hintergrund Gelb und Schrift schwarz und fett sein.
Letzten Endes ist die Formatierung relativ Egal. Da ich die Formel selbst
auch anpassen kann. Ich weiß nur nicht wie der Code aussehen kann/soll.
Gruß
Michael
Hajo_Zi
auf meiner HP gibt es auch ein Kontaktformular. Dann kann ich Dir die Datei
schicken, nur welche. Es sind da 2.
Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista Ultimate SP2 und Excel Version2007 SP2
http://Hajo-Excel.de/
Michael Karajan
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor As Byte
Dim fntColor As Byte
Dim fntBld As Boolean
' Bereich der überwacht wird
Set Target = Intersect(Target, Range("a:a"))
If Target Is Nothing Then Exit Sub
For Each rngCell In Target
Select Case rngCell.Value 'Wert in Großbuchstaben umwandeln
Case "a"
bytColor = 3
fntColor = 3
fntBld = True
Case "b"
bytColor = 4
Case "c"
bytColor = 5
Case "d"
bytColor = 6
Case "e"
bytColor = 7
Case "f"
bytColor = 8
Case "g"
bytColor = 31
Case Else
bytColor = 0 ' keine Farbe
End Select
Range(Cells(Target.Row, 1), Cells(Target.Row, 14)).Interior.ColorIndex =
bytColor 'Zeile C bis N
Range(Cells(Target.Row, 1), Cells(Target.Row, 14)).Font.ColorIndex = fntColor
Range(Cells(Target.Row, 1), Cells(Target.Row, 14)).Font.Bold = fntBld
Next rngCell
End Sub
Michael Karajan
"Hajo_Zi" wrote:
> Hallo Michael,
>
> auf meiner HP gibt es auch ein Kontaktformular. Dann kann ich Dir die Datei
> schicken, nur welche. Es sind da 2.
>
zwischenzweitlich habe ich eine Lösung für meine zwecke umgmodelt!
Jedoch habe ich noch ein Problem. Wie kann ich den Inhalt (Kommt Datum) der
Zelle z.B. a1 dahingehend vergleichen ob eingegebenes Datum nach 01.01.2010
oder vor 01.01.2010 liegt.
Wäre für eine Lösung Dankbar.
Gruß
Michael