Hallo ihr Lieben,
bei folgedem Abschnitt kriege ich einen Laufzeitfehler '-2147467259 (80004005) für die Zeile mit PrivateProfileString:
xRow = rowTar -1
ftabName = Worksheets("Vorlage").Cells(xRow, 9).Value + ".Parameter"
Set save1 = CreateObject("Scripting.FileSystemObject")
save = ThisWorkbook.Path + "\" + ftabName
Set objWord = CreateObject("Word.Application")
lfdNrMax = Cells(rowTestOld, 2).Value
objWord.System.PrivateProfileString(FileName:=save, Section:="Maximale lfd. Nr.", key:="lfdNrMax") = lfdNrMax
objWord.Quit
Set objWord = Nothing
Wenn ich allerdings "xRow = rowTar" setze, geht es. Und wenn ich das o. g. in eine While-Schleife packe, geht es auch nicht. Verzweifle hier :(
Bin für eure Hilfe echt dankbar!
Liebe Grüße
Kathi
|