FormatCondition in Zeile 1 für alle übernehmen

21/06/2009 - 01:06 von Richard Ohl | Report spam
Hallo,
ich komme seit ein paar Stunden absolut nicht weiter. Ich habe ein Datagrid,
das über Querytables und ADO aktualisiert wird. Trotz "PreserveFormatting"
und "PreserveColumnInfo" werden meine conditional formattings überschrieben.

Nun habe ich mir gedacht, ich gehe nach dem Update einfach durch, kopiere
die Anweisung von Zeile 1 und füge sie für alle wieder ein. Dazu kann ich
aber nur add, nicht modify benutzen (das formatting geht beim update
vollstàndig verloren). Dadurch, dass das Objekt ja aber referenziert, gehen
beim Range(xy).FormatConditions.Delete natürlich alle verloren. Gibt es eine
Möglichkeit, von dem Objekt eine Kopie zu machen statt einer Referenz?

So ungefàhr hatte ich mir das eigentlich [tm] gedacht:
Dim x As FormatCondition
Set x = Range("A1").FormatConditions(1)
Columns("A").Select
Selection.FormatConditions.Delete ' hier geht x verloren...
Selection.FormatConditions.Add Type:=x.Type, Formula1:=x.Formula1
Selection.FormatConditions(1).Interior = x.Interior

Kann ich das Problem anders umschiffen? Ich würde mich sehr über jeden Tipp
freuen.
Vielen Dank im Voraus,
Richard
All truth passes through three stages. First, it is ridiculed.
Second, it is violently opposed. Third, it is accepted as being
self-evident. -- Arthur Schopenhauer
 

Lesen sie die antworten

#1 Richard Ohl
21/06/2009 - 01:52 | Warnen spam
Richard Ohl tastaturte dies:

So ungefàhr hatte ich mir das eigentlich [tm] gedacht:
[komische Gedankengànge...]



Der Vollstàndigkeit halber habe mir jetzt damit geholfen, dass ich ein
PasteSpecial xlPasteFormat mache - das kopiert auch FormatConditions.
Also ich kopiere meinem Range(Col, 1), mache ein Columns(Col).Select und
dann das Paste.

Sicher geht das viel besser, und ich bin immer noch brennend daran
interessiert - aber geholfen ist mir erst einmal ;-) Ob es doch nicht
richtig funktioniert melde ich in ein paar Stunden nach den Tests, wenn ich
vielleicht wieder klar denken kann.
Viele Grüße
Richard
In view of the fact that God limited the intelligence of man, it seems
unfair that he did not also limit his stupidity. -- Konrad Adenauer

Ähnliche fragen