Import csv Datei

Sub ImportiereCSVDateien()
Const CSVPFAD = "G:\TD\Elektro\Messwerte Energiemessgeräte\HV 10"
Dim wbTarget As Workbook, wbSource As Workbook, ws As Worksheet
Set fso = CreateObject("Scripting.Filesystemobject")
Set wbTarget = ActiveWorkbook
Application.DisplayAlerts = False
'Lösche alle Worksheets bevor wir alle neu anlegen
If wbTarget.Worksheets.Count > 1 Then
For i = 50 To wbTarget.Worksheets.Count - 1
wbTarget.Worksheets(i).Delete
Next
End If
For Each f In fso.GetFolder(CSVPFAD).Files
If LCase(Right(f.Name, 3)) = "csv" Then
Workbooks.OpenText Filename:=f.Path
Set wbSource = ActiveWorkbook
On Error Resume Next
Set ws = wbTarget.Worksheets(f.Name)
If Err  0 Then
Set ws = wbTarget.Worksheets.Add
ws.Name = f.Name
ws.Range("A:ZZ").Clear
End If
'Datumformat Zelle C
' Umstellen auf Standardformatierung
Range("A2:A" & intCounter).NumberFormat = "General"
For Each rngzelle In Range("C8:C700" & intCounter)
With rngzelle
.Value = CDate(Left(.text, 10)) + CDate(Right(.text, 8))
'    .NumberFormat = "dd/mm/yyyy hh:mm:ss"
End With
Next rngzelle
Application.ScreenUpdating = True
For Each rngzelle In Range("C1:I700").EntireColumn.AutoFit
Next rngzelle
wbSource.Worksheets(1).Range("A:A").TextToColumns Destination:=Range("A1"),  _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Semicolon:= _
True, TrailingMinusNumbers:=False
wbSource.Worksheets(1).Range("A:ZZ").Copy Destination:=ws.Range("A1")
wbSource.Close False
End If
Next
Application.DisplayAlerts = True
Set fso = Nothing
End Sub