Excel zu Word Zellformat
PeterO
Ich möchte Zahlen aus Excel in ein Worddokument übernehmen. Soweit kein Problem, mach ich mit folgendem Code:
Private Sub CommandButton1_Click()
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("O:\EV\Angebot.doc")
appWord.Visible = True
docTest.Activate
docTest.Bookmarks("Leistung_kWp").Range.Text = Range("B4")
Set docTest = Nothing
Set appWord = Nothing
End Sub
Die Zellen in Excel haben meist ein benutzerdefiniertes Format, das ich mit nach Word übernehmen möchte. Gibt es dafür einen Lösungsansatz?
Gruß PeterO
Anzeige