Hallo.
ich erstelle eine BANF Tabelle mit einem Button zum Versenden.
Die Tabelle hat 30 Zeilen die Kontrolliert werden sollen.
Ich würde euch die ersten 2 Zeilen mal zeigen. Wenn ich auf senden klicke kontrolliert er alles meldet sich aber das in der 2. Zeile ein Feld fehlt, aber es sind alle ausgefüllt. Was mache ich hier falsch ?
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
|