Daten einlesen (Fehler 13 Typen unverträglich)

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Daten einlesen (Fehler 13 Typen unverträglich)
von: Günter
Geschrieben am: 22.10.2015 07:44:11

Hallo,
ich möchte Daten aus einer excel-Datei (xlsx) in eine bestehende xlsm-Datei einlesen und dort weiterverarbeiten.
Die Quell-Excel-Datei möchte ich vorher über den Explorer auswählen.
Ich habe mir dazu folgendes coding (zugegebenmassen teilweise zusammenkopiert aus dem forum) zusammengebastelt.
Aber ich bekomme den Fehlercode 13 zurück.
Ich kann die Quell-Datei auswählen, die dann auch geöffnet wird, aber ab dann ist Essig....
Hier der Code:
#####################################

Sub test()
Dim Quelle As Object
Dim Ziel As Object
Dim Datei As String
On Error GoTo Fehler
'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien(*.xl*),*xl*")
'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
'** Auslesen der gewählten Tabelle
Set Quelle = ActiveWorkbook.Worksheets(Tabelle1) 'Liegt hier der Fehler ???
Set Ziel = ThisWorkbook.Worksheets(3)            'Warum (3) ???
'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

###################################
Gruß
Günter

Bild

Betrifft: AW: Daten einlesen (Fehler 13 Typen unverträglich)
von: hary
Geschrieben am: 22.10.2015 07:56:15
Moin
Set Quelle = ActiveWorkbook.Worksheets(Tabelle1) 'Liegt hier der Fehler ???
Blattnamen immer in Gaensepfoten
Set Quelle = ActiveWorkbook.Worksheets("Tabelle1")
Die 3 ist der index der Blaetter, hier also immer das 3.Blatt egal wie es heisst.
Set Ziel = ThisWorkbook.Worksheets(3)
gruss hary

Bild

Betrifft: AW: Daten einlesen (Fehler 13 Typen unverträglich)
von: Günter
Geschrieben am: 22.10.2015 08:23:28
Hallo Hary,
vielen Dank für die schnelle Hilfe.
Als ich Deine Antwort gelesen habe, fiel es mir wie Schuppen...
Schäme mich auch für den dusseligen DAU-Fehler.
Gruß
Günter

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Daten einlesen (Fehler 13 Typen unverträglich)"