MsgBox funktioniert nicht
30.08.2021 14:20:14
Memo
bei diesem folgenden Code werden NACH erfolgreichen speichern alle aktuellen Steuerelemente sowie alle Arbeitsblätter ausser der aktiven, gelöscht und die Zeile 1 auf eine Zeilenhöhe von 13 zurückgesetzt.
Wenn ich jedoch auf "Abbrechen" klicke, löscht er dennoch die Arbeitsblätter und setzt die Zeile 1 zurück - soll er ja nicht tun, weil abgebrochen.
Wie kann ich ab: "If Not varFileName = False Then.. bis End Sub " in diese MsgBox packen?:
If Msgbox ("Speichern unter", vbOKCancel, "x Meldung") = vbOk Then
MsgBox "Datei gespeichert"
Else
MsgBox "Abbruch"
End if
Private Sub CommandButton3_Click()
Dim varFileName As Variant, objWs As Worksheet, objShp As Shape, sh As Object
ChDir "C:/"
varFileName = Application.GetSaveAsFilename(varFileName, "Excel Arbeitsmappe ohne VBA (*.xlsx),*.xlsx,")
Application.DisplayAlerts = False
For Each sh In Sheets
If Not sh.Name = ActiveSheet.Name Then sh.Delete
Next sh
Application.DisplayAlerts = True
If Not varFileName = False Then
For Each objWs In ThisWorkbook.Worksheets
For Each objShp In objWs.Shapes
If objShp.Type = 12 Then objShp.Delete
Next objShp
Next objWs
ThisWorkbook.SaveAs (varFileName), FileFormat:=xlWorkbookNormal
Else
MsgBox "Abbruch durch Nutzer."
End If
ActiveSheet.Range("1:1").RowHeight = 13
Application.DisplayAlerts = False
End Sub
Danke für eure Unterstützung.VG
Memo