VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Zellenwert von Excel nach Word	07.01.2015 17:14:56	Dimi
Zellenwert von Excel nach Word	09.01.2015 10:02:37	Gast35667
Zellenwert von Excel nach Word	09.01.2015 11:51:12	dimi
Zellenwert von Excel nach Word	09.01.2015 21:05:00	Gast51711
Zellenwert von Excel nach Word	12.01.2015 14:00:45	dimi
Zellenwert von Excel nach Word	12.01.2015 23:08:45	Gast85595
Zellenwert von Excel nach Word	13.01.2015 13:59:08	Dimi

Ansicht des Beitrags:

Von:
Gast85595

Datum:
12.01.2015 23:08:45

Views:
733

Rating:

Antwort:

Thema:
Zellenwert von Excel nach Word

Hallo,

prima, null Problemo:

Option Explicit

Private Sub CommandButton3_Click()
Const wdSaveChanges = -1
Dim objWordApp As Object
Dim objWordDoc As Object
Dim objWordRange As Object
Dim vntElem As Variant
Dim avntArray As Variant
Dim strText As String
Set objWordApp = fncObjOffApp(pvstrApp:="Word")
With objWordApp
    .Visible = True
    Set objWordDoc = .Documents.Add
End With
Set objWordRange = objWordDoc.Content
With Worksheets("Sheet2")
    avntArray = .Cells(2, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 1)
End With
For Each vntElem In avntArray
   strText = strText & vntElem & Chr(10)
Next
objWordRange.InsertAfter Text:=strText
Set objWordApp = Nothing
Set objWordDoc = Nothing
Set objWordRange = Nothing
End Sub

Private Function fncObjOffApp(ByVal pvstrApp As String) As Object
    Dim objApp As Object
    On Error Resume Next
    Set objApp = GetObject(Class:=pvstrApp & ".Application")
    If Err.Number = 429 Then
        Err.Clear
        Set objApp = CreateObject(pvstrApp & ".Application")
        objApp.Visible = True
        If Err.Number > 0 Then
            MsgBox Err.Number & " " & Err.Description
            Set objApp = Nothing
        End If
    ElseIf Err.Number <> 0 Then
        MsgBox Err.Number & " " & Err.Description
        Set objApp = Nothing
    End If
    On Error GoTo 0
    Set fncObjOffApp = objApp
    Set objApp = Nothing
End Function

Gruß,

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Zellenwert von Excel nach Word	07.01.2015 17:14:56	Dimi
Zellenwert von Excel nach Word	09.01.2015 10:02:37	Gast35667
Zellenwert von Excel nach Word	09.01.2015 11:51:12	dimi
Zellenwert von Excel nach Word	09.01.2015 21:05:00	Gast51711
Zellenwert von Excel nach Word	12.01.2015 14:00:45	dimi
Zellenwert von Excel nach Word	12.01.2015 23:08:45	Gast85595
Zellenwert von Excel nach Word	13.01.2015 13:59:08	Dimi