Hallo,
wie muss ich den Code ändern, dass nach dem Drucken nicht nur das
Feld I20 sondern auch das Feld E20 geleert wird?
Danke für die Hilfe.
Lg
Jo65

Private Sub CommandButton1_Click()
Dim iVon As Integer, iBis As Integer, iZ As Integer, RNG As Range

If Not IsEmpty(Range("F3").Value) Then Range("E20") = Range("F3")

With Sheets("Vordruck")
iVon = .Range("G3")
iBis = .Range("I3")

Set RNG = .Range("I20")

For iZ = iVon To iBis
RNG = iZ
.PrintOut Copies:=1
Next

If RNG.MergeCells Then
RNG.MergeArea.ClearContents
Else
RNG.ClearContents
End If

End With
End Sub