Hallo, Vielen Dank aber das habe ich ja bereits gelöst, hatte ich ja angefügt oben.
Das aktuelle Problem wurde ja oben beschrieben mit den Anführungszeichen " ", das mit dem Tab ging mit -> vbTab zu lösen

Das ist mein aktueller Code, den habe ich aus einem Forumsbeitrag von vor 10 Jahren kopiert, hat allerdings funktioniert. 
Das einzige was ich nicht verstehe ist: Ich habe als Delimiter bei der Splitfunktion >vbTab< ausgewählt und das funktioniert auch, ABER wenn irgendwo im Text ein normales Komma > , < vorkommt wird dieses auch als Delimiter gewertet. Und komischerweise ein Semikolon > ; <aber nicht. Kann mir das irgendwer erklären, bzw. sagen wie ich das Komma als Trennzeichen ausstelle?

Dim strTextArray() As String

Public Sub importCSV()
    Dim intFileNumber As Integer
    Dim lngRows As Long, lngColumns As Long
    Dim strText As String
    Dim vntTempArray As Variant
    Reset
    intFileNumber = FreeFile
    Open "C:\Users\Andi\Desktop\Neuer Ordner\Namen2.txt" For Input As #intFileNumber
    Do Until EOF(intFileNumber)
        Input #intFileNumber, strText
        lngRows = lngRows + 1
        vntTempArray = Split(strText, vbTab)
        If UBound(vntTempArray) > lngColumns Then lngColumns = UBound(vntTempArray)
    Loop
    Close intFileNumber
    ReDim strTextArray(lngRows - 1, lngColumns)
    lngRows = 0
    Open "C:\Users\Andi\Desktop\Neuer Ordner\Namen2.txt" For Input As #intFileNumber
    Do Until EOF(intFileNumber)
        Input #intFileNumber, strText
        lngRows = lngRows + 1
        vntTempArray = Split(strText, vbTab)
        For lngColumns = LBound(vntTempArray) To UBound(vntTempArray)
            strTextArray(lngRows - 1, lngColumns) = vntTempArray(lngColumns)
        Next
    Loop
    Close intFileNumber
    
    For x = 0 To UBound(strTextArray, 2)
             Call insertValues(strTextArray(0, x), (x))
    Next
    
End Sub

Function insertValues(name As Variant, x As Integer)

        Dim f As Integer
        Dim g As Integer
        Dim find As Range
        Set find = Rows(6).find(what:=name, MatchCase:=True)
        
        'Error handling
        On Error GoTo Err_NotFound
        
        'Spalten nacheinander befüllen
        For f = 1 To UBound(strTextArray)
        Cells(find.Row + f, find.Column).Value = strTextArray(f, x)
        Next
    
    Exit Function
Err_NotFound:
        MsgBox "Field was not found: " & name

End Function