Public Sub addFormat(vonR As Range, zuR As Range)
    Dim sNumberFormat As String
    Dim aktZu As Range
    For Each aktZu In zuR.Cells
        vonR.Copy
        sNumberFormat = aktZu.NumberFormat
        aktZu.PasteSpecial xlPasteFormats
        aktZu.NumberFormat = sNumberFormat
    Next aktZu
End Sub