Range(Cells(R1,C1),Cells(R2,C2))
23.12.2003 16:34:36
Dirk Adebahr
Ich hab' da ein Problem, das mich seit einigen Tagen zur Verzweiflung bringt:
In einer SUB-Prozedur steht unter Anderem folgender Code:
With Application.Worksheets("Monatsplan_1").Range(Cells(1, (1 + Versatz)), Cells(3, (tage + Versatz))).Font
.Size = 10
.Bold = True
End With
Die Variable 'Versatz' ist hier übrigens mit dem Wert 2 belegt. 'tage' beträgt abhängig von der Monatslänge zwischen 28 und 31. Die With - Zeile ist als fehlerhaft markiert.
Lasse ich diesen ausführen, erhalte ich folgende Fehlermeldung:
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler.
Ersetze ich "Monatsplan_1" gegen die ebenfalls existierende "Testtabelle1", läuft alles einwandfrei.
Ändere ich den Code folgendermaßen ab, funktioniert er auch wieder im "Monatsplan_1":
With Application.Worksheets("Monatsplan_1").Range("C1:AF3").Font
.Size = 10
.Bold = True
End With
Diese Verhaltensweise verstehe ich beim besten Willen nicht. Zusammengefasste Zellen o.ä. sind in der gesamten Tabelle nicht vorhanden. Excel sollte beim Zählen also nicht durcheinander kommen.
Kann einer von Euch mal ein bißchen Licht ins Dunkel bringen? Über Anregungen oder Lösungsvorschläge wäre ich sehr dankbar. Um die Programmiererei nicht ins Uferlose ausarten zu lassen, sollte die Lösung möglichst im Range(Cells(R1,C1),Cells(R2,C2)) - Format erfolgen.
Danke!
Gruß
Dirk Adebahr