Guten Morgen zusammen,
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.