Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien umbennen nach Vorgabe

Forumthread: Dateien umbennen nach Vorgabe

Dateien umbennen nach Vorgabe
25.06.2007 11:14:00
devil77
Hallo,
habe in meiner Excel-Tabelle 2 Spalten. In der ersten wird aus einem Verzeichnis die Dateinamen eingelesen und in der 2 wird dieser etwas abgeändert. Nun möchte ich die Dateien nach dem neuen Namen umbennen, weiß aber nicht so richtig wie ich das anfange. Wäre für einen kleinen Tip dankbar.

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Dateien umbennen nach Vorgabe
25.06.2007 11:33:00
Rudi
Hallo,
die Name-Anweisung hilft dir weiter.
Name alterName As NeuerName
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Dateien umbennen nach Vorgabe
25.06.2007 11:53:00
devil77
Hallo, die Funktion hatte ich schon gefunden, kommen aber nicht so recht mit den Verweisen hin. Alter Name liegt auf Tabellenblatt 1 und neuer Name auf Tabellenblatt 2 und wie ich das ganze in eine Schleife packe damit alle aufgelisteten Dateien umbenannt werden.

Anzeige
AW: Dateien umbennen nach Vorgabe
26.06.2007 18:55:22
devil77
HAllo,
mittlerweile sieht das ganze so aus und funktioniert aber immer noch nicht.

Private Sub CommandButton1_Click()
Dim Alt As String
Dim Neu As String
Dim Pfad As String
Pfad = InputBox( _
prompt:="Pfad:", Default:="c:\Zwischenablage_ConetiX")
Alt = Pfad & ActiveWorkbook.Sheets("Projectline").Range("A11").Value
Neu = Pfad & ActiveWorkbook.Sheets("Conetixc").Range("A11").Value
Name Alt As Neu
End Sub


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