Microsoft Excel

Herbers Excel/VBA-Archiv

mehrere beliebige Zeilen kopieren - VBA

Betrifft: mehrere beliebige Zeilen kopieren - VBA von: Tobi
Geschrieben am: 29.01.2020 14:23:01

Hallo Leute,

ich habe folgenden Code:

  • 
    Sub letzteZelle_kopieren_darunter_einfuegen()
    
        Const FORMTABELLE As String = "Tabelle1"
    
        Dim Wb As Workbook
        Dim Ws As Worksheet
        Dim Lo As ListObject
        
        Set Wb = ThisWorkbook
        Set Ws = Wb.Worksheets("Abrechnungstabelle")
        
        Dim lz As Integer
        
        With Ws
            lz = Cells(Rows.Count, 1).End(xlUp).Row
            Set Lo = .ListObjects(FORMTABELLE)
            Lo.ListRows.Add
            ActiveCell.EntireRow.Copy Destination:=Rows(lz + 1)
            Range("B" & lz + 1).Value = Range("P" & lz + 1).Value + 1
            Range("C" & lz + 1).Value = "nein"
            Range("F" & lz + 1).Value = ""
        End With
    
    End Sub


  • Dieser funktioniert auch super. Ich klicke in eine beliebige Zelle in einer Zeile (einer Tabelle) und er wird am Ende der Tabelle eingefügt.

    Nun möchte ich, dass mehrere Zeilen der Tabelle ausgewählt werden können und dann unten (mit den Spezifikationen) eingefügt werden.

    Ich habe Selection.Copy versucht, was leider nicht funktioniert.

    Kann mir jemand bitte helfen?

    Freundliche Grüße

    Tobias

    Beiträge aus dem Excel-Forum zum Thema "mehrere beliebige Zeilen kopieren - VBA "