Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teil eines Dateinamens umbenennen

Forumthread: Teil eines Dateinamens umbenennen

Teil eines Dateinamens umbenennen
05.08.2024 18:58:28
Georg
Hallo!
Habe ca. 100 Dateien in einem Ordner die wie folgt lauten
Name-Juni-Bemerkung

Juni ist falsch und sollte Juli lauten. Gibt es eine einfache Möglichkeit alle Dateien schnell umzubenennen oder muss ich jede einzelne aufrufen.
Ich stelle mir die Funktion suchen-ersetzen - wie sie in Word vorhanden ist - vor.

Danke für die Mithilfe
Georg
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teil eines Dateinamens umbenennen
05.08.2024 19:41:45
daniel
HI
ist ja eher ne Windows-Frage, hab aber leider keine Ahnung, ob es da für solche Fälle eine Automatisierung gibt.
in Excel könnte man per VBA eine Schleife programmieren, die jeden Eintrag umbenennt. 

Sub Umbenennen()

dim Datei as string

dim pfad as string

pfad = "C:\Dein\Pfad\"

datei = Dir(Pfad & "*Juni*")

do until Datei = ""

    name pfad & datei as pfad & Replace(Datei, "Juni", "Juli")

    datei = dir()

loop

End Sub


Anzeige
AW: Teil eines Dateinamens umbenennen
05.08.2024 19:43:27
Uduuh
Hallo,
in ein Modul: 


Sub umbenennen()

  Dim strFile As String

  Dim strFull As String

  Const strPath = "c:\test\"  'anpassen

  strFile = Dir(strPath & "*juni*.xlsx", vbNormal)

  Do While strFile > ""

    strFull = strPath & strFile

    Name strFull As Replace(strFull, "Juni", "Juli")

    strFile = Dir

  Loop

End Sub

Gruß aus'm Pott
Udo
Anzeige
AW: Teil eines Dateinamens umbenennen
05.08.2024 20:28:52
Georg
das war perfekt.
Schnell und einfach.

Vielen Dank
Georg
AW: Teil eines Dateinamens umbenennen
05.08.2024 19:54:33
Georg
Danke, aber leider ich verstehe nur Bahnhof. Ich habe nur Basis-Kenntnisse.
Wo und wie trägt man so etwas ein?

Viele Grüße
Georg
Anzeige
AW: Teil eines Dateinamens umbenennen
05.08.2024 20:06:51
daniel
dann schwierig

zum reinlesen schau mal hier:

https://online-excel.de/excel/grusel_vba.php?f=6

für dich interessant: "Wie und wo fügt man ein Makro bzw. Code ein" (dort der erste Abschnitt)
und ggf "Makro einer Schaltfläche zuweisen"

zum Testen bitte immer eine Kopie des Ordners anlegen und mit dieser testen!
zum Testen bitte immer eine Kopie des Ordners anlegen und mit dieser testen!
zum Testen bitte immer eine Kopie des Ordners anlegen und mit dieser testen!
zum Testen bitte immer eine Kopie des Ordners anlegen und mit dieser testen!
zum Testen bitte immer eine Kopie des Ordners anlegen und mit dieser testen!

Gruß Daniel

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige