Excel VBA-Makro bleibt hängen obwohl es funktioniert

murphy2ooo — Tue, 11 Nov 2003 09:56:43 GMT

ich habe das problem, dass mein Makro im Einzelschrittmodus im Editor problemlos funktioniert, aber aus dem Tabellenblatt beim Klick auf die Schaltfläche bleibt es hängen (da wo es im ES-Modus nicht hängen bleibt).

Ich habe soeben alle Activesheet-Aufrufe durch absolute (worksheets(...)) ersetzt. Trotzdem hängt er z. B.

Set z = Worksheets("Plotaufträge").Shapes
    höhe = Worksheets("Plotaufträge").Cells(60, 4) * faktor
    breite = Worksheets("AusgW").Cells(5, 4) * 100 * faktor
    'breite = Worksheets("Plotaufträge").Cells(59, 4) * faktor
    z.AddShape(msoShapeRectangle, lrd, ord, höhe, breite).Select
*  Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10 '???
    Selection.ShapeRange.Fill.Transparency = 0.5
    Selection.ShapeRange.Line.Weight = 2#
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Name = "pv"
    With Selection
        .Placement = xlMove
        .PrintObject = True
    End With

Da wo das * ist hängt er und meint:

Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht.

Hat da jemand ne Idee? Kann es sein, dass eine andere Markierung auf einem anderen, in dem Moment aktiven Tabellenblatt daran Schuld ist? Andererseits ist doch die Anweisung aber eindeutig, oder nicht?

Bin dankbar für jeden Hinweis,

liebe Grüße

Murphy