Office: Datenimport mit Punkt Komma Problem und Bezugsverlust

Hallo liebe Excelgemeinschaft,

ich habe hier eine Exceldatei mit einem Datenimportmakro. Es funktioniert bis auf zwei Probleme alles sehr gut:

1. Die importierten Daten überschreiben nicht den zugewiesenen Bereich sondern werden in neue Spalten geschrieben, so das der Bezug auf Formeln nicht mehr stimmt


2. Die Importdaten (liegen in der Datei Daten vor) besitzen als Dezimaltrennzeichen einen Punkt und werden im deutschem Excel als falscher Wert angezeigt


Ich habe meine Problemdatei hier mitsamt der Datendatei hochgeladen.

Falls einer eine Idee hat dieses Problem an dem ich jetzt schon lange sitzt zu knacken bin ich echt erleichtert

Danke.
Stu

 

Code

Hier der Code den ich bis jetzt habe:


Option Explicit

Sub Datenimport()
Dim Importdatei$, Verzeichnis$, aktiver_Blattname As String
Application.ScreenUpdating = False
aktiver_Blattname = ActiveSheet.Name
Sheets("Tabelle2").Activate
Verzeichnis = "d:\"
On Error Resume Next
ChDir Verzeichnis
Importdatei = Application.GetOpenFilename("Klimadaten (*.*), *.*")
Application.ScreenUpdating = False
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Importdatei, _
Destination:=Range("A1"))
.TextFileTabDelimiter = True

.Refresh BackgroundQuery:=False
End With
Columns("H:N").Select
Selection.Cut
Columns("a:g").Select
Selection.Paste
Columns("H:N").Select


Selection.Delete Shift:=xlToLeft
Sheets(aktiver_Blattname).Activate


End Sub