Vba Proplem
15.11.2002 15:24:28
Alois P
Dim wks2 As Worksheet
Dim lgLetzte As Long
Set wks2 = Sheets(2)
lgLetzte = wks2.[a65536].End(xlUp).Row + 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9)).Copy wks2.Cells(lgLetzte, 1)
wks2.Cells(lgLetzte, 9).Cut Destination:=wks2.Cells(lgLetzte, 8)
Rows(ActiveCell.Row).Delete
Kann ich da auch noch eine Sicherheitsabfrage und Option Rückgängig einbauen?
Anzeige