Hallo Zusammen,
ich ermittle aus einem kompletten Pfad den Pfad und den Dateinamen.
Diese sind auch jeweils klein geschrieben.
Anschliessend öffne und speichere ich die Datei unter einem anderen Namen:
'Datei öffnen und prüfen
If IstMappeOffen(afile) = False Then Workbooks.Open sFilepath, ReadOnly:=True
'Mappe setzen
Dim WBI As Workbook, WSI As Worksheet
Set WBI = Workbooks(afile)
Dim axt AS STring
atxt = Left(afile, Len(afile) - Len(zend)) & "_CONV" & "_" & Format(Date, "yyyy_mm-dd")
Leider wird dabei der Dateiname komplett in Großschreibung geändert. Was kann ich tun damit die ursprüngliche Schreibweise erhalten bleibt?
Option Compare Text am Anfang des Moduls hat leider nichts gebracht
Vielen Dank schon mal.
Steffen Schmerler