Liebes Forum,
ich habe eine Frage die wahrscheinlich schon zu einfach ist nur ich als Anfänger finde keine Lösung.
Also, ich habe mehrere MsgBoxen, die unmittelbar aufeinander folgen. Auf dem Bildschirm erscheinen alle Boxen. Wie sieht der Befehl aus, damit die MsgBox nach dem OK oder Yes/No sofort vom Bildschirm verschfindet.?
Der Code dazu sieht so aus:
If Dir(AntrSaveUnder, vbDirectory) "" Then
Antwort = MsgBox("Die Datei: " & Datei & " ist breits vorhanden" _
& vbNewLine & vbNewLine & "Soll die Datei überschrieben werden?!", vbYesNoCancel)
If Antwort = vbYes Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs DAtei
MsgBox "Die Datei " & Datei & " wurde üerschrieben!", vbOKCancel
End If
Else
' Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=AntrSaveUnder
'MkDir DAtei
MsgBox "Die Datei wurde unter:" & Datei & "gespeichert", vbOKCancel
End If
Danke für Eure Antwort
Peter