Daten einlesen mit VBA und Beispieldateien

Sub daten_importieren()
Dim Importdaten(1 To 10000, 1 To 256) As Variant
Dim iWs, i, j, k, TP_zaehler, Zeile, gefunden, datei_ok, Position, anzahl, Spaltenzuordnung(256) _
_
_
Dim Beschreibung(1 To 10000) As String
Dim Spaltenname(256) As Variant
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Spaltenname(1) = ThisWorkbook.Worksheets("Import").Range("B2")
Spaltenname(2) = ThisWorkbook.Worksheets("Import").Range("C2")
Spaltenname(3) = ThisWorkbook.Worksheets("Import").Range("D2")
MsgBox "Bitte zu importierende Datei auswählen!"
Application.Dialogs(xlDialogOpen).Show
If ActiveWorkbook.Name = ThisWorkbook.Name Then
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Exit Sub
End If
datei_ok = 0
iWs = ActiveWorkbook.Worksheets.Count
For i = 1 To iWs
If ActiveWorkbook.Worksheets(i).Name = "NEU" Then
datei_ok = 1
End If
Next i
If datei_ok = 0 Then
MsgBox "Die ausgewählte Datei enthält kein Sheet mit dem Namen ""NEU""! Der Import wurde  _
abgebrochen."
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Exit Sub
End If
For k = 1 To 256
gefunden = 0
For i = 1 To 256
If ActiveWorkbook.Sheets("NEU").Cells(1, i) = Spaltenname(k) Then
Spaltenzuordnung(k) = i
gefunden = 1
End If
Next i
If gefunden = 0 Then
Spaltenzuordnung(k) = 256
Else
gefunden = 0
End If
Next k
For j = 1 To 10000
For k = 1 To 256
Importdaten(j, k) = ActiveWorkbook.Sheets("NEU").Cells(j, Spaltenzuordnung(k)). _
Value
Next k
Next j
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
'Unprotect_all
Sheets("Import").Select
Sheets("Import").Range("B5:IV30000").ClearContents
For j = 2 To 10000
For k = 1 To 3
If Left(Importdaten(j, k), 1) = "=" Then
Importdaten(j, k) = "'" & Importdaten(j, k)
End If
Sheets("Import").Cells(j, k) = Importdaten(j, k)
Next k
Next j
'Protect_all
Sheets("Import").Select
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "Neue Daten importiert!"
End Sub

Datei mit VBA: