2 verschiedene Zeilen mit VBA kopieren
09.04.2019 10:16:59
Lisa
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
Vielen Dank schonmal.
Gruss Lisa.
Anzeige