Hallo Forum,
seit mittlerweile 4 Stunden verzweifle ich schon an folgenden zwei zweilen:
Tabelle6.Shapes.AddShape(msoShapeRectangle, 40, 60, 50, 300).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 43
Laut Macro-Aufzeichnung müsste es funktionieren und in der Tat funktioniert es auch manchmal. Doch wenn ich dann irgendetwas anderes mache (was definitiv diese Programmzeile nicht beeinflusst ) bekomme ich den "Laufzeiffehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht". Ich habe keine Ahnung, wo ich bei der Fehlersuche beginnen soll. Habe Ihr manchmal eine Ahnung?
Beste Grüße
Tom
|