ausgehen von folgendem thread
https://www.herber.de/forum/archiv/444to448/t446424.htm
folgendes prob.
Sub SaveBook() Application.DisplayAlerts = False Dim shp As Shape Set shp = Sheets("Besuchsbericht").Shapes("Textfeld 11") 'Blattname und Name des textfeldes anpassen If Len(shp.TextFrame.Characters.Text) = 0 Then MsgBox "Vor dem schliessen Besuchsinfo ausfüllen!", vbInformation, "Hinweis" Cancel = True Else ThisWorkbook.SaveAs FileName:="\\stabifix01\ablage\tmp\Reiseberichte\" & Range("b4").Value & "_" & Range("c4").Value & "_" & Range("e1").Value & ".xls" Application.DisplayAlerts = True Call auslesen End If End Sub
versuche den CODE von Sepp einzubauen, klappt leider nicht. auch wenn der DisplayAlert rausgenommen wird schliesst sich die DATEI bei leerem TEXTFELD ohne zu murren.
danke fuer Euere hilfe.
gruss thomas