Abbrechen Button mit VBA abfragen

[Heinz Ulm]

Hallo VBA-Freunde,

ich steh wieder mal auf dem Schlauch. ich komme einfach nicht darauf, wie ich einen Code bei Saveas abbrechen kann wenn der Button "Abbrechen" gedrückt wird.

 

Hier mal der Code mit allen meinen Spielereien. Wie gesagt, SaveAs funktioniert, trägt auch das richtige ein.

Ich will nur bei "Abbrechen" raus, ohne dass der vorgeschlagene Speichername eingetragen wird.

Vielen Dank für eure Überlegungen.

Heinz

Code:

Sub saveas()
'

Snameold = Range("B8").Value

Application.Dialogs(xlDialogSaveAs).Show '("Standartspeicherort")
Sname = ThisWorkbook.Name


If Sname = False Then 'DAS KLAPPT NICHT. SNAME WIRD NICHT FALSE
    strTxt = Worksheets("MsgBoxes").Range("B3").Value
    MsgBox strTxt, vbCritical
   
   Exit Sub
End If

Spath = ActiveWorkbook.Path
Sname = ThisWorkbook.Name

Range("B8").Value = ThisWorkbook.Path
Range("C8").Value = ThisWorkbook.Name

End Sub

[Kuwer]

Hallo Heinz,

Sname = Application.Dialogs(xlDialogSaveAs).Show '("Standardspeicherort")
'Sname = ThisWorkbook.Name

Gruß Uwe

[Heinz Ulm]

Hallo Uwe,

vielen Dank,
klappt wunderbar.

Gruß Heinz