Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei verschieben

Datei verschieben
08.09.2003 06:31:39
junny
Hallo Leute, habs schon einige male probiert, leider keine treffenden Antworten
hab folgendes Problem:

Eine excel Mappe als Vorlage Liste.xlt (in die dann das Makro reinkommen soll) wird von verschiedenen Usern bearbeitet und mit irgendwelchen Namen (Kundennamen)als *.xls in den jeweiligen Ordner des Users abgespeichert. (das habe ich schon über ein Auto open makro gesteuert)

Irgendwann werden diese Dateien (variable Dateinamen) wieder geöffnet (aus verschiedenen Ordnern) nun soll ein Makro (bei Klick) folgendes bewegen:

Datei mit gleichem Namen an einem anderen Ort abspeichern (Copy) und gleichzeitig die selbe Datei aus dem Ursprungsordner löschen!

Da meine VBA Kenntnisse noch begrenzt sind, freue mich über Antwort,
hoffe ich hab nicht zu sehr ausgeholt
Danke gruss junny

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

Betreff
Datum
Anwender
Anzeige
AW: Datei verschieben
08.09.2003 07:18:27
Willie
Achtung erst mit Testdaten probieren!
Kill löscht die Ursprungsdatei weg ohen rückfrage!
Hoffe aber das dies die richtige Lösung für dich ist!
Sonst melde dich einfach nochmal im Forum!
Gruß Willie


Sub originalcopyundlöschen()
Dim original As String
original = ThisWorkbook.FullName
Name = ThisWorkbook.Name
targetPath = InputBox("Zielpfad", Speichern, "C:\test\" & Name) 'Hier kannst du eine Pfad voreinstellen!
ThisWorkbook.SaveAs targetPath
Kill original 'löscht ohne Rückfrage! Ist gefährlich!
End Sub

Willie Du bist der Beste
08.09.2003 07:48:31
junny
Hey Willie,
genau so wollte ich das DANKE! Super
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige