Private Sub btn_send_Click()
Dim Pflichtbereich As Range
Dim Anzahl As Integer
Dim objSheet As Worksheet
Set objSheet = Worksheets(Sheets.Count)
Set Pflichtbereich = objSheet.Range("C7,C9:C11,C14:C18,C20:C22")
Anzahl = Pflichtbereich.Cells.Count
If Application.WorksheetFunction.CountA(Pflichtbereich) Anzahl Then
MsgBox "Bitte füllen Sie zuerst alle Pflichtfelder aus !", vbOKOnly + vbInformation, " _
Kontrollieren Sie alle Aufträge"
Else
Send_Mail_de
End If
End Sub
Ich habe mir diesen Code zusammengewürfelt für die folgende Situation:
Über buttons und einer Liste können vorgefertigte Tabellen per templates erzeugt werden. Am Ende sollen diese ausgefüllten "Orders" abgeschickt werden. Habe es soweit hinbekommen, dass Excel vor dem versenden die Orders durchgeht und untersucht ob alle pflichtzellen ausgefüllt wurden, ansonsten wird es nicht verschickt. Ich würde jetzt gerne noch die Tabellen, die einen Fehler enthalten in der Liste farbig markieren. Ansonsten müsste man alle Tabellen einzeln durchsuchen bis der Fehler gefunden wird. Jemand ne Idee?