VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aktive Zeile kopieren und löschen

Gruppe

Allgemein

Bereich

Kopieren

Thema

Aktive Zeile kopieren und löschen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren