16.11.2016, 20:45
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
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