Hallo Leute,

vielleicht könnt ihr mir helfen.

Arbeite gerade beim Studium an einem VBA Projekt und habe versucht die Daten von meiner Excel Datei in eine Word Datei zu exportieren nun erhalte ich leider folgende Fehlermeldung:

Fehler beim kompilieren. Benutzerdefinierter Typ nich definiert.

Option Explicit

Sub PruefePfadBriefRechnung()
Dim pf As String
Dim ws As Worksheet
Dim fileToOpen As Variant
    Set ws = Worksheets("Pfade")
    pf = ws.Range("PfadBriefRechnung")
    If pf = "" Or Dir(pf) = "" Then
        fileToOpen = Application.GetOpenFilename("Word Dokumentvorlage (*.dotx), *.dotx")
        If fileToOpen <> False Then
           ws.Range("PfadBriefRechnung") = fileToOpen & ""
        Else
            Err.Raise vbObjectError + 1, , "Fehlende Pfadangabe zur Vorlage 'BriefRechnung.dotx'."
        End If
    End If
End Sub

Sub BriefRechnungOeffnen()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim ws As Worksheet
    On Error GoTo fehler
    PruefePfadBriefRechnung
    'Set wdApp = New Word.Application
    'Set wdApp = CreateObject("Word.Application")
    Set wdApp = GetObject(, "Word.Application")
    wdApp.Visible = True
    Set ws = Worksheets("Pfade")
    Set wdDoc = wdApp.Documents.Add(ws.Range("PfadBriefRechnung") & "")
    wdDoc.Bookmarks("KundenNr").Range.InsertAfter ActiveCell
    wdDoc.Bookmarks("Anrede").Range.InsertAfter ActiveCell
    wdDoc.Bookmarks("Nachname").Range.InsertAfter ActiveCell
    wdDoc.Bookmarks("Vorname").Range.InsertAfter ActiveCell
    wdDoc.Bookmarks("Adresse").Range.InsertAfter ActiveCell
    wdDoc.Bookmarks("PLZ").Range.InsertAfter ActiveCell
    wdDoc.Bookmarks("Ort").Range.InsertAfter ActiveCell
    wdDoc.Bookmarks("Geburtstdatum").Range.InsertAfter ActiveCell
    wdDoc.Bookmarks("Telefon").Range.InsertAfter ActiveCell
    
exit_sub:
    Exit Sub
fehler:
    If Err.Number = 429 Then
        Set wdApp = CreateObject("Word.Application")
        Resume Next
    Else
        MsgBox "Fehler: " & Err.Description & " " & Err.Number
        Resume exit_sub
    End If
End Sub

Liebe Grüsse und schon mal vielen Dank.

Hannes