2 Dateien zusammenfügen

MomoCJ · 2023-08-28T10:56:25+00:00

Hallo, ich habe 2 Dateien die immer gleich erstellt werden. Aber sie haben zueinander ein unterschiedliches Format. Dennoch sollen die Dateien in einer neuen Exceldatei via Makro zusammengefügt werden. Es handelt sich dabei um Bankdaten. Die eine Datei hat nur die Reihe Betrag, die andere hat den Betrag in Soll und Haben Reihen aufgeteilt, was das ganze nochmal erschwert. Es soll so gesehen eine neue Datei mit Einzelüberschriften entstehen, die die CSV-Dateien selbständig einliest, 4 Informationsreihen einfügt und dann die nächste Datei einliest. Ist das unter den Voraussetzungen überhaupt möglich? Danke und LG Monika L.

Hallo Momo!

Aufgrund der Ansichten in der Datei konnte ich dir was basteln jedoch nicht testen. Die SWIFT hab ich der 2ten Datei auch nicht identifiziert.
Die Kommentare stehen mit drin, versuch mal, ob du klarkommst.

Sub Bankdaten_zusammenfügen()



    Dim datei As Workbook

    Dim sh As Worksheet

    Dim Bewegung As Range

    Dim twb As Workbook

    Dim z_sh As Worksheet

    

    Set twb = ThisWorkbook

    Set z_sh = twb.ActiveSheet

    

    Set datei = Workbooks("Datei1") 'Pfad von Datei

    datei.Open

    Set sh = datei.Sheets(1) 'ggf. Sheet-Nummer anpassen

    

    Set sh = ActiveSheet

    

    Z = 24 'erste Zeile im Zielsheet, anpassen

    '_____________________________________________________

    For Each Bewegung In sh.Range("B:B").SpecialCells(xlCellTypeConstants, xlNumbers)

        z_sh.Cells(Z, 1) = sh.Cells(Bewegung.Row, "A")

        z_sh.Cells(Z, 2) = sh.Cells(Bewegung.Row, "N")

        z_sh.Cells(Z, 3) = sh.Cells(Bewegung.Row, "E")

        z_sh.Cells(Z, 4) = sh.Cells(Bewegung.Row, "O")

        Z = Z + 1 'Zähler

    Next Bewegung

    datei.Close 0 'Schließen ohne speichen

    '_____________________________________________________

    

    Set datei = Workbooks("Datei2") 'Pfad von Datei

    datei.Open

    Set sh = datei.Sheets(1) 'ggf. Sheet-Nummer anpassen

    '_____________________________________________________

    For Each Bewegung In sh.Range("B:B").SpecialCells(xlCellTypeConstants, xlNumbers)

        z_sh.Cells(Z, 1) = sh.Cells(Bewegung.Row, "F")

        z_sh.Cells(Z, 2) = "?" 'sh.Cells(Bewegung.Row, "N")

        z_sh.Cells(Z, 3) = sh.Cells(Bewegung.Row, "E")

        z_sh.Cells(Z, 4) = sh.Cells(Bewegung.Row, "L")

        Z = Z + 1 'Zähler

    Next Bewegung

    datei.Close 0 'Schließen ohne speichen

    '_____________________________________________________

    Set sh = Nothing

    Set z_sh = Nothing

    Set twb = Nothing

    Set datei = Nothing

End Sub

Gruß, MCO

Forumthread: 2 Dateien zusammenfügen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

2 Dateien zusammenfügen

Forumthread: 2 Dateien zusammenfügen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread