Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon pnp vom 08.04.2020, 10:33 Options

Fehler beim Abbrechen vom automatischen Speichern bei Makro

Hallo,
habe das folgende Problem. Mein Makro soll die vorhandene Tabelle autom. unter einem vordefinierten Namen speichern.

Das ging auch problemlos, wenn ich die Meldungen nach dem Überschreiben mit dem Application.DisplayAlerts ausgeschaltet hatte. Aus Sicherheitsgründen soll jetzt jedoch nachgefragt werden, so dass man die Möglichkeit hat, noch einzugreifen, bevor man ausversehen die Datei überschreibt.

Wenn ich jedoch die Application.DisplayAlerts ausblende und dann in der darauffolgenden Meldung: (Ja / Nein / Abbrechen - Überschreiben) auf Abbrechen oder Nein gehe, geht Excel in den Debug Modus.

Wo liegt mein Fehler?

Viele Grüße und Danke
pnp

Sub Makro10()
Application.ScreenUpdating = False
Dim Datname
Sheets("-1-").Select
Datname = Cells(5, 1).Value
'Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"c:\Home\ " & Datname & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Application.DisplayAlerts = True
Sheets("-2-").Select
Range("A9").Select
End Sub

Antwort schreiben

Antwort 1 von Beverly vom 08.04.2020, 11:52 Options

Hi,

versuche es nach diesem Prinzip:

Sub speichern_mit_abfrage()
    Dim Fso
    Dim strSpeichername As String
    Dim strAbfrage As String
    strSpeichername = Sheets("-1-").Cells(5, 1) & ".xls"
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Application.DisplayAlerts = False
    If Fso.fileexists("C:\Test\" & strSpeichername) Then
        strAbfrage = MsgBox("Soll die vorhandene Arbeitsmappe " & strSpeichername & " überschrieben werden", vbYesNoCancel)
        If strAbfrage = vbYes Then ThisWorkbook.Save
    Else
        ThisWorkbook.SaveAs "C:\Test\" & strSpeichername
    End If
    Application.DisplayAlerts = True
End Sub

Bis später,
Karin

Antwort 2 von pnp vom 08.04.2020, 12:11 Options

Könnt dich knutschen

Funktioniert :D

Antwort 3 von pnp vom 11.04.2020, 11:54 Options

Hi,

hab jetzt doch noch einen Bug entdeckt.

Und zwar folgender Fall:
Ich arbeite mit der Excel Tabelle und speicher sie unter dem Namen 01 ab. Schließe sie danach.

Wenn ich dann wieder mit der Tabelle arbeite und sie wieder unter dem Namen 01 speichern möchte, kommt die Meldung, ob ich überschreiben möchte oder nicht. Wenn ich dann ja wähle, geht er in den Debug Modus und markiert ".... ThisWorkbook.Save"

Das kann doch sicher nur ein kleiner Fehler sein, komm aber nicht drauf. Kann da jemand weiterhelfen.

Viele Grüße
Simeon

Antwort 4 von Beverly vom 11.04.2020, 12:16 Options

Hi Simeon,

versuche es so

Sub speichern_mit_abfrage()
    Dim Fso
    Dim strSpeichername As String
    Dim strAbfrage As String
    strSpeichername = Sheets("-1-").Cells(5, 1) & ".xls"
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Application.DisplayAlerts = False
    If Fso.fileexists("C:\Test\" & strSpeichername) Then
        strAbfrage = MsgBox("Soll die vorhandene Arbeitsmappe " & strSpeichername & " überschrieben werden", vbYesNoCancel)
        If strAbfrage = vbYes Then
            If ThisWorkbook.Name = strSpeichername Then
                ThisWorkbook.Save
            Else
                ThisWorkbook.SaveAs "C:\Test\" & strSpeichername
            End If
        End If
    Else
        ThisWorkbook.SaveAs "C:\Test\" & strSpeichername
    End If
    Application.DisplayAlerts = True
End Sub

Bis später,
Karin

Antwort 5 von pnp vom 11.04.2020, 12:44 Options

Einwandfrei :D

Viele Grüße und Danke
Simeno

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken