Ich hab folgenden Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Speichern As Boolean
Dim Pflichtfelder As Range
Dim Zelle As Range
If Application.UserName = "mkanamueller" Then Exit Sub ' Namen anpassen!
Set Pflichtfelder = Union(Worksheets("bmd").Range("A1"), Worksheets("bmd").Range("B2")) ' Pflichtfelder festlegen
Speichern = True
For Each Zelle In Pflichtfelder.Cells
If Zelle = "" Then
Speichern = False ' Speichern unterdrücken wenn Pflichtfelder leer sind
Exit For
End If
Next
If Speichern = False Then
MsgBox "Sie haben nicht alle Pflichtfelder ausgefüllt!" & vbCrLf & "Speichervorgang wurde abgebrochen!" ' Fehlerausgabe - Messagebox
Cancel = True
End If
End Sub
Sub Mail_senden()
'
' Mail_senden Makro
Dim Empfänger, Titel As String 'Variablendeklaration
Empfänger = "test@test.at" 'Empfänger
Titel = "Ich teste!" 'Titel
Application.Dialogs(xlDialogSendMail).Show Empfänger, Titel
End Sub
Ich moöchte jetzt dass Sub Mail_senden nur aufgerufen wird wenn alle Pflichfelder ausgefüllt sind d.h. wenn Speichern = True.
Wie kann ich denn das bewerkstelligen?!?
thx!!!!!!