folgendes hat bis gerade funktioniert:
'DateiName = PruefenDateiName(Mandant) 'hatte ich neu eingefügt!
DateiName = Mandant
If DateiName = "" Then Exit Sub
MsgBox "hier " & DateiName
Set ObjWord = GetObject("Word.Application." & Version) 'hier schmiert die Kiste ab
If ObjWord Is Nothing Then
Set ObjWord = CreateObject("Word.Application." & Version)
End If
ich hatte die Zeile "DateiName=PruefenDateiname(Mandant)" neu eingefügt (die Funktion tut was sie soll!!)
und nun erhalte ich folgende Fehlermeldung (auch ohne die neue Zeile):
Was ist denn nun passiert?
Kann jemand helfen?
(die Geschichte hat seit Ewigkeiten so funktioniert)
Ich bedanke mich recht herzlich wenn sich jemand mit meinem Problem beschäftigt und mir helfen kann.
Mit freundlichen rüßen
Albrecht