Hallo,
ich habe ein kleines Problem mit der If... und Else If... Bedingung bei einem Makro.
folgendes Code habe ich geschrieben. Problem ist, dass das Makro nicht weiter ausgeführt wenn Zelle (B12) Text enthält.
Also das Makro soll, wenn B12 = #NV nicht weiter ausgeführt werden und eine Pop-up Meldung soll ausgelöst werden. Aber wenn B12 ein anderer Text enthält z. B. ein Name usw. dann soll das weiter laufen und eine Mail erzeugen.
kann mir vllt jemand hier helfen? Danke euch!
Sub MAIL()
If Range("B12").Text = "#NV" Then
MsgBox "Bitte Daten Korrigieren und erneut versuchen!"
Exit Sub
Else
If Range("B12") = True Then
Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Dim Anhang As String
Application.DisplayAlerts = False
Anhang = ThisWorkbook.FullName
Set Nachricht = OutlookApplication.CreateItem(0)
ThisWorkbook.Save
With Nachricht
.To = ""
.BCC = ""
.Subject = ""
.attachments.Add Anhang
.Body = ""
.Display
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
ThisWorkbook.Save
Application.DisplayAlerts = True
End If
End If
End Sub