AW: Bedingte Formatierung
22.12.2008 13:09:31
Daniel
Hi
das könnte folgendes Makro machen:
With Range("A4:B11")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=LINKS(ZS2; LÄNGE(ZS2)-13) LINKS(Z(1)S2;LÄNGE(Z(1)S2)-13)"
.FormatConditions(1).Borders(xlBottom).Weight = xlThin
End With
es werden allerdings nur die Zwischenlinien gezogen, die restlichen kannst du ja normal setzen (ist im Prinzip dann ja nur noch der Rahemn aussen rum)
beim Setzen der Bedingten Formatierung per Makro muss man seltsamerweise die deutsche schreibweise verwenden.
Es empfiehlt sich hier, auf Z1S1-Schreibweise zurückzugreifen, weil man sonst beachten muss, welche Zelle grade aktiv ist, was die Sache verkompliziert.
Daher sollte man beim Aufzeichenn mit dem Recorder vorher Excel in den Optionen auf Z1S1-Modus umschalten. Für den Makrolauf braucht man das nicht, da aktzeptiert Excel immer die Z1S1-Schreibweise unabhängig vom Modus.
Gruß, Daniel