PasteSpecial
frank
Möchte ein Formular drucken und in ein Archiv kopieren.
Bekomme aber folgene Abfrage
" Sollen die Inhalte der Zellen des Zielbereichs überschrieben werden?
Ist da die PasteSpecial Anweisung falsch?
In dem Formular befinden sich auch Formeln.
Option Explicit
Sub druck()
Application.ScreenUpdating = False
If Application.WorksheetFunction.CountA(Range("A3:B28,D3:D28,F3:G28,I3:I28")) = 0 Then
Range("A1:I29").PrintOut 'druckt leeres formular
Exit Sub
Else
Range("A1:I29").PrintOut 'druckt gefülltes Formular
Rows("1:30").Copy 'kopiert das Formular mit den selben Spaltenbreiten ins Archiv nach _
unten
With Sheets("Archiv")
.Range("A1").Insert shift:=xlDown
.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
End With
Application.CutCopyMode = False
Range("A3:B28,D3:D28,F3:G28,I3:I28").ClearContents 'löscht die auszufüllenen Zellen
End If
Application.ScreenUpdating = True
End Sub
Frasnk
Anzeige