Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Dateispeicherung mit Übernahme von Variablen

Betrifft: Dateispeicherung mit Übernahme von Variablen von: Langmantl
Geschrieben am: 05.11.2014 09:28:06

Ich habe folgende Excelvorlage erstellt. ich möchte, dass bei Klick auf einen Commandbutton, dies als Datei unter dem Dateinamen"Wochenplan_KALENDERWOCHE(A5;1)" gespeichert wird, wobei KALENDERWOCHE(A5;1)jeweils aus der Vorlage aus Zelle A5 übernommen werden soll.
Wie lautet der Code,

  

Betrifft: =Wenn Anrede und Gruß, dann... Code...owT von: robert
Geschrieben am: 05.11.2014 09:37:27




  

Betrifft: AW: Dateispeicherung mit Übernahme von Variablen von: Hajo_Zi
Geschrieben am: 05.11.2014 09:42:55

Option Explicit

Private Sub CommandButton1_Click()
    ActiveWorkbook.SaveAs Filename:="F:\Wochenplan_" & WorksheetFunction.WeekNum(Range("A5"),  _
21) & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
GrußformelHomepage


  

Betrifft: AW: Dateispeicherung mit Übernahme von Variablen von: Langmantl
Geschrieben am: 05.11.2014 10:32:54

Danke Hajo,
habe ich entsprechend verändert und eingebaut, bei der Ausführung im Entwicklertool kommt aber Fehlermeldung

Private Sub CommandButton4_Click()
    ActiveWorkbook.SaveAs Filename:="H:\User\Langmantl\Privat\aktuelleWochenpläne\Wochenplan_" & _
 WorksheetFunction.WeekNum(Range("A5"), _
21) & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
muss auch daraufhinweisen, dass dies ein Netzlaufwerk ist


  

Betrifft: AW: Dateispeicherung mit Übernahme von Variablen von: Hajo_Zi
Geschrieben am: 05.11.2014 10:35:47

Nein.
steht in A5 Text?
Mir steht es nicht zu Deinen Code mit meinem zu vergleiche.
Bei mir geht es. Deine Dateien sehe ich nicht.

Gruß Hajo


  

Betrifft: AW: Dateispeicherung mit Übernahme von Variablen von: Langmantl
Geschrieben am: 05.11.2014 10:39:30

Danke Hajo,
habe ich entsprechend verändert und eingebaut, bei der Ausführung im Entwicklertool kommt aber Fehlermeldung

Private Sub CommandButton4_Click()
    ActiveWorkbook.SaveAs Filename:="H:\User\Langmantl\Privat\aktuelleWochenpläne\Wochenplan_" & _
 WorksheetFunction.WeekNum(Range("A5"), _
21) & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
muss auch daraufhinweisen, dass dies ein Netzlaufwerk ist


  

Betrifft: AW: Dateispeicherung mit Übernahme von Variablen von: Langmantl
Geschrieben am: 05.11.2014 10:49:32

Ist wohl besser, ich schicke dir die Datei
https://www.herber.de/bbs/user/93558.xlsm


  

Betrifft: AW: Dateispeicherung mit Übernahme von Variablen von: Langmantl
Geschrieben am: 05.11.2014 10:54:50

Entschuldige, war die falsche Datei, hier die aktuelle
https://www.herber.de/bbs/user/93560.xlsm


  

Betrifft: AW: Dateispeicherung mit Übernahme von Variablen von: Langmantl
Geschrieben am: 05.11.2014 12:54:00

ok, War mein Fehler, habe den Netzwerkpfad falsch gesetzt


  

Betrifft: AW: Dateispeicherung mit Übernahme von Variablen von: Hajo_Zi
Geschrieben am: 05.11.2014 11:08:38

ich kann es nicht testen da Objektbiblio ungültig.

Gruß Hajo


 

Beiträge aus den Excel-Beispielen zum Thema "Dateispeicherung mit Übernahme von Variablen"