Private Sub CommandButton1_Click()
Dim oWord As Object
Dim oDoc As Object
Dim sFile As String
'Range ist der Zellenbereich der ins Word kopiert wird
ThisWorkbook.Worksheets("Tabelle1").Range("B7:C11").Copy
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add
oDoc.Range.Paste
oWord.Quit
Set oDoc = Nothing
Set oWord = Nothing
End Sub
Private Sub CommandButton1_Click()
Dim oWord As Object
Dim oDoc As Object
Dim sFile As String
'Zellenbereich definieren
ThisWorkbook.Worksheets("Tabelle1").Range("B7:C11").Copy
'Word Dokument erzeugen und Zellbereich hineinkopieren
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add
oDoc.Range.Paste
'Seitenlayout von Word festlegen
With oDoc.PageSetup
.TopMargin = oWord.CentimetersToPoints(1)
.BottomMargin = oWord.CentimetersToPoints(1)
.LeftMargin = oWord.CentimetersToPoints(1)
.RightMargin = oWord.CentimetersToPoints(1)
End With
oWord.Quit
Set oDoc = Nothing
Set oWord = Nothing
End Sub