Hallo an alle,

ich habe ein Problem mit einem VBA Code. Der Code kopiert einen Datenbereich aus einer extern gewählten Exceldatei und soll diese Daten dann an die Stelle einfügen, wo die zuletzt markierte Zelle im Arbeitsblatt war. Leider werden die Daten bei mir immer ab Zelle "E24" eingefügt, obwohl die zuletzt markierte Zelle z.B:: A2 war.
Ich kann mir das Problem nicht erklären. Es sollen ja immer dort die einzufügenden Daten beginnen, wo die letzte markierte Zelle war, bevor man auf Makro ausführen klickt. Der Fehler liegt vermutlich in der einen Fett geschriebenen Zeile. Die ganze Prozedur wird in einem Modul ausgeführt.

Hier der Code:
Sub Daten_Import()

Dim wbQuelle As Workbook
Dim Dateiname As Variant


'ScreenUpdating und PopUps deaktivieren
Application.ScreenUpdating = False
Application.DisplayAlerts = False

'Benutzer Datei auswählen lassen
If MsgBox("aktuelle KW ausgewählt?", Buttons:=vbYesNo) = vbNo Then Exit Sub
Dateiname = Application.GetOpenFilename(FileFilter:="Excel-Datein (*.xls*),*.xls*")

'Wurde eine Datei ausgewählt?
If Dateiname > False Then


'Arbeitsmappe öffnen
Set wbQuelle = Workbooks.Open(Filename:=Dateiname)

'Daten kopieren und einfügen
wbQuelle.Worksheets(1).Range("B1:B10000, D1:D10000").Copy
ThisWorkbook.Worksheets(1).Range(Selection.Address).PasteSpecial


'Arbeitsmappe schließen
wbQuelle.Close SaveChanges:=False

End If

'ScreenUpdating und PopUps deaktivieren
Application.ScreenUpdating = True
Application.DisplayAlerts = True


End Sub


Kann mir dabei jemand weiterhelfen?

Grüße Stefan