VBA MsgBox
24.08.2018 09:28:19
Marquardt
ich habe folgendes Problem.
Bei mehreren Hinweisen (MsgBox) kommt es immer wieder dazu, dass nicht alle (insbesondere die letzte) angezeigt bzw. übersprungen wird.
Kann mir jemand helfen?
MsgBox ("ACHTUNG!" & Chr(13) & Chr(13) & "Fügen Sie folgende Anlage an:" & Chr (13) & Chr(13) & "- die Datei mit dem Namen:" & Chr(13) & Chr(13) & " " & Sheets("Abnahme").Range("t1") & ".pdf" & Chr(13) & Chr(13) & "- die Bilder* für " & Sheets("Abnahme").Range("f255") & " Mängelpunkte (1,2,3, usw.)" & Chr(13) & " *Die Bilder sind im Formular aufsteigend durchnummeriert!)" & Chr(13) & Chr(13) & "Bitte die zu sendende(n) Datei(en) auswählen!"), vbInformation, "Bestandsmanagement der Objektverwaltung Ponholz"
Set fdOpen = Application.FileDialog(msoFileDialogOpen)
With fdOpen
.AllowMultiSelect = True
.InitialView = msoFileDialogViewList
.InitialFileName = ActiveWorkbook.Path
.Title = "Bitte die zu sendende(n) Datei(en) auswählen!"
.ButtonName = "als Anlage zur E-Mail senden"
If .Show = True Then
Dim i As Integer
If .SelectedItems.Count > 0 Then
For i = 1 To .SelectedItems.Count
objMail.attachments.Add .SelectedItems(i)
Next
End If
End If
If ThisWorkbook.Saved = False Then
Antwort = MsgBox("Die Datei wird jetzt gespeichert und zusammen mit dem Programm geschlossen!" & Chr(13) & Chr(13) & "Bitte vergessen Sie nicht, die erzeugte Mail auf Richtigkeit zu prüfen und zu versenden." & Chr(13) & Chr(13) & "Vielen Dank!", vbInformation + vbOKOnly, "Bestandsmanagement der Objektverwaltung Ponholz")
If Antwort = vbOK Then
ThisWorkbook.Save
ThisWorkbook.Close SaveChanges:=False
End If
End If
End With
Vielen Dank.