Thema Datum  Von Nutzer Rating
Antwort
Rot Daten aus Excel in Word übernehmen mit VBA
24.09.2021 11:51:26 Stephan S.
NotSolved
24.09.2021 11:56:49 Mase
NotSolved
24.09.2021 12:03:04 Stephan S.
NotSolved
24.09.2021 12:38:41 Mase
NotSolved
24.09.2021 19:40:01 Stephan S.
NotSolved
24.09.2021 19:43:54 Stephan S.
NotSolved
24.09.2021 22:19:12 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Stephan S.
Datum:
24.09.2021 11:51:26
Views:
143
Rating: Antwort:
  Ja
Thema:
Daten aus Excel in Word übernehmen mit VBA

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.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Daten aus Excel in Word übernehmen mit VBA
24.09.2021 11:51:26 Stephan S.
NotSolved
24.09.2021 11:56:49 Mase
NotSolved
24.09.2021 12:03:04 Stephan S.
NotSolved
24.09.2021 12:38:41 Mase
NotSolved
24.09.2021 19:40:01 Stephan S.
NotSolved
24.09.2021 19:43:54 Stephan S.
NotSolved
24.09.2021 22:19:12 xlKing
NotSolved