VBA - dynamische Anzahl von Daten aus weiterer Arbeitsmappe kopieren

Moin moin zusammen,
ich bin erst seit ca. 2 Monaten mit VBA unterwegs, aber ich lerne gerne neues hinzu. So nun zu meinem Szenario.
Ich habe eine Arbeitsmappe A.xlsm in diese möchte ich dynamisch Zellenbereiche aus einer bzw mehreren anderen Arbeitsmappen (diese sind gleich aufgebaut) einfügen.
Die weitere Arbeitsmappe (B.xlsx, C.xlsx) verfügt über ein Tabellenblatt benannt ist mit export. Die erste Zeile darin (A1:D1) trägt die Überschriften bzw. Feldbezeichnungen. Ab A2 bis ... können dann die "Datensätze" eingegeben worden sein. Diese Anzahl ist immer unterschiedlich. Es kann sein, das keine Zeile befüllt ist oder auch 23.
Ich habe mir nun überlegt das Script müsse wie folgt arbeiten:
- öffne über den Dateiöffnen Dialog eine oder (wenn möglich) mehrere ausgewählte Datei(en)
- prüfe in B.xlsx wieviel Zeilen auf dem Tabellenblatt export befüllt sind und kopiere diese dann in die A.xlsm Tabelle1 in die erste "freie" Zeile
- prüfe dann die nächste ausgewählte Datei und füge die Zeilen dann in A.xlsm unten an die bestehenden Daten an usw.
Hoffe ich konnte dies einigermaßen verständlich machen, ansonsten einfach nachfragen. Ich habe mal 3 Beispieldateien angehangen. in der A.xlsm ist ausschließlich die Tabelle und eine Schaltfläche beinhaltet, mehr nicht. Also noch nenne wir es mal jungfräulich in den anderen beiden sind unterschiedliche Datensätze enthalten.
https://www.herber.de/bbs/user/135020.xlsm
https://www.herber.de/bbs/user/135021.xlsx
https://www.herber.de/bbs/user/135022.xlsx
Danke euch schon mal für eure Mühen
Thorsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Daten_zusammenfassen() Dim WBnew As Variant Dim WS As Worksheet Dim intDatei As Integer Dim WBN As Workbook Dim WSN As Worksheet Dim intLZ As Integer Dim intLZnew As Integer Set WS = ThisWorkbook.Sheets(1) ' ggf. Tabellenindex oder Tabellennamen anpassen WBnew = Application.GetOpenFilename("Excel Dateien (*.xlsx),*.xlsx", , "XLSX", "Auswahl", True) _ ' Mehrfachauswahl der Quelldateien If TypeName(WBnew) Like "Boolean" Then MsgBox "Keine Datei ausgewählt!", vbInformation Exit Sub Else For intDatei = 1 To UBound(WBnew) Debug.Print WBnew(intDatei) Set WBN = Workbooks.Open(WBnew(intDatei)) With WBN On Error GoTo errHandler Set WSN = WBN.Sheets("export") intLZ = WS.Cells(Rows.Count, 1).End(xlUp).Row + 1 intLZnew = WSN.Cells(Rows.Count, 1).End(xlUp).Row WSN.Range("A2:D" & intLZnew).Copy Destination:=WS.Cells(intLZ, 1) Sprungmarke: Set WSN = Nothing .Close False End With Set WBN = Nothing Next intDatei End If Set WS = Nothing Exit Sub errHandler: MsgBox "Tabelle Export ist in Datei " & WBnew(intDatei) & " nicht vorhanden!", vbInformation GoTo Sprungmarke End Sub

Beliebteste Forumthreads (12 Monate)

VBA - dynamische Anzahl von Daten aus weiterer Arbeitsmappe kopieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread