Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
948to952
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige