Ausgabe einer Bildschirmmeldung
26.02.2004 21:37:19
MathiasG
aufgrund eines spitzen(!) Tipps in diesem Forum habe ich bisher folgende Code für die Ausgabe einer Bildschirmmeldung während der Abarbeitung des Macros verwendet:
Dim sh As Shape, L As Double, T As Double, W As Double, H As Double
W = 600
H = 50
L = (Application.Width - W) / "1,5"
T = Application.Height / 2 - H
Sheets("Entwicklung Fonds").Select
Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, L, T, W, H)
With sh
.Name = "Nachricht"
.Fill.ForeColor.SchemeColor = 22
.TextFrame.Characters.Text = "Bitte warten, übernehme die Kurse vom " & CDate(longDatumvon)
.TextFrame.VerticalAlignment = xlVAlignCenter
.TextFrame.HorizontalAlignment = xlHAlignCenter
.DrawingObject.RoundedCorners = msoTrue
.DrawingObject.Font.Bold = -1
.DrawingObject.Font.ColorIndex = 1
.DrawingObject.Font.Size = 22
.DrawingObject.Font.FontStyle = "Fett"
End With
Dies hat bis vor wenigen Tagen fehlerfrei funktioniert (in einer älteren Version sieht es genau so aus und funktioniert immer noch!). Seit ein paar Tagen bekomme ich einen 1004 Laufzeitfehler und die Meldung: Anwendungs- oder objektdefinierter Fehler.
An den Einstellungen in der Entwicklungsumgebung habe ich nichts geändert.
Den Fehler konnte ich in sofern einkreisen, dass er immer mit dem Aufruf des Set-Befehls aussteigt, egal wie ich den Aufruf geschrieben habe.
Hat jemand eine gute Idee?
mfg Mathias