Zweite geöffnete Mappe speichern
18.06.2016 18:57:31
Oisse
ich habe folgenden Code, mit dem ich eine Vorlage mit Makros öffne, dann Daten reinschreibe und dann möchte ich diese Mappe unter einem bestimmten Namen abspeichern, der sich aus den diversen Daten ergibt.
Aber das Abspeichern funktioniert nicht. Es kommt die Fehlermeldung, dass die Datei nicht mit dieser Endung abgespeichert werden kann
Kann bitte jemand helfen
Sub ExportierungZahlung_Click()
Dim Buffer As String * 100
Dim BuffLen As Long, strUserName$
Dim WBZiel As Workbook
Dim ExportDatei As Variant
Dim WBQuelle As Workbook
Dim WSZiel As Worksheet
'** Auslesen des Benuterznamens
BuffLen = 100
GetUserName Buffer, BuffLen
strUserName = Left(Buffer, BuffLen - 1)
Set WBQuelle = ThisWorkbook
'Datei
ExportDatei = "C:\Users\" & strUserName & "\Documents\Florian\Zahlungsbestätigung.xltm"
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBZiel = Workbooks.Open(ExportDatei)
'Ab hier kommen dann diverse Codes zum Einfügen, funktioniert einwandfrei
Dim WBName$
WBName = "Zahlungsbestätigung_" & wks_Art.Cells(16, 8)
ZDateiName = ThisWorkbook.Path & "\Zahlungsbestätigungen\" & WBName & ".xlsm"
With WBZiel
.SaveAs Filename:=ZDateiName
.Close
End With
Set WBZiel = Nothing
Set WBQuelle = Nothing: Set WSZiel = Nothing
End Sub