Function
Kontrolle()
As
Boolean
Kontrolle =
False
If
Range(
"C2"
).Value =
""
Then
MsgBox
"Nachname nicht ausgefüllt!"
, vbOKOnly
ElseIf
Range(
"G2"
).Value =
""
Then
MsgBox
"Vorname nicht ausgefüllt!"
, vbOKOnly
ElseIf
Range(
"B3"
).Value =
""
Then
MsgBox
"Prüfer nicht ausgefüllt!"
, vbOKOnly
ElseIf
Range(
"C4"
).Value =
""
Then
MsgBox
"Angebot JA (X/_) nicht ausgefüllt!"
, vbOKOnly
ElseIf
Range(
"E4"
).Value =
""
Then
MsgBox
"Angebot Nein (X/_) nicht ausgefüllt!"
, vbOKOnly
ElseIf
Range(
"G4"
).Value =
""
Then
MsgBox
"Angebotsnr. nicht ausgefüllt! Falls kein Angebot vorhanden bitte *X* eintragen!"
, vbOKOnly
ElseIf
Range(
"B6"
).Value =
""
Then
MsgBox
"Artikelnummer (Zeile 1) nicht ausgefüllt!"
, vbOKOnly
ElseIf
Range(
"F6"
).Value =
""
Then
MsgBox
"Artikelbezeichnung (Zeile 1) nicht ausgefüllt!"
, vbOKOnly
ElseIf
Range(
"J6"
).Value =
""
Then
MsgBox
"Menge (Zeile 1) nicht ausgefüllt!"
, vbOKOnly
ElseIf
Range(
"K6"
).Value =
""
Then
MsgBox
"AB-Nummer (Zeile 1) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
, vbOKOnly
ElseIf
Range(
"L6"
).Value =
""
Then
MsgBox
"Kostenstelle (Zeile 1) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
, vbOKOnly
Else
Kontrolle =
True
End
If
End
Function
Function
Kontrolle2()
As
Boolean
Kontrolle2 =
False
If
Range(
"B7"
) & Range(
"F7"
) & Range(
"J7"
) & Range(
"K8"
) & Range(
"L8"
).Value <>
""
Then
If
Range(
"B7"
).Value =
""
Then
MsgBox
"Artikelnummer (Zeile 2) nicht ausgefüllt!"
, vbOKOnly
ElseIf
Range(
"F7"
).Value =
""
Then
MsgBox
"Artikelbezeichnung (Zeile 2) nicht ausgefüllt!"
, vbOKOnly
ElseIf
Range(
"J7"
).Value =
""
Then
MsgBox
"Menge (Zeile 2) nicht ausgefüllt!"
, vbOKOnly
ElseIf
Range(
"K7"
).Value =
""
Then
MsgBox
"AB-Nummer (Zeile 2) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
, vbOKOnly
ElseIf
Range(
"L7"
).Value =
""
Then
MsgBox
"Kostenstelle (Zeile 2) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
, vbOKOnly
End
If
Else
Kontrolle2 =
True
End
If
End
Function
Function
Versenden()
Dim
Nachricht
As
Object
, OutlookApplication
As
Object
Set
MyOutApp = CreateObject(
"Outlook.Application"
)
Set
MyMessage = MyOutApp.CreateItem(0)
Dim
Anhang
As
String
Anhang = ThisWorkbook.FullName
With
MyMessage
.
To
= Range(
"A37"
)
.Subject =
"Bestellanforderung (BANF)"
&
" "
& Range(
"L1"
)
.attachments.Add Anhang
.body =
"Hallo"
&
" "
& Range(
"B3"
) & Chr(13) & _
Chr(13) & _
"**"
&
" "
& Range(
"C2"
) &
","
&
" "
& Range(
"G2"
) &
" "
&
"**"
&
" "
&
"hat Ihnen eine Bestellanforderung (BANF) zur Überprüfung geschickt."
& Chr(13) & _
"Bitte kontrollieren Sie die BANF und leiten diese Email mit der Freigabe inkl. Anhang"
& Chr(13) & _
"an P142 Walz, Daniel weiter."
& Chr(13) & _
"Sollte es ein Angebot dazu geben, bitte beifügen."
& Chr(13) & _
Chr(13) & _
"Bei Abwesenheit von P142 bitte an die passende Vertretung schicken."
& _
Chr(13) & _
Chr(13) & _
"Vielen Dank"
.send
End
With
Set
MyOutApp =
Nothing
Set
MyMessage =
Nothing
ThisWorkbook.Save
Application.Quit
End
Function
Sub
Versand()
If
Kontrolle =
False
Then
MsgBox
"Eine oder mehrere Pflichtfelder (Zeile 1) wurden nicht ausgefüllt! BANF wurde nicht verschickt."
, vbOKOnly
ElseIf
Kontrolle2 =
False
Then
MsgBox
"Eine oder mehrere Pflichtfelder (Zeile 2) wurden nicht ausgefüllt! BANF wurde nicht verschickt."
, vbOKOnly
Else
Versenden
MsgBox
"BANF wurde verschickt."
, vbOKOnly
End
If
End
Sub