Excel Datei umbenennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub umbenennen() Dim Pfad As String Dim DateiAlt As String Dim DateiNeu As String Dim Pos As Long Pfad = "c:/Benutzer/Pittb/Downloads/" DateiAlt = Dir(Pfad & "*_*_*.xls") Do Until DateiAlt = "" Pos = InStr(DateiAlt, "_") Pos = InStr(Pos, DateiAlt, "_") DateiNeu = Left(DateiAlt, Pos - 1) Name Pfad & DateiAlt As Pfad & DateiNeu & ".xls" DateiAlt = Dir() Loop End Sub

Moin,

habe nun ein Code zusammen bekommen, der schon gut klappt.

Was fehlt sind hinten die Ziffern, die müssten auch noch weg.
Wie bekomme ich das hin?

Motor_8007574570_Wahlen_Tragen_20230906.XLS





Sub Ordner_auslesen()



Dim fso As New FileSystemObject

Dim Pfad As String

Dim Ordner As Files

Dim Datei As File



'Pfad auslesen

Pfad = "C:\Users\pittb\Downloads"





'Existiert der Ordner???

If fso.FolderExists(Pfad) Then



'Alle Dateien des Ordners einlesen

Set Ordner = fso.GetFolder(Pfad).Files



'Schleife über die Dateien desOrdners

For Each Datei In Ordner



'Datei ausgeben

'Debug.Print Datei.Name



'Datei umbenennen

'schauen ob das in der Datei vorkommt



If InStr(Datei.Name, "_Wahlen_Tragen_") > 0 Then



Datei.Name = Replace(Datei.Name, "_Wahlen_Tragen_", "")

End If







Next Datei









Else



MsgBox "Diesen Ordner gibt es nicht."

End If





End Sub

Option Explicit

Danke

Gruß Pitt

naja wenn du keine Fehlermeldung hast, dann läuft der Code doch oder?
ich kann da jetzt nicht viel zu sagen, ich kenne weder deine Dateien noch deinen Code, den du verwendest.

aber du hast doch Code, der funktioniert.
den kannst du doch entsprechend abändern.
aus meinem Code kannst du ablesen, wie du als neuen Dateinamen nur den Text bis zum zweiten Unterstrich verwendest, und das baust du in deinen anderen Code ein.
Wobei ich sehe gerade, das da noch ein Fehler drin ist, um den zweiten unterstrich zu finden, musst du noch was ergänzen.

aus
Pos = InStr(DateiAlt, "_")
Pos = InStr(Pos, DateiAlt, "_")
DateiNeu = Left(DateiAlt, Pos - 1)

wird

Pos = InStr(DateiAlt, "_")
Pos = InStr(Pos + 1, DateiAlt, "_")
DateiNeu = Left(DateiAlt, Pos - 1)

Gruß Daniel

Option Explicit Dim strPfad As String Dim colDateien As New Collection Dim strGefunden As String Dim strSuchmaske As String Dim varDatei As Variant Dim lngPosAb As Long Sub Umbenennen() strPfad = "C:\Users\pittb\Downloads" & "\" strSuchmaske = "*_*_*.xls" strGefunden = Dir(strPfad & strSuchmaske) 'Suchen While strGefunden > "" colDateien.Add strGefunden strGefunden = Dir() Wend 'Umbenennen For Each varDatei In colDateien 'Motor_=>abPos 7 lngPosAb = InStr(7, varDatei, "_") strGefunden = Left(varDatei, lngPosAb - 1) & ".xls" Name strPfad & varDatei As strPfad & strGefunden Next End Sub

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Datei umbenennen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread