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
|