Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Fehlermeldung Funktionsaufruf fehlerhaft | Herbers Excel-Forum


Betrifft: Fehlermeldung Funktionsaufruf fehlerhaft von: ing.grohn
Geschrieben am: 14.01.2012 21:28:01

Hallo Forum,
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

  

Betrifft: AW: Korrektur!! von: ing.grohn
Geschrieben am: 14.01.2012 22:19:42

Hallo Forum,
anscheinent ist ein

on error resume next

abhanden gekommen.
sorry!!
Mit freundlichen Grüßen
Albrecht


Beiträge aus den Excel-Beispielen zum Thema "Fehlermeldung Funktionsaufruf fehlerhaft"