VBA für bedingte Formatierung geht nicht richtig!!
30.11.2006 15:16:03
MartinCH
was mache ich da falsch? Wenn dieses Makro ausgeführt wird, ist in der Bedingten Formatierung nur ein Teil der Formel eingetragen und diese auch noch mit Fehler....
Sub Bedingte_Formatierung()
Range("F4").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ODER(UND($AD4>0;$AE4>0;MONAT(F$3)>=MONAT($AD4);MONAT(F$3)<=MONAT($AE4))" _
& ";UND($AF4>0;$AG4>0;MONAT(F$3)>=MONAT($AF4);MONAT(F$3)<=MONAT($AG4))" _
& ";UND($AH4>0;$AI4>0;MONAT(F$3)>=MONAT($AH4);MONAT(F$3)<=MONAT($AI4))" _
& ";UND($AL4>0;$AM4>0;MONAT(F$3)>=MONAT($AL4);MONAT(F$3)<=MONAT($AM4)))"
End Sub
Eingetragen wird nur dieser Teil:
UND($AD4>0;$AE4>0;MONAT(F$3)>=MONAT($AD4);MONAT(F$3)<=MONAT($AE4))\'d3UND($AF4>0;$AG4>0;MONAT(F$3)>=MONAT($AF4);MONAT(F$3)<=MONAT($AG4))
Gruss
Martin
Anzeige