Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Dateien umbenennen per VBA "_" ersetzen
14.04.2021 16:38:48
Max
Hallo zusammen,
ziel meines Makro soll sein, die ersten 15 Zeichen eines Dateinamen stehen zu lassen und den Rest zu löschen,
dass funktioniert auch...
jetzt würde ich noch gerne falls vorhanden unterstriche ("_") durch Leerzeichen (" ") ersetzen
Vielen Danke schonmal für eure Hilfe.
es geht um folgendes Makro:
Sub Dateien_Umbenennen()
Dim sFile As String
Dim sPfad As String
sPfad = InputBox("pfad einfügen", "Pfad", "\")
sFile = Dir(sPfad & "*.pdf")
Do While sFile  ""
On Error GoTo loeschen
Name sPfad & sFile As sPfad & Left(sFile, 15) & ".pdf"
sFile = Dir
Loop
Exit Sub
loeschen:
Kill sPfad & Left(sFile, 15) & ".pdf"
Resume
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien umbenennen per VBA "_" ersetzen
14.04.2021 16:51:47
UweD
Hallo
so?
    Name sPfad & sFile As sPfad & Left(Replace(sFile, "_", " "), 15) & ".pdf"

LG UweD
AW: Dateien umbenennen per VBA "_" ersetzen
16.04.2021 06:18:21
Max
Vielen Dank, hat funktioniert!
Danke für die Rückmeldung (owT)
16.04.2021 11:27:02
UweD
Anzeige

7 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige