Thema Datum  Von Nutzer Rating
Antwort
05.04.2023 20:02:38 Xaver
NotSolved
05.04.2023 21:03:09 Gast37658
NotSolved
06.04.2023 08:18:37 Gast67358
NotSolved
Blau Tabellenblatt umbenennen und in neuer Datei mit Name des Tabellenblatts abspeichern
 06.04.2023 09:30:28 Gast81268
NotSolved
06.04.2023 11:22:26 Gast59245
NotSolved

Ansicht des Beitrags:
Von:
Gast81268		 Datum:
06.04.2023 09:30:28		 Views:
330		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblatt umbenennen und in neuer Datei mit Name des Tabellenblatts abspeichern

Einzige Frage. Beim Ausführen kommt die Meldung, dass die Features in Arbeitsmappen ohne Makros nicht gespeichert werden können und man auf "Ja" klicken muss um die Datei als Arbeitsmappe ohne Makros zu speichern.

Kann man dieses Fenster noch irgendwie unterdrücken, sodass die neue Arbeitsmappe automatisch ohne Makros gespeichert wird?

Ja das geht.

Option Explicit
 
Sub Test()
  Dim strName As String
  With ThisWorkbook.Worksheets("Basisreiter")
    strName = Trim$(.Range("A6").Value)
    Call .Copy
  End With
  With ActiveWorkbook
    .Worksheets(1).Name = strName
    Application.DisplayAlerts = False
    Call .SaveAs(Environ$("USERPROFILE") & "\Desktop\" & strName, xlOpenXMLWorkbook) 'save as XLSX
    Application.DisplayAlerts = True
    Call .Close
  End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.04.2023 20:02:38 Xaver
NotSolved
05.04.2023 21:03:09 Gast37658
NotSolved
06.04.2023 08:18:37 Gast67358
NotSolved
Blau Tabellenblatt umbenennen und in neuer Datei mit Name des Tabellenblatts abspeichern
 06.04.2023 09:30:28 Gast81268
NotSolved
06.04.2023 11:22:26 Gast59245
NotSolved