Laufzeitfehler "91"
26.06.2024 08:43:34
Tim74
Sub Autoexec()
'fügt ein Datum in der Zukunft ein
Dim strWieviel As String
Dim dateFrist As Date
strWieviel = 30
dateFrist = DateAdd("d", strWieviel, Date)
Select Case Weekday(dateFrist)
' stellt sicher, dass die Frist immer an einem Wochentag endet
Case Is = vbSaturday
dateFrist = DateAdd("d", 2, dateFrist)
Case Is = vbSunday
dateFrist = DateAdd("d", 1, dateFrist)
End Select
Selection.InsertAfter Format (dateFrist, "d. mmmm yyyy")
Selection.Collapse wdCollapseEnd
End Sub
Sub Autoexec()
'fügt ein Datum in der Zukunft ein
Dim strWieviel As String
Dim dateFrist As Date
strWieviel = 30
dateFrist = DateAdd("d", strWieviel, Date)
Select Case Weekday(dateFrist)
' stellt sicher, dass die Frist immer an einem Wochentag endet
Case Is = vbSaturday
dateFrist = DateAdd("d", 2, dateFrist)
Case Is = vbSunday
dateFrist = DateAdd("d", 1, dateFrist)
End Select
Selection.InsertAfter Format (dateFrist, "d. mmmm yyyy")
Selection.Collapse wdCollapseEnd
End Sub
Das verwendete Makro funktionierte auf Anhieb, allerdings sollte es automatisch beim Start ausgeführt werden. Wenn ich das Makro als Autoexec benenne, wird es auch direkt beim Start ausgeführt. Allerdings taucht dann der Laufzeitfehler "91" auf. Ich habe alles mögliche versucht, alle möglichen Threads durchgelesen, allerdings funktioniert nichts. Ich habe das Makro dann auf ein minimum herunter gebrochen [(Selection.InsertAfter Format(Date + 30, "d. mmmm yyyy")], aber weiterhin tritt der Fehler auf. Es kann also kaum an der zuvor verwendeten Dim-Anweisung oder ähnlichem liegen.
Anzeige