Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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.

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

Links zu Excel-Dialogen

CommandButton InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige