Hallo,
ich speichere aus einer XLSM-Mappe mit Rechnungs-Vorlagen einzelne Sheets als XLSX, also ohne Makros ab, weil die dann weiterverarbeitet werden sollen.
Welche Parameter muss ich hinter
SaveAs ausser Name angeben, damit keine Rückfrage kommt, ob ich zulasse dass die Datei ohne Makrios als XLSX gespeichert wird. Die Warnung beim evtl. Überschreiben soll aber bleiben.
Ich habe die unerklärliche Erscheinung, dass bei wirklich gleichem Makrocoding NeueRechnung_Speichern bei einer Mappe die Rückfrage kommt, bei einer anderen nicht. Für unbedarfte Anwender, die die Rechnungen weiterbearbeiten sollen, ist das wohl irritierend.
Haben Sie einen Rat für mich ?
Danke, Rudolf Nitze
Sehr geehrter Herr Nitze,
wenn Sie das zu kopierende Blatt zuerst zu einer eigenen Arbeitsmappe machen, dann können Sie diese Arbeitsmappe anschließend mit SaveAs ohne Rückfrage wegen der VBA-Komponenten speichern. Die Warnung vor Überschreibung bleibt.
Das Programm dazu sieht im Prinzip so aus:
Sub Speichern()
Dim blattName As String
Dim wbBlatt As Workbook
Dim ws As Worksheet
´############# Hier anpassen ###########
blattName = „Rechnung 02“
´#######################################
Set ws = ThisWorkbook.Worksheets(blattName)
ws.Copy
Set wbBlatt = ActiveWorkbook
wbBlatt.SaveAs Filename:=blattName & „.xlsx“, _
FileFormat:=xlWorkbookNormal
wbBlatt.Close
End Sub
Mit freundlichen Grüßen
Dieter Klemke