Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

beim verschieben umbenennen

beim verschieben umbenennen
11.05.2005 09:13:19
roland_k
hoi zusammen..mal wieder muehsam hier ..)))
mit folgendem code verschiebe ich ne textdatei in einen ordner
Name strDatei As "C:\Archiv\" & Right(strDatei, Len(strDatei) - InStrRev(strDatei, "\"))
in strDatei steht der bisherige dateiname.
ich will nun aber diesen namen erweitern mit dem inhalt einer zelle in nem tabellenblatt.
z. b. der bisherige dateiname heisst halloichbintoll34.55.6.800.txt
nun soll der name in zelle B2 (heinrich) davorgeschrieben werden.
dass dann der dateiname so heisst:
heinrich_halloichbintoll34.55.6.800.txt
muss ich einfach range("B2") vor das & eingeben ?
irgendwie komme da nicht ganz draus ..bin noch am probieren
danke euch fuer hinweis wie ich das machen muss
gruss roland_k

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: beim verschieben umbenennen
11.05.2005 09:32:42
Speedy
Hallo,
wenn du so deinen Namen festlegst ist das doch ganz gut.
Dann schreibst bloß noch folgendes rein:
Name strDatei As "C:\Archiv\" & Worksheets("Mein Arbeitsblatt").Range("B2").Value & "_" & Right(strDatei, Len(strDatei) - InStrRev(strDatei, "\"))
So sollte es doch funktionieren. Natürlich musst "Mein Arbeitsblatt" noch durch dein Tabellenblatt ersetzen
Gruss Speedy
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige