mein Problem ist folgendes! Habe in Excel ein Button, welches mir ein Wordformular öffnet! Dort sollen aus bestimmten Sheets bestimmte Bereiche in Word kopiert werden. Als Eingabepunkte möchte ich Textmarken verwenden.
Mein Makro bis jetzt:
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run "Prüfbericht.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
Selection.GoTo What:=wdGoToBookmark, Name:="Zusammenfassung"
Selection.Paste
End If
Next
End Sub
Mit [Selection.GoTo What:=wdGoToBookmark, Name:="Zusammenfassung"]
Kann Excel jedoch nichts anfangen!
Kann mir vielleicht jemand helfen!
Grüsse Chris