als aller erstes möchte ich mich mal bedanken, für deine klasse hilfe.
ja ich arbeite mit Option Explicit, da beim nachlesen, die meisten das als sicherer beschrieben haben.
ich habe jetzt mal meineBM und i angelegt.
hoffe das ist so richtig
Set oExcelApp = CreateObject("Excel.Application")
Set oExcelWorkbook = oExcelApp.Workbooks.Open(ThisDocument.Path & DatenBezug)
Dim meineBM As Range
Dim i As Range
meineBM = Array("TM_E_Firma", "TM_E_StrHnr", "TM_E_PLZ", "TM_E_Ort", "TM_E_Tel", "TM_E_Fax", "TM_E_Mail", "TM_E_KD")
lZeile = 2 'Wir starten in Zeile 2, da in der ersten Zeile überschriften stehen
With oExcelWorkbook.Sheets(DatEmpfaenger)
Do While .Cells(lZeile, 2) <> ""
nun mekert er aber beim Kompilieren und sagt Typen unverträglich,
wenn er bei I von
For i = 0 To 7
angekommen ist.
und wenn ich Option Explicit rausmachen,
hängt er hier.
ActiveDocument.Bookmarks.Add meineBM(i), TMRange
|