ich habe im Forum das anliegende Beispiel gefunden da es richtig interessant ist und wollte es gern Mal testen. Jedoch erscheint bei mir immer die Fehlermeldung:
" objekt unterstützt diese Eigenschaft nicht" aber keine Nummer dazu.
https://www.herber.de/bbs/user/96255.xlsm
kann sich dies mal jemand anschauen?
Liebe grüsse Thomas
Sub Drucken()
von = Sheets("Serienbrief").Range("von")
bis = Sheets("Serienbrief").Range("bis")
For i = von To bis
Sheets("Serienbrief").Range("A1").Value = i
Sheets("Serienbrief").SelectedSheets.PrintOut _
Copies:=1, Collate:=True
Next i
End Sub