Makro speichen unter
Bach
ich habe mit meinem beschränktem Verständnis von VBA ein Makro zusammen geschustert, dass ich _
gerne noch um zwei Sachen erweitert haben möchte. Das Makro speichert ein Tabellenblatt aus _
einer Excel Datei wenn man einen Button betätigt. In der neuen Datei sollten allerdings keine _
Formeln mehr sein und der Button sollte auch weg sein, so dass nur die Tabelle mit den Werten _
zu sehen ist.
Private Sub CommandButton1_Click()
Dim wksA As Worksheet
Dim wbkNeu As Workbook
Dim vntPathAndFile As Variant
Set wksA = ActiveSheet
vntPathAndFile = Application.GetSaveAsFilename( _
InitialFileName:=wksA.Name & Format("__") & (Range("D6").Value) & Format(".") & Range("D7"). _
_
_
Value & ".xls", _
FileFilter:="Excel Files(*.xls), *.xls", _
Title:="Speichern als")
If Not vntPathAndFile = False Then
wksA.Copy
Set wbkNeu = ActiveWorkbook
wbkNeu.SaveAs vntPathAndFile
wbkNeu.Close
Else
MsgBox "Abgebrochen!"
End If
End Sub
Kann mir jemand helfen?