Verschiedene Blätter automatisiert zusammenfassen

Hallo, ich suche eine Möglichkeit verschiedene Blätter in ein einziges zu kopieren.
Folgende Ausgangssituation:
Ich habe 19 Blätter mit je 17 Spalten. Jedes Blatt hat zwischen 200 und 3000 Zeilen.
Was ich gerne Hätte:
Ein einziges Blatt mit 17 Spalten und (insgesamt) etwa 22.000 Zeilen.
Jetzt sagt Ihr sicher: STRG+A und zusammenkopieren. Das würde ich auch machen, wenns eine einmalige Aufgabe wäre. Die Blätter müssen leider getrennt bleiben zum bearbeiten (der übersicht wegen) und zusammengefasst werden um das Ganze ins Programm zu überspielen. Das überspielen findet ca. 2-3 mal pro Jahr statt, wesswegen ich das ganze gerne mit nem Makro oder VBA machen würde. Nur leider hab ich kaum Ahnung davon. :(
Ich stelle mir das so vor:
Das VBA Programm sollte eine neue Datei erzeugen, dann klappert es Blatt 1 ab bis zum letzten Eintrag (Achtung, es sind auch Leerzeilen dabei), kopiert das und fügt die WERTE dann in der Liste ein. Dann weiter mit Blatt 2 und anhängen... Blatt 3 und so weiter.
Ich brauche bloss unbedingt die Werte (Inhalte einfügen - Werte), weil vieles berechnet wird. Nicht daß da irgendwo was verfälscht wird, den Fehler könnte man unmöglich rausfinden bei den vielen Daten. Ich möchte das Ergebnis dann als Tab getrennte TXT Datei exportieren und in die Warenwirtschaft einspielen.
Wie kann ich das am besten machen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub machs() Dim objWB As Workbook Dim objWS As Worksheet Dim L As Long Dim vntArr As Variant Dim lsp As Long Set objWB = Workbooks.Add 'Das VBA Programm sollte eine neue Datei erzeugen,.. L = 1 For Each objWS In ThisWorkbook.Worksheets 'dann klappert es Blatt 1...ab With objWS lsp = .Cells(1, Columns.Count).End(xlToLeft).Column vntArr = .Range("A1", .Cells(.Rows.Count, lsp).End(xlUp)).Value 'kopiert das... objWB.Sheets(1).Cells(L, 1).Resize(UBound(vntArr), lsp) = vntArr '...und fügt die _ WERTE dann in der Liste ein. L = L + UBound(vntArr) End With Next 'Dann weiter mit Blatt 2 und anhängen... Blatt 3 und so weiter. With objWB .SaveAs Filename:="C:\XYZ.txt", FileFormat:=xlText, CreateBackup:=False '...als Tab _ getrennte TXT Datei exportieren... .Close (True) End With End Sub

Hallo Walther,
Du suchst die Zeilennummer der letzten belegten Zelle in Spalte B:B und willst dann die Daten aus A1:Q & Zeilennummer ?

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Sub machs()
    Dim objWB As Workbook
    Dim objWS As Worksheet
    Dim L As Long
    Dim lng_Letzte As Long
    Dim vntArr As Variant
    Set objWB = Workbooks.Add 'Das VBA Programm sollte eine neue Datei erzeugen,..
    L = 1
    For Each objWS In ThisWorkbook.Worksheets 'dann klappert es Blatt 1...ab
        With objWS
            lng_Letzte = .Cells(.Rows.Count, 2).End(xlUp).Row 'Zeilennummer der letzten gefüllten Zelle in B:B
            vntArr = .Range("A1", .Cells(lng_Letzte, 17)).Value
            'oder:
            'vntArr = .Range("A1:Q" & lng_Letzte).Value
            objWB.Sheets(1).Cells(L, 1).Resize(UBound(vntArr), 17) = vntArr
            L = L + UBound(vntArr)
        End With
    Next 'Dann weiter mit Blatt 2 und anhängen... Blatt 3 und so weiter.
    With objWB
        .SaveAs Filename:="C:\XYZ.txt", FileFormat:=xlText, CreateBackup:=False '...als Tab getrennte TXT Datei exportieren...
        .Close (True)
    End With
End Sub

ransi

Beliebteste Forumthreads (12 Monate)

Verschiedene Blätter automatisiert zusammenfassen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread