ich habe vor kurzem von Dir ein Makro bekommen, mit dem ich Daten von Excel kopieren kann und in Word einfügen! Leider funktioniert das Makro an einer Stelle nicht!
Kannst Du mir bitte nochmals helfen!?
Das Makro:
Sub Prüfbericht_aktivieren()
Dim i As Integer
For i = 1 To Worksheets.Count
Dim oWord As Object
Dim oDoc As Object
Dim iRow As Integer
Dim sFile As String
sFile = "C\:Prüfbericht_Öl.doc"
If Worksheets(i).Name = "Übersichtsblatt" Then
Sheets("Übersichtsblatt").Range("B17:B38").Copy
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Open(sFile)
oDoc.Selection.GoTo What:=wdGoToBookmark, _ Name:="Zusammenfassung"--> FEHLER
oDoc.Selection.Paste
oDoc.Save
oDoc.Close
oWord.Quit
End If
Next
End Sub
Ich habe keine Ahnung warum das nicht funktioniert!
LG Chris