Option Explicit
Public anzahl_pkt As Long
Public Sub import_messwerte()
Application.ScreenUpdating = False
Dim Arr
Dim Datei
Dim FSO
Dim l As Long
Dim Tmp As Variant
Dim vnt_Ausgabe As Variant
Dim i As Integer
Dim Str_String As String
Dim Dateipfad As String
Anzahl_Punkte.Show
Dateipfad = Application.GetOpenFilename
Set FSO = CreateObject("Scripting.FilesystemObject")
Set Datei = FSO.OpentextFile(Dateipfad)
Str_String = Datei.readall
Datei.Close
Arr = Split(Str_String, vbCrLf)
ReDim vnt_Ausgabe(UBound(Arr), anzahl_pkt)
For l = 0 To UBound(Arr)
Tmp = Split(Arr(l), ",")
For i = 0 To UBound(Tmp)
vnt_Ausgabe(l, i) = Tmp(i)
Next
Next
Sheets("Import").Range(Cells(1, 1), Cells(1, 4)).Resize(UBound(vnt_Ausgabe) + 1, UBound(vnt_Ausgabe, 2)) = vnt_Ausgabe