Excel VBA - Jede Zeile in darunterliegende kopieren

Hallo und schonen Sonntag,

ich habe ein Problem. Ich habe ein Excel Sheet mit Datumswerten in der ersten Zeile.

01.01.2015 01.01.2015 XXXXX XXXXX XXXX
02.01.2015 02.01.2015 XXXXX XXXXX XXXX
03.01.2015 03.01.2015 XXXXX XXXXX XXXX

Nun muss ich jede Zeile verdoppeln oder verdreifachen und unter der vorhergehenden einfügen.

01.01.2015 01.01.2015 XXXXX XXXXX XXXX
01.01.2015 01.01.2015 XXXXX XXXXX XXXX
02.01.2015 02.01.2015 XXXXX XXXXX XXXX
02.01.2015 02.01.2015 XXXXX XXXXX XXXX
03.01.2015 03.01.2015 XXXXX XXXXX XXXX
03.01.2015 03.01.2015 XXXXX XXXXX XXXX

Gibt es eine Möglichkeit, mit VBA oder Bordmitteln jede Zeile zu durchlaufen, danach eine Zeile einzufügen und die vorhergehende in einer bestimmten Anzahl zu kopieren?

Ich hab leider nicht viel Ahnung von Excel, geschweige denn VBA,

Vielen Dank

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 378141

Url: https://administrator.de/forum/excel-vba-jede-zeile-in-darunterliegende-kopieren-378141.html

Ausgedruckt am: 25.12.2024 um 20:12 Uhr

4 Kommentare

Neuester Kommentar

Hallo,

Zitat von @zappo74:
01.01.2015 01.01.2015 XXXXX XXXXX XXXX
02.01.2015 02.01.2015 XXXXX XXXXX XXXX
03.01.2015 03.01.2015 XXXXX XXXXX XXXX

Sind zwar schon 3 Zeilen

Nun muss ich jede Zeile verdoppeln oder verdreifachen und unter der vorhergehenden einfügen.

Was denn nun? Verdopplen oder verdreifachen?

Gibt es eine Möglichkeit, mit VBA oder Bordmitteln jede Zeile zu durchlaufen, danach eine Zeile einzufügen und die vorhergehende in einer bestimmten Anzahl zu kopieren?

Ja, gibt es.
Fangt bei Zeile 1 an
Füge eine neue Zeile darunter ein http://www.denisreis.com/excel-vba-zeilen-einfuegen/
Kopiere die aktuelle Zeile in die neu erstellte
Oder eben in einen Schritt http://www.office-loesung.de/ftopic203728_0_0_asc.php
Dein Internet ist voll von Beispielen und Grundlagen zu VBA. Lernen musst du es dann oder du hast genug Taler um ein Dienstleister dafür zu engagieren.

Ich hab leider nicht viel Ahnung von Excel, geschweige denn VBA,

Und wer hindert dich am Lernen?

http://www.lmdfdg.com/?q=excel+vba+zeile+kopieren+und+einf%C3%BCgen

Gruß,
Peter

Hallo,
nutze den Macrorecorder, und pass dann das Macro entsprechend an.
Ist der einfachste Weg.
Vorteil: Du lernst etwas rudimentär VBA und das kann man immer mal gebrauchen.

SH

Servus,

Sub DuplicateRows()
    ' Anzahl zu erstellender Kopien  
    Const NUMCOPIES = 2
    ' Variablen  
    Dim cCurrent as Long, i as integer
    ' Wir arbeiten auf dem aktuellen Sheet  
    With ActiveSheet
        ' Anfangszeile  
        cCurrent = 1
        ' So lange fortsetzen bis eine leere Zelle kommt  
        While .Cells(cCurrent, 1).Value <> ""  
            With .Cells(cCurrent, 1)
                ' Leere Zeilen in der entsprechenden Anzahl unter der aktuellen erstellen  
                For i = 1 To NUMCOPIES
                    .Offset(1, 0).Insert xlShiftDown
                Next
                ' Aktuelle Zeile kopieren und in leeren Bereich einfügen  
                .EntireRow.Copy .Offset(1, 0).Resize(NUMCOPIES, 1)
            End With
            ' Nächste Zelle setzen  
            cCurrent = cCurrent + NUMCOPIES + 1
        Wend
    End With
End Sub

Grüße Uwe