ich habe folgendes Problem: Ich möchte eine Tabelle (.xlsm) erstellen, welche mit Daten aus einer anderen (monatlich komplett neu erstellten) Excel-Datei (auch .xlsm) gefüttert werden soll.
Folgendes Modul habe ich bereits:
Sub ImportNeueDaten()
Dim Quelle As Object, Ziel As Object
Dim Datei As String
On Error GoTo Fehler
'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien (*.xls;*.xlsm;*.xlsx), *.xls; *.xls;*.xlsm;*. _
_
xlsx", _
MultiSelect:=True)
'Abbrechen falls keine Datei ausgewählt
If Datei = "Falsch" Then
MsgBox "keine Datei ausgewählt", , "Abbruch"
Exit Sub
End If
'MsgBox "Ausgewählte Datei: " & Datei, , ""
'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Datei
Set Quelle = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets(1)
'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Cells(1, 1)
ActiveWorkbook.Close
'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing
Exit Sub
Fehler:
Set Quelle = Nothing
Set Ziel = Nothing
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub
Ausgeführt wird dieses über ein UserForm mit CommandButton.Allerdings wird mir nachdem ich eine Datei auswähle der Fehler
"FehlerNr.: 13
Beschreibung: Typen unverträglich" angezeigt.
Was mache ich falsch?
Die Quelldatei ist sehr groß, liegt es vielleicht daran?