.csv
stefan
habe etwas gefunden was mir dazu noch fehlt ist das die daten in Tabelle 2
eingetragen werden und das das eintragen erst ab Zeile 2 beginnt das wäre super wenn mir jemnd helfen kann ich brauche eure hilfe ;)
Bitte
der Quellcode
Private Sub CommandButton1_Click()
Dim Dateiname
Dim S As String, Data As Variant
Dim Ws As Worksheet
Dateiname = Application.GetOpenFilename("Textdateien,*.csv")
If Dateiname = False Then Exit Sub
S = ReadTextFile(Dateiname)
If Len(Trim(S)) = 0 Then Exit Sub
Data = WorksheetFunction.Transpose(Split(S, vbCrLf))
With Range(Cells(1, 1), Cells(UBound(Data), 1))
.Value = Data
.TextToColumns Semicolon:=True
Worksheets("Tabelle3").Select
End With
End Sub
Private Function ReadTextFile(ByVal FName As String) As String
Dim fs As Object, F As Object
Set fs = CreateObject("Scripting.FileSystemObject")
On Error GoTo ExitPoint
Set F = fs.OpenTextFile(FName)
ReadTextFile = F.ReadAll
F.Close
ExitPoint:
End Function
Danke ;)