Ich habe ein Problem ,zu dem ich hier zwar schon Feedback bekommen habe , jedoch kam bisher noch keine Lösung dabei heraus .Zur Erklärung :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:C228.Die Ziel-Range im geöffneten sheet , ebenfalls Tabelle1 ,ist auch immer A207:C228 .Das ganze endet in der Fehlermeldung : Fehler 438 Beschreibung : Objekt unterstützt diese Eigenschaft oder Methode nicht .Nach einem Vorschlag aus dem Forum habe ich dann den Code leicht umgeschrieben . Leider veränderte sich dabei nur die Fehlermeldung , nicht aber die Funktion die ich eigentlich haben wollte :-(
Mein erster Versuch sah so aus :
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:C228").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
Der Änderungsvorschlag sah dann so aus :
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 = False Then
MsgBox "keine Datei ausgewählt", , "Abbruch"
Exit Sub
End If
Workbooks.Open Filename:=Datei
ActiveWorkbook.Tabelle1.Range("A207:C228").Copy _
ThisWorkbook.Tabelle1.Range("A207:C228")
ActiveWorkbook.Close
Exit Sub
Fehler:
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub
Leider änderte sich nur die Fehlermeldung :FehlerNr.13 Beschreibung : Typen unverträglich.
Daraufhin bekam ich den Tip den Code zu unterteilen um den Fehler wenigstens schon mal der Quell oder Zieldatei zuzuordnen . Leider liefen beide Teile in den Fehler 13.
Kann mir bitte , bitte , bitte jemand einen Tip geben was ich falsch mache ?
Zum besseren Verständnis habe ich die Zieldatei mit entsprechendem Code mal angefügt , vielleicht nütz es ja etwas , falls mir jemand helfen kann .
Da ich mich nur rein Hobby-mässig mit Excel/VBA beschäftige , war ich schon stolz das ich bis hier her gekommen bin, aber an dieser beknackten Fehlermeldung verzweifel ich so langsam .....
Für Hilfe wäre ich echt sehr dankbar !!!
Gruss , Dirk