möchte aus einer Zeile die Formate und Formeln kopieren und dann in einen anderen Zellebereich einfügen.
Mein Code:
For j = i To 0 Step -1
If Cells(j, 1).Value = "Gesamtsumme:" Then
Rows(j - 2).Copy 'zu kopierende zeile
Rows(i & ":" & i - 1 + Text3).Paste 'hineinzukopierender Bereich
Application.CutCopyMode = False
End If
Next j
Mir geht es um die eigentlichen Kopierbefehle und Einfüge Anweisungen.