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