Speichern ohne Dateiendung. Warum nur?
chandler
nach langer Recherche habe ich mich entschlossen doch zu fragen.
Möchte gerne einzelne Tabelle/n speichern als Tabellenname mit aktuellem Datum.
Habe leider zwei Fragen:
1. Warum wird die Filename extension XLS respektive XLSM (Excel 2010) nicht angehängt?
2. Unter Excel 2010 bekomme ich zusätzlich folgende Meldeng:
" Die folgenden Features können in Arbeitsmappen ohne Makros nicht gespeichert werden
.VB Projekt
. Wählen Sie dann einen Datentyp mit aktivierten Makros in der Liste 'Dateityp' aus "
Hat das war damit zu tun, dass die Tabellen ein Makro als
Private Sub Worksheet_Activate() hat?
Sub Save_n() 'einzelne Tabellen speichern
Dim Tabelle
If MsgBox(prompt:="Möchten Sie die Tabelle speichern?", Buttons:=vbYesNo + vbQuestion) _
= vbNo Then Exit Sub
ActiveSheet.Copy
Tabelle = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Name & Format(Now, _
" DD.MM.YYYY"), "Microsoft Excel (*.XLS),*.XLS")
'Excel 2010
'Tabelle = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Name & Format( _
Now, " DD.MM.YYYY"), "Microsoft Excel (*.XLSM),*.XLSM")
If Tabelle False Then
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=Tabelle
If Err.Number > 0 Then MsgBox "Tabelle wurde nicht gespeichert!"
On Error GoTo 0
End If
ERRHANDLER:
ActiveWorkbook.Close SaveChanges:=False
If Err.Number > 0 Then MsgBox Err.Description, , "Fehler Nr. " & Err.Number
End Sub
Hat jemand eine Idee warum die Dateinamenserweiterung nicht angehängt wird?
Was sind das für Features die ohne Makros nicht gespeichert werden können?
Vorab vielen Dank. Grüße chandler
Anzeige