Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei verschieben

Forumthread: 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
Anzeige

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

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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige