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

Speicher mit Pfad

Forumthread: Speicher mit Pfad

Speicher mit Pfad
28.07.2006 17:25:49
Thorsten
Hallo an alle Helfer,
letztens habe ich dieses Markro bekommen, das funktioniert soweit auch gut.
Könnte man dies doch noch ein wenig ändern ?
1.)ich möchte den Pfad bestimmen wo es gespeichter wird und weis nicht wie
2.)Es soll nur die Sichttabelle gespeichert werden und nicht die ganze Mappe, wenn möglich, sollten die Button auch nicht mit Kopiert werden ?
Kann man dies so ändern ? Wenn ja, könntet Ihr mir helfen !
Option Explicit

Sub Sicherung()
Dim strFileName As String
strFileName = "Plan" & DINWeek(Now) & "_" & Year(Now) & ".xls"
ThisWorkbook.SaveCopyAs Filename:=strFileName
End Sub


Function DINWeek(dat As Date) As Integer
Dim dbl As Double
dbl = DateSerial(Year(dat + (8 - Weekday(dat)) Mod 7 - 3), 1, 1)
DINWeek = (dat - dbl - 3 + (Weekday(dbl) + 1) Mod 7) \ 7 + 1
End Function

Währe echt Super
Gruß Torte
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speicher mit Pfad
28.07.2006 17:48:47
IngGi
Hallo Thorsten,
so wird das aktive Blatt in eine neue, leere Datei kopiert, die Buttons werden gelöscht, die neue Datei wird unter dem ermittelten Dateinamen gespeichert und geschlossen.

Sub Sicherung()
Dim strFileName As String
Dim sh As Shape
ActiveSheet.Copy
For Each sh In ActiveSheet.Shapes
sh.Delete
Next 'sh
strFileName = "Plan" & DINWeek(Now) & "_" & Year(Now) & ".xls"
ActiveWorkbook.Close SaveChanges:=True, Filename:=strFileName
End Sub
Die Funktion DINWeek muss natürlich nicht geändert werden.
Gruß Ingolf
Anzeige
AW: Speicher mit Pfad
28.07.2006 18:25:38
Thorsten
Hallo Inglof,
danke für deine schnelle Antwort :-))
Wie kann ich aber den Pfad bestimmen wo es gespeicht werden soll ?
Gruß Torte
AW: Speicher mit Pfad
28.07.2006 18:29:57
Matthias
Hallo Thorsten,
Wie kann ich aber den Pfad bestimmen wo es gespeicht werden soll ?
indem du diese Zeile noch anpasst:

strFileName = "Plan" & DINWeek(Now) & "_" & Year(Now) & ".xls"
'Ändern in:
strFileName = "C:\Pfad\zur\Datei\Plan" & DINWeek(Now) & "_" & Year(Now) & ".xls"

Gruß Matthias
Anzeige
AW: Speicher mit Dank
28.07.2006 19:11:31
Thorsten
Ach ist das doch nur so einfach !!!!:-))
Ich Danke euch beiden für die Hilfe
AW: Speicher mit Pfad
28.07.2006 19:27:32
Thorsten
Jetzt Speichert es nicht sondern öffnet eine Mappe und die muß erst gespeichert werden.
Ich wollte da aber so: D:\Test\Test\Plan30_2006.xls ohne das sie geöffnet ist, sondern nur so abspeichern. Plan30_2006 baut sich so auf Dateiname/KW/Jahr
Währe nett wenn Ihr nochmal helfen könntet.
Gruß Torte
Anzeige
Danke habs gefunden :-)) o.T.
28.07.2006 19:31:24
Thorsten
:-))
;

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