unerklärlicher Laufzeitfehler bei Zellformatierung
06.06.2016 12:50:45
Winfried
ich hab ein Problem, welches ich mir nicht wirklich erklären kann.
Meine Datei hat mehrere Tabellenblätter, bei denen ich u.A. die Zellfarbe ändern möchte.
Wenn die entsprechende Tabelle aktiv ist (ich sie mir während der Änderung ansehe), klappt alles wunderbar. Schaue ich mir aber ein andrees Tabellenblatt an, bekomme ich einen Laufzeitfehler '1004'.
Kann mir jemand vielleicht dankenswerter Weise erklären wo hier der Fehler liegt?
Die Formatierung läuft in einer Schleife über die Tabelle und es werden nachfolgende Programmzeilen genutzt:
With ThisWorkbook
Rem Zellfarbe ändern
.Worksheets("DD_Matrix").Range(Cells(3, 3), Cells(102, 102)).Interior.Color = RGB(0, 0, 0)
Rem Rahmenfarbe ändern
.Worksheets("DD_Matrix").Range(Cells(3, 3), Cells(102, 102)).Borders.Color = RGB(255, 255, _
255)
Rem Schriftfarbe ändern
.Worksheets("DD_Matrix").Range(Cells(3, 3), Cells(102, 102)).Font.Color = RGB(255, 255, 255) _
Rem Schrift dick machen
.Worksheets("DD_Matrix").Range(Cells(3, 3), Cells(102, 102)).Font.Bold = True
Komischerweise klappt die Befüllung mit einer Formel (und der Eintrag des daraus resultierenden Wertes) ohne Probleme, auch wenn ich nicht in dem Tabellenblatt bin:
.Worksheets("DD_Matrix").Cells(i, j).FormulaR1C1 = "='Eingabemaske'!R38C3"
.Worksheets("DD_Matrix").Cells(i, j) = .Worksheets("DD_Matrix").Cells(i, j).Value
Vielen Dank im Voraus für eure Mühen.VG
Winfried