Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aktive Zeile kopieren und löschen

Gruppe

Kopieren

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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