|
Hallo zusammen,
ich habe in Word 2010 ein Ribbon mit Buttons für diverse Briefvorlagen erstellt. Die Buttons werden zu .dotm-Dateien verlinkt, in denen Textmarken automatisch befüllt werden sollen. Vor Befüllung soll eine User-Abfrage aus einer Excel-Datei erfolgen. Die feste Zuordnung von Excel-Zellen zun den .dotm-Dateien funktioniert. Eine dynamische Zuordnung in Abhängigkeit von Windows-Benutzer mit einer For Each jedoch nicht.
Mein Code hat bei der For Each anscheinend ein Problem mit dem Value. Es erscheint "Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden". Der Code auf Excel angepasst, dh ohne Datenobjekte, funktioniert.
Dim strAbsName, strAbsTel, strAbsFax, strAbsMail, strText As String 'Textmarken
Dim strCurrentUser, strName, strTel, strFax, strMail As String 'Excel-Strings
Dim rngTM, rngZelle As Range
Dim objExcel, objWorkbook, objWorksheet, objZelle As Object 'Excel-Objekte
'Zuweisung der Textmarkenbezeichnungen
''''''''''''''''''''''''''''''''''''''''
strAbsName = "tex_abs_Name"
strAbsTel = "tex_abs_Tel"
strAbsFax = "tex_abs_Fax"
strAbsMail = "tex_abs_email"
'Datenabfrage aus Excel
''''''''''''''''''''''''''
strCurrentUser = Environ("username")
Debug.Print strCurrentUser
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\" & strCurrentUser & "\AppData\Roaming\Microsoft\Templates\Kontaktdaten.xlsx")
Set objWorksheet = objWorkbook.Worksheets("Tabelle1")
Set objZelle = objWorksheet.UsedRange
objExcel.Visible = False
'Abfrage Windows-User aus Excel
''''''''''''''''''''''''''''''''''
For Each rngZelle In objZelle
If rngZelle.Value = strCurrentUser Then
strName = rngZelle.Offset(0, -4).Value
strTel = rngZelle.Offset(0, -3).Value
strFax = rngZelle.Offset(0, -2).Value
strMail = rngZelle.Offset(0, -1).Value
Else
Next
End If
Hat jemand eine Hilfestellung?
VG BigC
|