Office: Tabelle in neuer Datei als xlsm speichern und Name einfügen

manega · 25. Januar 2017

Hallo Leute,

ich brauche schon wieder mal eure Hilfe. Es gibt ja bereits viele Beiträge zu diesem Thema, trotzdem habe ich nicht wirklich etwas passendes gefunden.

Ich möchte per Makro ein einzelnes Tabellenblatt in eine neue Datei kopieren. Das Makro wird per Button aus der zu kopierenden Tabelle gestartet.
Eigentlich kein Problem, aber in dieser Tabelle befindet sich ein Change Ereignis. Da mault Excel das erste Mal herum. Ich könnte auch damit leben, wenn die Tabelle vorher in eine "Hilfstabelle" kopiert werden würde und von dort in die neue Datei. Aber vielleicht geht es auch ohne diesen Umweg!
In der neuen Datei soll dann die Tabelle nach dem Inhalt von A1 umbenannt werden. Dabei soll der Name auf die ersten 31 Zeichen gekürzt werden. Dafür habe ich bereits einen funktionierenden Code hier aus dem Forum erhalten, der vielleicht integriert werden könnte:
Code:

Sub Namen_überprüfen()

Dim blnFalsch As Boolean
Dim strTabelle As String
Dim arrFalsch()
Dim bytFalsch As Byte
Dim wksTab As Worksheet
arrFalsch = Array("*", "[", "]", "/", "", "?", ":")
strTabelle = Worksheets("Details").Range("A1")
If strTabelle = "" Then
MsgBox "Leider wurde kein Blattname eingetragen!"
blnFalsch = True
Else
' Zeichen nicht mehr als 31
If Len(strTabelle) > 31 Then strTabelle = Left(strTabelle, 31)
For Each wksTab In Sheets
If wksTab.Name = strTabelle Then
blnFalsch = True
Exit For
End If
Next wksTab
If blnFalsch Then
MsgBox "Tabellenname ist bereits vergeben!"
Else
' unerlaubte Zeichen prüfen
For bytFalsch = 0 To UBound(arrFalsch)
If InStr(strTabelle, arrFalsch(bytFalsch)) > 0 Then
MsgBox "Tabellenname in Zelle A1 enthält unerlaubte Zeichen!"
blnFalsch = True
Exit For
End If
Next bytFalsch
End If
End If
' all Bedingungen für Name erfüllt
If blnFalsch = False Then
ActiveSheet.Name = strTabelle
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anschließend soll die Datei ebenfalls unter dem in A1 stehenden Namen gespeichert werden. Der Speicherort soll jedoch abgefragt werden, in dem sich das "speichern unter" Fenster öffnet.
Mein größtes Problem besteht jedoch im Datei Format. Warum auch immer, wenn ich Codes genommen habe, die die Datei als xls speichern wollte, kamen immer Fehlermeldungen bezüglich von Makros, obwohl in der neuen Datei eigentlich keine sein dürften! Also bräuchte ich irgendetwas, wo das Format xlsm bereits voreingestellt ist.
Letztlich soll der Nutzer der Datei nur noch den Speicherort auswählen müssen und auf speichern drücken!

Ich hoffe, ihr könnt mir helfen!

Gruß
manega

:)

Storax · 27. Januar 2017

Was ist jetzt genau die Frage? Oder möchtest Du, dass man Dir den kompletten Code schreibt?
Hier Code, um ein Blatt in eine neue Mappe zu kopieren
Code:

Sub CopySheet()

Dim wsSource As Worksheet
Set wsSource = ActiveSheet

Dim wsTarget As Worksheet
Dim wkbTarget As Workbook

Set wkbTarget = Workbooks.Add
wsSource.Copy before:=wkbTarget.Sheets(1)

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und ein Ansatz, um zu speichern (mit Auswahl)
Code:

Sub FileSaveAs(wkb As Workbook)

Dim fileName As String
Dim choice As Long

With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Save copy of sheet"
.AllowMultiSelect = False
If .Show = -1 Then
fileName = .SelectedItems(1)
Else
Exit Sub
End If
End With

wkb.SaveAs fileName, xlOpenXMLWorkbookMacroEnabled

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Achtung: no error handling

manega · 27. Januar 2017

Hallo Storax,

ein kompletter Code wäre schon super.
Mit gesammelten Code Teilen zusammensetzen habe ich nun schon 2 Tage verbracht und trotzdem nicht das gewünschte Ergebnis erhalten! *mad.gif*
Trotzdem Danke!

Gruß
manega

Office: Tabelle in neuer Datei als xlsm speichern und Name einfügen

Tabelle in neuer Datei als xlsm speichern und Name einfügen

Tabelle in neuer Datei als xlsm speichern und Name einfügen

Tabelle in neuer Datei als xlsm speichern und Name einfügen - Similar Threads - Tabelle Datei xlsm

1.Excel soll 100 Excel-Tabellen überprüfen

Ausfüllen mehrerer Tabellen in einer Datei

Werte aus einer anderen Excel-Datei anzeigen

Werte aus zweiter Datei beim Druck in Feld einer Tabelle einsetzen

Excel Vba Mehrere Werte aus mehreren Dateien in eine Tabelle sortieren

csv Import Tabelle mit viel Inhalt in einer Zelle

Suche über mehrere Excel-Tabellen und Excel-Dateien