Ich habe ein Problem dessen Ursache ich nicht ermitteln kann / bzw. den Wald vor lauter Bäumen nicht mehr sehe ? .....
Ich möchte in meinem geöffneten sheet(Tabelle1) einen Zellbereich per Button und danach folgendem Auswahlfenster aus einer geschlossenen Datei importieren.Hier ist es aber nicht immer der selbe Quellpfad , sondern unterschiedliche Pfade und Dateinamen . Die Quelldatei - gleich welcher Name - ist aber immer gleich aufgebaut und die Range um die es geht ist immer A207:S228.Die Ziel-Range im geöffneten sheet , ebenfalls Tabelle1 ,ist auch immer A207:S228 .Das ganze endet in der Fehlermeldung : Fehler 438 Beschreibung : Objekt unterstützt diese Eigenschaft oder Methode nicht . Kann mir vielleicht jemand einen Tip geben was ich da gravierend falsch mache ?
Vielleicht kann man das auch eleganter oder ganz anders lösen ?
Hier mein bisheriger Versuch :
Sub Ticketimport()
Dim Quelle As Object, Ziel As Object
Dim Datei As String
On Error GoTo Fehler
Datei = Application.GetOpenFilename("Excel-Dateien(*.xlsx),*xls")
If Datei = "Falsch" Then
MsgBox "keine Datei ausgewählt", , "Abbruch"
Exit Sub
End If
Workbooks.Open Filename:=Datei
Tabelle1 = ActiveSheet.Range("A207:S228").Value
Set Quelle = ActiveWorkbook.Worksheets(Tabelle1)
Set Ziel = ThisWorkbook.Worksheets(Tabelle1)
Quelle.UsedRange.Copy Ziel.Cells(1, 207)
ActiveWorkbook.Close
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
Ich benutze Office 2016 (war nicht in der Auswahl)
Über eine Antwort bzw. Hilfe hier im Forum würde ich mich ungemein freuen , da mir hier so langsam die Nerven durch gehen .Ich bin mit Excel/VBA rein hobbymässig unterwegs und ich kann meinen Fehler einfach nicht erkennen ......
LG
Dirk