Excel Zellbereich nach Word kopieren
17.05.2018 13:09:08
Ralph
habe als VBA-Anfänger ein kleines Problem und hoffe auch eure Hilfe.
Ich möchte einen Zellbereich aus einer Excel-Tabelle nach Word kopieren. Mein Problem ist, dass mein Code nur funktioniert, sofern ich eine Spalte vorgebe("A" & i). Sobald die Range mehrere Spalten umfassen soll funktioniert es nicht und beim Debuggen bleibt er an der Range-Zeile ".TypeText Text:=CStr(Fragebogen.Range("A" & i, "B" & i))" hängen.
Nachfolgend mein Code (auch andere Range vorgaben z. B. (Cells(1, 1), Cells(5, i) oder ("A1:E" & _
i) funktionieren nicht).
Private Sub VorschlagErstellen_Click()
'Schaltfläche "Vorschlag erstellen" öffnet Word.doc und liest Tabelle Fragebogen aus
'Generelle Fehlerprüfung, falls Fehler -> Abbruch des Sub
On Error GoTo FehlermarkeHilfe:
Dim wdApp As Object
Dim wdoc As Object
Dim i As Integer
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
On Error GoTo 0
If wdApp Is Nothing Then
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
End If
wdApp.Documents.Add
Set wdoc = wdApp.ActiveDocument
With wdApp.Selection
.Font.Name = "Arial"
.Font.Size = 9
.ParagraphFormat.SpaceAfter = 0
.ParagraphFormat.SpaceAfterAuto = False
For i = 1 To 25
.TypeText Text:=CStr(Fragebogen.Range("A" & i, "B" & i))
.TypeParagraph
Next
'Scrollen auf Seite 1 Oben
wdApp.ActiveDocument.Range(0, 0).Select
End With
Set wdoc = Nothing
Set wdApp = Nothing
FehlermarkeHilfe:
End Sub