Word mit Excel steuern
Guido
Private Sub CommandButton1_Click()
Application.ActivateMicrosoftApp xlMicrosoftWord
Dim Word As Word.Application
Set Word = CreateObject("Word.Application")
Word.Visible = True
Sheets("suche").Select
Range("a2:g2").Select
Selection.ClearContents
Sheets("datenbank").Select
Li2 = lbdaten.ListIndex + 2
Set d3 = Cells(Li2, 1)
Set d4 = Cells(Li2, 7)
Range(d3, d4).Select
Selection.Copy
ActiveSheet.Paste Destination:=Worksheets("suche").Range("a2")
Sheets("suche").Select
Columns("a:g").AutoFit
inhalt = Range("A2:G2").Value
Word.Application.Value = inhalt
End Sub
Danke im vorraus für ihre Antwort