Auswahlbereich in Excel kopieren und in Word einfügen
21.11.2023 13:43:31
DerFreddy
es ist mal wieder soweit. Ich habe mich mal wieder aufgehängt und brauche einen Reboot meiner Festplatte.
Ich habe folgendes Problem:
Ich möchte einen Tabellenbereich in Excel markieren, kopieren und an Word übertragen.
Dim Endpfad As String
Endpfad = Pfad & Ordnername & OrdnerFirmendaten & OrdnerArbeitsschutzhandbuch & "\"
Dim wordapp As Object
Set wordapp = CreateObject("word.Application")
wordapp.Documents.Open "C:\Beispielordner\3.1 Gefährdungsbeurteilungen.docx"
wordapp.Visible = False
Worksheets("Liste_GFBU").Activate
Range(Cells(1, 1), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2)).Select
Selection.Copy
wordapp.ActiveDocument.Bookmarks("Liste_Gefährdungsbeurteilungen").Range.Text = Selection.PasteSpecial
wordapp.ActiveDocument.SaveAs Endpfad & "3.1 Gefährdungsbeurteilungen.docx"
wordapp.ActiveDocument.Close
wordapp.Quit
Jetzt habe ich das Problem, dass im Worddokument an der Stelle der Textmarke nur ein "True" ausgespuckt wird. Alles andere funktioniert ohne Probleme.
Ich bin jetzt schon durch einige Forumthreads gesurft aber irgendwie komme ich nicht weiter. Ich stehe auf dem Schlauch.
Bitte bitte habt Erbarmen mit mir und erleuchtet mich und meine bescheidenen VBA Kenntnisse :-)
Liebe Grüße
Frederik