habe heute schon wieder ein Excel-Problem. Ich nutze jetzt folgenden VBA Code um Zeilen per Button zu kopieren und dabei Format und Formatierung zu behalten.
Sub NeueZeile()
Dim Zeile As Long
With ActiveSheet
'Zeilennummer:
Zeile = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
'Kopieren:
Intersect(.Rows(Zeile - 1), .UsedRange).Copy
.Cells(Zeile, 1).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
'Werte löschen
Intersect(.Rows(Zeile), .UsedRange).SpecialCells(xlCellTypeConstants).ClearContents
End With
End Sub
Das funktioniert auch super, ist aber fuer eine andere Arbeitsmappe nicht mehr einsetzbar, da ich dort 2 Zeilen kopieren muss (beide unterschiedlich formatiert) und die Formeln und Formate beibehalten moechte. Gibt es da eine kleine Aenderung fuer den vorliegenden Code oder muss ich da einen komplett neuen Code schreiben?Vielen Dank schonmal.
Gruss Lisa.