Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
936to940
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
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Dateiname mit Text ergänzen
27.12.2007 08:48:00
Harald
Hallo im Excelforum,
ich möchte einen Dateinamen zb bild.jpg umbenenen mit dem Text aus einer Textbox und denn Text vor den Punkt einfügen
vba Lösung
vorherr: "bild.jpg"
Text aus Textbox " Grillen"
nachher : "bild Grillen.jpg"
mfg
Harald K

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiname mit Text ergänzen
27.12.2007 09:06:00
Josef
Hallo Harald,
als Ansatz.
Sub umbenennen()
Dim strFile As String, strNew As String, strBase As String, strExt As String

strFile = "F:\Temp\bild.jpg"
strNew = "Grillen" ' oder = TextBox1.Text

strExt = Mid(strFile, InStrRev(strFile, "."))
strBase = Left(strFile, Len(strFile) - Len(strExt))

Name strFile As strBase & " " & strNew & strExt

End Sub

Gruß Sepp

Anzeige
AW: Dateiname mit Text ergänzen
27.12.2007 09:25:00
Harald
Hallo Sepp,
Vielen Dank für die schnelle Lösung Super Lösung.
mfg
Harald K

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige