Gruppe
Allgemein
Problem
Die Daten der Zeile, in der sich der Cursor befindet, werden in Blatt B übertragen und die Zeile mit der aktiven Zelle wird gelöscht.
StandardModule: Modul1
Sub Uebertragen()
Dim iRow As Integer
With Worksheets("B")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveCell.EntireRow.Copy Worksheets("B").Rows(iRow)
ActiveCell.EntireRow.Delete
.Columns.AutoFit
End With
End Sub