|
Guten Tag,
Ich habe folgendes VBA Program auf einem PC mit Office: 365 geschrieben.
Sub DatumFiltern()
With Tabelle1
.Range("A1").AutoFilter Field:=1, _
Criteria1:=">=" & CLng(.Range("E3").Value), _
Operator:=xlAnd, _
Criteria2:="<=" & CLng(.Range("G3").Value)
'Aufsummieren der Werte gefiltert in Spalte B
.Range("I3").Value = Application.WorksheetFunction.Subtotal(9, .Range("B:B"))
'Stop
.ShowAllData
End With
Dim Abrechnung As Object
Dim appWord As Object
Set appWord = CreateObject("Word.Application")
Set Abrechnung = appWord.Documents.Add("C:\Users\Andrea\Desktop\Vorlage.docx")
appWord.Visible = True
Abrechnung.Activate
Abrechnung.Bookmarks("Name").Range.Text = Range("Name")
Abrechnung.Bookmarks("Geburtsdatum").Range.Text = Range("Geburtsdatum")
Abrechnung.Bookmarks("Stunden").Range.Text = Range("Stunden")
Abrechnung.Bookmarks("Abrechnungssatz").Range.Text = Range("Stundensatz")
Abrechnung.Bookmarks("Abrechnungssumme").Range.Text = Range("Abrechnungssumme")
Abrechnung.Bookmarks("Adresse").Range.Text = Range("Adresse")
Abrechnung.Bookmarks("von").Range.Text = Range("von")
Abrechnung.Bookmarks("bis").Range.Text = Range("bis")
Abrechnung.Bookmarks("von1").Range.Text = Range("von")
Abrechnung.Bookmarks("bis1").Range.Text = Range("bis")
Abrechnung.Bookmarks("StundensatzBZL").Range.Text = Range("StundensatzBZL")
Abrechnung.Bookmarks("DatumBZL").Range.Text = Range("DatumBZL")
Abrechnung.Bookmarks("StundensatzVertrag").Range.Text = Range("Stundensatz")
Abrechnung.Bookmarks("DatumVertrag").Range.Text = Range("DatumVertrag")
Set Abrechnung = Nothing
Set appWord = Nothing
End Sub
Nun wollte ich es auf einem anderen PC-laufen lassen mit Office: 2019 Proffesional
Hier kommt bei Debuggen ständig folgender Fehler in folgender Zeile:
Set Abrechnung = appWord.Documents.Add("C:\Users\Andrea\Desktop\Vorlage.docx")
Laufzeitfehler 5981, Anwednugs oder objektdefinierter Fehler.
Ich habe natürlich den Ort der Datei angepasst, wenn ich den Ort absichtlich falsch angebe kommt die Fehlermeldung dass er die Datei nicht finden kann!
Wo kann da der Fehler liegen!
Bitte dringend um Hilfe!
Danke!
LG Stephan S.
|