habe es vor einigen Tagen schon mal wegen eines Problems bei Euch versucht! Leider nach Versuch ohne Erfolg! Deshalb versuche ich es nochmals!
Und zwar wollte ich Daten von Excel in einen festgelegten Bereich (diesen habe ich mit einer "Textmarke" versehen) kopiert werden.
Leider bringt er mir einen Fehler.
Hier das Makro:
Dim objWd As Object
Set objWd = CreateObject("Word.Application")
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run "I:\Prüfbericht_Öl.doc"
Range("A1").Select
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "Übersichtsblatt" Then
Sheets("Übersichtsblatt").Select
Range("B17:B38").Select
Selection.Copy
wshshell("I:\Prüfbericht_Öl.doc").Activate --> FEHLER!!!
Selection.GoTo What:=wdGoToBookmark, Name:="Zusammenfassung"
Selection.Paste
End If
Next
End Sub
Vielleicht könnte mir jemand nochmal behilflich sein!
Sorry, für den zweiten Versuch, habe aber meinen alten Beitrag nicht mehr gefunden!
Gruß Chris