Hallo Zusammen,
ich habe einen VBA Code geschrieben, welcher die die Farbe einer Excel Zelle anhand des Wertes verändert.
' Cells(x,y).Interior.color = cells(x,y).value
Soweit so gut. Wenn ich nun das Makro mehrfach ausführe, so bekomme ich den Fehler: "Zu viele verschiedene Zellformate"
Der Bereich in welchem ich die Farben ändere ist: 100*100 Zellen =10.000 groß (Excel Unterstützt 64.000 Formate daher sollte es hier kein Problem geben).
Die Anzahl der Farben kann ich nicht reduzieren ( ist auch nicht nötig, da ich die 64.000 niemals erreichen werde).
Den Bereich kann ich leeren ( Range("A1:CV100").clear ; Range("A1:CV100").delete ;Range("A1:CV100").interior.color = 1 etc.) allerdings verhindert dies den Overflow nicht. Spätestens nach dem 10ten mal ausführen des Makros habe ich den Fehler.
Ich glaube, dass das Problem darin liegt darin, dass Excel alle verwendeten Formate zwischenspeichert, diese aber nicht löscht solange die Datei offen ist.
Einfach die Datei zu speichern und neu zu öffnen ist für mich keine Option.
Gibt es eine Möglichkeit alle Zellenformate in diesem Bereich (Gerne auch in der ganzen Datei) zu löschen undzwar so, dass wirklich alle Formate gelöscht sind und ich den Fehler nicht mehr bekomme?
Ich hoffe ihr könnt mir helfen.
Vielen Dank,
Max
|