Hallo, ich habe folgendes Code für mein Makro (Funktion: Alle Tabellen von ausgewählten Dateien in 1 Datei zusammenfügen)
Ich mache das wieder mit einem AddIn, ohne funktioniert es, aber wenn ich es als AddIn ausführe kommt folgende Meldung:
Die Methode
Beim Debuggen verweist er auf folgende Zeile:
<em><strong>wksT.Copy wbkZiel.Worksheets(wbkZiel.Worksheets.Count)</strong></em>
kann mir da jemand helfen? Bzw. würd ich hier noch zusätzlich gerne das der Dateiname der ausgewählten Dateien dann als Tabellenname übernommen wird (am Besten wäre Ursprungsdateiname+Ursprungstabellenname)
Sub
AlleSheetsAusGewaehltenMappenInEineMappe(control
As
IRibbonControl)
Dim
vntPathAndFileNames
As
Variant
Dim
strPathAndFile
As
String
Dim
lngI
As
Long
Dim
wbkMappe
As
Workbook
Dim
wksT
As
Worksheet
Dim
wbkZiel
As
Workbook
Set
wbkZiel = ActiveWorkbook
vntPathAndFileNames = Application.GetOpenFilename( _
FileFilter:=
"Excel Files (*.xlsx), *.xlsx"
, _
Title:=
"Wählen sie die gewünschten Dateien aus (mit STRG). mit STRG-A wählen sie alle Dateien aus"
, _
MultiSelect:=
True
)
If
VarType(vntPathAndFileNames) = vbBoolean
Then
MsgBox
"Abgebrochen!"
Else
For
lngI = LBound(vntPathAndFileNames)
To
UBound(vntPathAndFileNames)
strPathAndFile = vntPathAndFileNames(lngI)
Set
wbkMappe = Application.Workbooks.Open(strPathAndFile)
For
Each
wksT
In
wbkMappe.Worksheets
wksT.Copy wbkZiel.Worksheets(wbkZiel.Worksheets.Count)
Next
wbkMappe.Close
False
Next
End
If
End
Sub
LG S.