title image


Smiley Re: Worddatei (Serienbrief) aus Excel starten geht einfach nicht
Hi Gerd,



vielleicht hilft dir dieser Code als Denkanstoß. Darin wird ein definierter Bereich aus einer Excel-Tabelle in eine bereits vorhandene, jedoch nicht geöffnete Worddatei kopiert. Der Dateiname muss mit Pfadangabe erfolgen.



Sub CommandButton1_Click()

' ********************************************************************************************************

' * Code 18/19.10.05: Hajo_Zi, Herbers Excel-Server (Hinweis von jinx); angepasst Karin (Beverly) *

' ********************************************************************************************************

Dim InAnzahl As Integer

Dim StDateiname As String

Dim StAnfang As String

Dim StEnde As String

StAnfang = Range("A6").Value

StEnde = Range("B6").Value

StDateiname = InputBox("Bitte Dateinamen der Worddatei eingeben!")

StDateiname = StDateiname & ".DOC"

On Error GoTo Fehler

Dim appWord As Object

If Dir(StDateiname) = "" Then

MsgBox "Word-Dokument nicht gefunden"

Exit Sub

Else

Set appWord = CreateObject("Word.Application")

appWord.Documents.Open StDateiname

End If

For InAnzahl = 1 To Workbooks.Count

With Workbooks(InAnzahl).Worksheets(1)

.Range(StAnfang & ":" & StEnde).Copy

End With

Next

Set appWord = Nothing

Fehler:

End Sub



GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: