Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

speichern unter

speichern unter
14.03.2017 09:11:11
Berndt
hallo zusammen,
ich habe eine Datei, welche Makros enthält.
Zum Abschluss des Makros, möchte ich gern noch die Speichern unter Funktion einfügen (Format XLSM).
Dabei soll der Pfad der aktuell geöffneten Datei der speicherort sein.
Und der Name soll wie folgt lauten: "mbSZW" + "Name aus Tabelle1!D7" + "aktuelles Jahr"
Kann mir dabei jmd. behilflich sein?
Vielen Dank.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Frage Doppelt
14.03.2017 09:33:56
fcs
...
AW: speichern unter
14.03.2017 09:37:55
Max2
Hallo,
wann soll denn das speichern ausgeführt werden?
Vor dem schließen der Datei, nach Knopfdruck, nach was auch immer..?
Hier ein Makro dass die Datei mit gewünschten Pfad u. Namen speichert: 

Sub speichern()
Dim path As String
Dim sname As String
Dim vdate As String
vdate = Format(Date, "yyyy") '//oder (Date, "yy")
sname = "mbSZW_" & ThisWorkbook.Sheets(1).Cells(7, 4).Value & "-" & vdate
path = ActiveWorkbook.Path & "\" & sname
ThisWorkbook.SaveAs Filename:=path, FileFormat:=52
End Sub

Verdammt in den Doppelten....
14.03.2017 09:38:26
Max2

sorry
14.03.2017 10:42:14
Berndt
Sorry. Da ist wohl etwas schief gelaufen. Danke für die Hilfe
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige