Mein Anliegen ist etwas komplizierter. Daher hoffe ich, dass Ihr mir dabei helfen könnt, dies zu lösen.
Dabei geht es darum, aus einem Ordner in denen .set Dateien sind in CSV-Sheets zu erstellen. Dies konnte ich soweit realisieren.
Option Explicit
Sub DateienAuflisten()
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder
"C:\.............Bearbeitung\Konvertierte_CSV_Datei\")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 1
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
ActiveSheet.Cells(lngZeile, 1) = objDatei.Name
lngZeile = lngZeile + 1
End If
Next objDatei
End Sub
Die verschiedenen CSV-Dateien in diesem Ordner haben zbsp.solche Bezeichnungen die in einem weiteren Sheet Spalte A1:A15 aufgelistet werden.TS06-H06-30C.csv
TS06-H06-30D.csv
TS06-H06-40A89.csv
TS06-H06-40B.csv ......usw.
Die -H06- Bezeichnung werden über Suchen/Auswählen geändert. Zbsp. so:
TS06-H01-30C.csv
TS06-H01-30D.csv
TS06-H01-40A89.csv
TS06-H01-40B.csv
TS06-H01-40C.csv
TS06-H01-40D.csv
Nun zu meinem eigentlichen Problem.
Der eigentliche Pfad der Unterdateien sollte aufgerufen und mit der Liste des aktuelle Sheets verglichen werden. Die letzten 5 Ziffern vor.csv werden miteinander verglichen. Bei einer Übereinstimmung, sollte der Dateinamen überschrieben werden.
TS06-H06-30C.csv nach TS06-H01-30C.csv
Vielen lieben Dank für weitere Ansätze, zur Lösung dieses Problems.
Grüsse aus dem Alpenraum