zappo74
Jun 24, 2018
view7458
view4
0
Goto Top

Excel VBA - Jede Zeile in darunterliegende kopieren

GermanQuestionMicrosoft OfficeMicrosoft
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 378141

Url: https://administrator.de/contentid/378141

Printed on: April 26, 2024 at 13:04 o'clock

4 Comments
Latest comment
Goto Top
Member: Pjordorf
Pjordorf Jun 24, 2018 at 16:02:22 (UTC)
Goto Top
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 face-smile

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
Member: SachsenHessi
SachsenHessi Jun 25, 2018 at 06:50:53 (UTC)
Goto Top
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
Member: colinardo
colinardo Jun 25, 2018 updated at 13:20:54 (UTC)
Goto Top
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
heart1
Member: colinardo
colinardo Jun 26, 2018 at 12:18:00 (UTC)
Goto Top
Wenns das dann war, den Beitrag bitte noch auf gelöst setzen, und Lösungen markieren. Merci.
GermanQuestionMicrosoft OfficeMicrosoft