Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro autom. umschreiben

Forumthread: Makro autom. umschreiben

Makro autom. umschreiben
16.05.2007 15:21:00
volker
Hallo Leute,
ich hab in sehr vielen Listen folgendes makro, hier steht unter anderem
SpeichernUnter()
Speicher = InputBox("Speicher Name : ")
Pfad = "C:\v71\LISTEN"
DName = Speicher
Dateiname = Pfad & "\" & DName & ".csv"
' ThisWorkbook.SaveAs Filename:=Dateiname, FileFormat:= xlCSV
so jetzt möchte ich automatisch den Pfad ändern wie mach ich das?
Danke
Grüsse und schönen Vadderdag
volker

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro autom. umschreiben
16.05.2007 15:40:00
Oberschlumpf
Hi Volker
Hier auf die Schnelle - also ungetestet:

Sub SpeichernUnter()
Speicher = Application.GetSaveAsFilename
if speicher = false then exit sub
End Sub


Wichtig ist, dass du den Dateinamen PLUS Erweiterung angibst.
Gibst du nur "Mappe1" als Dateiname an, wird die Datei unter "Mappe1" gespeichert
Gibst du "Mappe1.csv" als Dateiname an, wird die Datei unter "Mappe1.csv" gespeichert
Konnte ich helfen?
Ciao
Thorsten

Anzeige
AW: Makro autom. umschreiben
21.05.2007 06:41:14
volker
Hai Thorsten,
vielleicht hab ich mich etwas missverständlich ausgedrückt.
Ich habe Vorlagen die ich umschreiben will (*.xlt) in denen steht der Pfad
Pfad = "C:\v71\LISTEN"
den möchte ich auf
Pfad = "C:\v80\LISTEN"
ändern und die Vorlagen wieder abspeichern.
Danke Gruss volker

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige