|
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
1 2 3 4 5 6 7 8 9 10 11 | 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
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
angekommen ist.
und wenn ich Option Explicit rausmachen,
hängt er hier.
1 | ActiveDocument.Bookmarks.Add meineBM(i), TMRange
|
|