Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

dokument umbenennen

Forumthread: dokument umbenennen

dokument umbenennen
05.02.2008 21:33:07
Karl
Hallo zusammen.
Ich würde gerne mit einer InputBox ein Word dokument umbenenn. Das Dokument liegt in C:/Daten
und Heisst Dokument1.
Danke an alle

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: dokument umbenennen
05.02.2008 22:12:00
Ramses
Hallo
Probier mal

Sub RenameDoc()
Dim tarPfad as string
Dim newName as String
tarPfad = "C:\Daten\"
newName = Inputbox("Neuer Name mit Endung","Umbenennen")
If strPtr(newName) = 0 then exit Sub
Name tarpfad & "Dokument1.doc" AS tarpfad & newName
End Sub


Gruss Rainer

Anzeige
AW: dokument umbenennen
05.02.2008 22:14:00
Josef
Hallo Karl,
Sub Umbenennen()
Dim strFile As String, strPath As String, strExt As String
Dim newName As String, strNew As String

strFile = "C:\Daten\dokument1.doc"

If Dir(strFile) = "" Then Exit Sub

newName = InputBox("Neuer Name:", "Umbenennen", "neu")

If newName <> "" Then
    strPath = Left(strFile, InStrRev(strFile, "\"))
    strExt = Mid(strFile, InStrRev(strFile, "."))
    strNew = Left(newName, InStrRev(newName, ".") - 1)
    Name strFile As strPath & strNew & strExt
End If

End Sub


Gruß Sepp



Anzeige
;

Beliebteste Forumthreads (12 Monate)

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