Laufzeitfehler 831 Eigenschaft konnte nicht gesetzt werden (VBA)

Floyd, Dienstag, 19.06.2018, 15:03 (vor 335 Tagen)

Hallo Zusammen,

ich bin neu hier und versuche mal mit folgender Frage Hilfe zu bekommen:

Ich lade unter in eine Userform / Listbox ein Dokument aus einem Verzeichnis, welches dann - je nach Auswahl - mit Kopfangaben ergänzt werden.
Das Verzeichnis enthällt alle möglichen Dokumente, die eben aufgelistet werden.

Das funktioniert soweit, teileweise auch mehrfach hintereinander, dann kommt aber irgendwann der og. Laufzeitfehler.
Ich schätze, ich muss sicherstellen, das zum erneuten Aufruf der Listbox alles im Speicher leer ist.
Dazu wäre ein Tipp schön oder anders, wie kann ich feststellen, was stört.

Gruß
Floyd
:-D

 
For Each UF In UserForms
       For zaehler = 0 To UF.List1.ListCount - 1
            If UF.List1.Selected(zaehler) = True Then
            tPath = tPath & UF.List1.List(zaehler)
 
 Documents.Open FileName:=tPath, ConfirmConversions:=False, _
            ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
            PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
            WritePasswordTemplate:="", Format:=wdOpenFormatAuto
            Set nDoc = ActiveDocument
‚
            tPath = Tpathcopy
            DokNr = DokNr + 1
           AKTUELLE_DATEI_DokNr = AKTUELLE_DATEI + DokNr + DOK_Suffix
 
Application.Run MacroName:="Document_ergaenzen" 
End If
 
Next zaehler
Next UF
 

gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum