Hallo zusammen,
ich verwende momentan folgenden Code um aus verschiedene Exceldateien alle Tabellenblätter in eine Datei zusammenzuführen.
<pre>Sub TabellenblaetterZusammenfuehren()
Dim vntPfadUndDateiNamen As Variant
Dim strPfadUndDatei As String
Dim lngi As Long
Dim wbkMappe As Workbook
Dim wksTabelle As Worksheet
Dim wbkZiel As Workbook
Set wbkZiel = ThisWorkbook
vntPfadUndDateiNamen = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Wählen Sie die Dateien für die Zusammenführung aus!", MultiSelect:=True)
If VarType(vntPfadUndDateiNamen) = vbBoolean Then
MsgBox "Keine Daten gewählt"
Else
For lngi = LBound(vntPfadUndDateiNamen) To UBound(vntPfadUndDateiNamen)
strPfadUndDatei = vntPfadUndDateiNamen(lngi)
Set wbkMappe = Application.Workbooks.Open(strPfadUndDatei)
For Each wksTabelle In wbkMappe.Worksheets
wksTabelle.Copy wbkZiel.Worksheets(wbkZiel.Worksheets.Count)
Next
wbkMappe.Close False
Next
End If
End Sub</pre>
Nun würde ich den Code gerne ändern, so dass die zusammengeführten Tabellenblätter den Namen der entsprechenden Datei erhalten.
Bsp.
Es sollen 2 Dateien mit mehreren Tabellenblättern zusammengefügt werden (A.xlsx und B.xlsx)
Die zusammengeführte Excel-Datei soll nun alle Tabellenblätter von A.xlsx in A(1); A(2)... und alle Tabellenblätter von B.xlsx in B(1);B(2)...umbenennen.
Könnt ihr mir hierbei helfen?
Vielen Dank im Voraus.
Foradh