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