ich importiere mit mit folgendem Skript einige *.csv Dateien.
Sub TextSerienImport()
Dim wkb As Workbook
Dim iCounter As Integer
Dim sPath As String, sPattern As String
Application.ScreenUpdating = False
sPath = Range("B1").Value
sPattern = Range("B2").Value
Set wkb = ThisWorkbook
With Application.FileSearch
.NewSearch
.LookIn = sPath
.Filename = sPattern
.Execute msoSortByFileName
For iCounter = 1 To .FoundFiles.Count
Workbooks.OpenText .FoundFiles(iCounter)
ActiveSheet.Move after:=wkb.Worksheets(wkb.Worksheets.Count)
Next iCounter
End With
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub
ohne änderung von https://www.herber.de/mailing/230804h.htm
übernommen ;)
problem ist das in meinen Daten das Datum in Format JJ/MM/TT ist. Also 07/06/21 für den 21.06.2007.
Jedoch macht mir Excel da den 06.07.2021 draus
Hoffe Ihr könnt mir da Weiterhelfen :)
Gruß, Patrick