title image


Smiley Re: Serienbrief aus Excel in Word
Hallo,

kann die mail nicht beantworten es kommt ständig eine Fehlermeldung, also hier nur der Code für den Serienbrief zum Ausdrucken:



Sub Serienbrief()

Application.ScreenUpdating = False ' hier wird nur das "Flackern aus und unten wieder eingeschaltete, hat sonst keine Bedeutung

anzahl = Sheets("Adressen").Range("h1").Value ' hier wird die Anzahl der Schleifendurchläufe (Adresslistenanzahl) abgefragt

For i = 1 To anzahl

Range("P1 ").Value = i ' hier wird einfach in P1 die Zahl i hochgezaählt



ActiveWindow.SelectedSheets.PrintPreview ' wenn man vor dieser Zeile das Hochkomma setzt wird alles auf einen Rutsch ausgedru7ckt!!!

'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ' hier wird gedruckt, wenn das Hochkomma vor dieser Zeile rausgenommen wird

Next

Application.ScreenUpdating = True

End Sub

der Rest passiert im Blatt selbst eigentlich nur mittels sverweisfunktion!

Gruss WS

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: