Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Speichern in neuen Folder - Teil2

Forumthread: Speichern in neuen Folder - Teil2

Speichern in neuen Folder - Teil2
28.10.2004 15:17:08
Lisa
Hallo,
Hab eben von Udo diesen Ansatz bekommen, um einen Folder mit dem
Tagesdatum anzulegen.
If Dir("H:\Personal\Excel_VBA\test\" & Format(Date, "YYYYMMDD"), vbDirectory) = "" Then
MkDir "H:\Personal\Excel_VBA\test\" & Format(Date, "YYYYMMDD")
End If
Schön und gut, nur steh ich mal wieder voll aufm Schlauch.
Wie um alles in der Welt bring ich in diesen Code hinein, dass
er mir die Datei gleich in diesen Folder speichert und ihn nicht
nur erstellt.
Ich hab echt alles versucht, doch leider ohne Erfolg.
Danke, dass Ihr einer blutigen Anfängerin helft.
Grüsse Lisa
Anzeige

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

Betreff
Datum
Anwender
Anzeige
datei in anderem Pfad speichern
Reinhard
Hi Lisa,
ist ja nur eine kleine Zusatzfrage, damit wärst du besser in der alten beitragsfolge geblieben und hättest rechts das äkchen bei Frage noch odden gesetzt.
Probiers mal so:

Sub lisa()
Dim Pfad As String
Pfad = "H:\Personal\Excel_VBA\test\" & Format(Date, "YYYYMMDD")
If Dir(Pfad, vbDirectory) = "" Then MkDir Pfad
ThisWorkbook.SaveAs Pfad & "\" & ThisWorkbook.Name
End Sub

Gruß
Reinhard
Anzeige
AW: datei in anderem Pfad speichern
Lisa
Hallo Reinhard
Danke für Deine Hilfe, es funktioniert
und entschuldige, dass ich einen neuen
Thread geschrieben habe, wusste das mit
dem "Häckchen" nicht - werde das nächste
mal drauf achten.
Danke nochmals und schönen Tag noch.
Gruss Lisa
;

Beliebteste Forumthreads (12 Monate)

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