Bedingte Formatierung
25.08.2008 13:24:00
Andreas
brauche wieder mal die Hilfe von Euch, habe einen Ablaufplan für die Abt. erstellt.
Bisher habe ich es soweit hin bekommen auch mit Formeln und Anregungen aus diesem Forum.
Jetzt komme ich nicht weiter, ich bekomme die Formatierung der Balken nicht hin.
Bedingte Formatierung geht leider nich da es mehr als drei sind.
6 Bearbeiter
In Spalte E steht der Bearbeiter, die Hintergrundfarbe ist abhängig von dem Namen des Bearbeiters,färbt sich über Makro autom.
in Spalte B Anfangsstermin, Spalte c Endtermin,Spalte C Nettoarbeitstage,
Spalte F- BF Arbeitswochen werden abhängig von Anfangstermin und Endtermin über Balken( Bedingte
Formatierung dargestellt),es soll der Balken die Farbe des Bearbeiters habe,kann mir jemand helfen über Formel oder Makro,
habe mal eins aufgezeichnet, er müsste angepasst werden aber wie habe 0 Ahnung.
Sub Ablauf()
' Ablauf Makro
' Makro am 25.08.2008 aufgezeichnet
Range("E15").Select
ActiveCell.FormulaR1C1 = "'Bearbeiter1"
Range("B15").Select
ActiveCell.FormulaR1C1 = "1/5/2008"
Range("C15").Select
ActiveCell.FormulaR1C1 = "2/15/2008"
Range("F15").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WENN(UND($B15=F$14);WAHR;FALSCH)"
Selection.FormatConditions(1).Interior.ColorIndex = 41
Selection.AutoFill Destination:=Range("F15:T15"), Type:=xlFillDefault
Range("F15:T15").Select
Range("U17").Select
End Sub
oder gibt es eine Formellösung.
Danke für euere Bemühungen.
Gruß Andreas