Frage zur automatischen Bejahung der Abfrage

Forumthread: Frage zur automatischen Bejahung der Abfrage
4 Beiträge zu diesem Forumthread
Anzeige
Threads zu ähnlichen Themen

Forumthread: Frage zur automatischen Bejahung der Abfrage

18.05.2025 18:43:59

Orpheus

Wir erforschen meteorologische Datensätze und haben dafür 150 leistungsfähige Excel-Auswertemakros erstellt.
Diese sind aber sehr große Dateien, die wir deshalb als xlsx-Datei speichern.
Dabei kommt bei jeder Speicherung folgende Information:

Die folgenden Features können in Arbeitsmappen ohne Makros nicht gespeichert werden:
. VB Projekt
Zum Speichern einer Datei mit diesen Features klicken Sie auf Nein. Wählen Sie dann einen Dateityp mit aktivierten Makros in der Liste Dateityp aus.
Klicken Sie auf Ja , um die Datei als Arbeitsmappe ohne Makros zu speichern.

Und wir müssen 150 Mal ja drücken.
Wir möchten diesen Vorgang im Makro automatisch ausführen lassen.
Die Anwendung von Application.DisplayAlerts = True
funktioniert leider nicht
Wir sind Excel-VBA-Anfänger - bitte nicht über diese für Euch leichte Frage wundern.
Danke für die Hilfe!

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Frage zur automatischen Bejahung der Abfrage

18.05.2025 18:47:26

Onur
AW: Frage zur automatischen Bejahung der Abfrage

18.05.2025 19:13:21

BoskoBiati
AW: Frage zur automatischen Bejahung der Abfrage

18.05.2025 21:54:39

Uduuh
AW: Frage zur automatischen Bejahung der Abfrage

19.05.2025 00:40:30

Ulf

AW: Frage zur automatischen Bejahung der Abfrage

18.05.2025 18:47:26

Onur

Bitte erkläre mir die Logik von: "Diese sind aber sehr große Dateien, die wir deshalb als xlsx-Datei speichern".

AW: Frage zur automatischen Bejahung der Abfrage

18.05.2025 19:13:21

BoskoBiati

Hi,

wenn die Dateien Makros enthalten, dann macht es keinen Sinn, diese als xlsx zu speichern, dann sind die Makros weg.

Klicken Sie auf Ja , um die Datei als Arbeitsmappe ohne Makros zu speichern.

Und wir müssen 150 Mal ja drücken.
Wir möchten diesen Vorgang im Makro automatisch ausführen lassen.

Die Anwendung von Application.DisplayAlerts = True
logisch!

Abhilfe: als xlsm speichern oder erstmal alle Makros löschen!

Gruß

Edgar

AW: Frage zur automatischen Bejahung der Abfrage

18.05.2025 21:54:39

Uduuh

Hallo,
Diese sind aber sehr große Dateien, die wir deshalb als xlsx-Datei speichern.
xlsx vs xlsm spart nicht wirklich viel Speicherplatz.

Gruß aus'm Pott
Udo

AW: Frage zur automatischen Bejahung der Abfrage

19.05.2025 00:40:30

Ulf

Hi,
damit du einen Denkanstoß hast, den man mit bisschen Adaption so verwenden kann:

Option Explicit



Public Sub SpeichernAlsXLSX()

    Dim wb As Workbook

    Dim ws As Worksheet

    Dim strNewName As String

    Dim arrWS

    Dim lngC As Long

    Dim lngZ As Long

    strNewName = Replace(ThisWorkbook.FullName, "xlsm", "xlsx")

    Set wb = ThisWorkbook

    lngC = ThisWorkbook.Worksheets.Count

    ReDim arrWS(ThisWorkbook.Worksheets.Count - 1)

    For lngZ = 1 To lngC

        arrWS(lngZ - 1) = ThisWorkbook.Worksheets(lngZ).Name

    Next lngZ

    Sheets(arrWS).Copy

    With ActiveWorkbook

        .SaveAs Filename:=strNewName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

        .Close

    End With

End Sub