Microsoft Excel

Herbers Excel/VBA-Archiv

Zeile kopieren und doppelt einfügen

Betrifft: Zeile kopieren und doppelt einfügen von: Karnomina
Geschrieben am: 17.07.2020 07:59:00

Hallo Zusammen,


ich habe mal eine Frage und zwar möchte ich gerade ein Code zusammenbasteln. Dieser soll aus einer externen Mappe in einem bestimmten Bereich die Daten kopieren solange die Zellen gefüllt sind bzw ganze Zeilen kopieren wenn da Informationen enthalten sind. In die Zieldatei soll dann diese Zeile doppelt kopiert werden und das Zeile für Zeile.


Allerdings habe ich bis jetzt nichts hinbekommen was halbwegs funktioniert.


Kann mir eventuell jemand da weiterhelfen?


Viele Grüße

Karanomina

Betrifft: AW: Zeile kopieren und doppelt einfügen
von: Hajo_Zi
Geschrieben am: 17.07.2020 08:34:16

Hallo Karanomina
Option Explicit

Sub KopierenDoppelt()
    Dim Loletzte1 As Long
    Dim Loletzte2 As Long
    Dim LoI As Long
    With Workbooks("Statistik  Download Neu Strato.XLSM").Worksheets("allgemein")
        Loletzte1 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
        For LoI = 1 To Loletzte1
            Loletzte2 = Workbooks("Forum 30.XLSM").Worksheets("Tabelle1").UsedRange. _
SpecialCells(xlCellTypeLastCell).Row + 1
            .Rows(LoI).Copy Workbooks("Forum 30.XLSM").Worksheets("Tabelle1").Rows(Loletzte2 & " _
:" & Loletzte2 + 1)
        Next LoI
    End With
End Sub
GrußformelHomepage

Beiträge aus dem Excel-Forum zum Thema "Zeile kopieren und doppelt einfügen"