Gruppe
Allgemein
Problem
Wie kann ich die Zeile, in dem sich der Cursor befindet, in eine zweite Tabelle kopieren?
StandardModule: basMain
Sub ZeilenKopieren()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("Tabelle2")
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(ActiveCell.Row).Copy wks.Rows(iRow)
Application.CutCopyMode = False
wks.Columns.AutoFit
End Sub