brauche ein Makro bei dem sich das Fenster wie beim Speichern unter öffnet jedoch nur mit dem Pfad C:\ und der Dateiname soll die Bezeichnung aus der Tabelle13 / Zelle CA13 sein.
Wahrscheinlich voll easy aber ich kriegs nicht hin.
Danke
Sub Speichern_unter()
sFile = Application.GetSaveAsFilename _
(fileFilter:="Microsoft Office Excel-Arbeitsmappe (*.xls), *.xls")
If sFile False Then
MsgBox sFile
End If
End Sub
Gruß Manfred
Rückmeldung wäre nett!
Sub Speichern_unter()
Dim sfile As Integer
sfile = Application.GetSaveAsFilename _
(Sheets("Tabelle13").Range("CA13"), "Microsoft Office Excel-Arbeitsmappe (*.xls), *.xls")
If sfile False Then
MsgBox sfile
End If
End Sub
Sub Speichern_unter()
Dim sfile As Integer
Dim Mappe As Workbook
fileSaveName = Application.GetSaveAsFilename(Sheets("Output").Range("B2"), _
fileFilter:="Excel-Arbeitsmappe (*.xls), *.xls")
If sfile False Then
MsgBox sfile
End If
'auch mit nachstehender Code-Ergänzung wird nicht gespeichert.
'Mappe.Close savechanges:=True
End Sub
File: https://www.herber.de/bbs/user/50563.xls
Danke,
Bernd