VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht
Thema	Datum	Von Nutzer	Rating	Antwort
Outlook + Kontroll	03.02.2023 14:59:23	Daniel
Outlook + Kontroll	03.02.2023 22:38:37	ralf_b
Outlook + Kontroll	10.02.2023 14:15:19	Daniel
Outlook + Kontroll	04.02.2023 18:24:12	Gast44347
unerwähnter X-Post (shame on @TE)	05.02.2023 17:25:55	Gast38012
Boooh	10.02.2023 14:22:31	Gast52435
unerwähnter X-Post (shame on @TE)	10.02.2023 14:28:08	Gast83797
Ansicht des Beitrags:
Von:
Daniel
Datum:
10.02.2023 14:15:19
Views:
325
Rating:
Antwort:
Thema:
Outlook + Kontroll
Hallo,
habe mal das für jede Zelle gemacht.
Nun bekomme ich aber den Fehler, dass wenn ich auf Senden klicke es nicht versendet wird
sondern sagt, dass Zeile 2 nicht ausgefüllt wurde (wenn Zeile 1 ausgefüllt).
Wenn ich aber Zeile2 ausfülle meldet er sich dass die Zeile 3 nicht ausgefüllt usw.
Gewünscht ist aber dass er die Zellen nur kontrolliert wenn diese beschrieben ist.
Wo habe ich hier meinen Fehler ?
Function Kontrolle() As Boolean
     
  Dim str, arrRng, i&, strErg$
   
  arrRng = Split("C2,G2,B3,C4,E4,G4,B6,F6,J6,K6,L6", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Nachname nicht ausgefüllt!"
  str(1) = "Vorname nicht ausgefüllt!"
  str(2) = "Prüfer nicht ausgefüllt!"
  str(3) = "Angebot JA (X/_) nicht ausgefüllt!"
  str(4) = "Angebot Nein (X/_) nicht ausgefüllt!"
  str(5) = "Angebotsnr. nicht ausgefüllt! Falls kein Angebot vorhanden bitte *X* eintragen!"
  str(6) = "Artikelnummer (Zeile 1) nicht ausgefüllt!"
  str(7) = "Artikelbezeichnung (Zeile 1) nicht ausgefüllt!"
  str(8) = "Menge (Zeile 1) nicht ausgefüllt!"
  str(9) = "AB-Nummer (Zeile 1) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(10) = "Kostenstelle (Zeile 1) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
   
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle = False
   Else
     Kontrolle = True
   End If
   
End Function
  
Function Kontrolle2() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B7,F7,J7,K7,L7", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 2) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 2) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 2) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 2) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 2) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle2 = False
   Else
     Kontrolle2 = True
   End If
    
End Function

Function Kontrolle3() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B8,F8,J8,K8,L8", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 3) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 3) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 3) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 3) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 3) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle3 = False
   Else
     Kontrolle3 = True
   End If
    
End Function

Function Kontrolle4() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B9,F9,J9,K9,L9", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 4) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 4) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 4) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 4) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 4) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle4 = False
   Else
     Kontrolle4 = True
   End If
    
End Function

Function Kontrolle5() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B10,F10,J10,K10,L10", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 5) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 5) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 5) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 5) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 5) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle5 = False
   Else
     Kontrolle5 = True
   End If
    
End Function

Function Kontrolle6() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B11,F11,J11,K11,L11", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 6) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 6) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 6) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 6) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 6) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle6 = False
   Else
     Kontrolle6 = True
   End If
    
End Function

Function Kontrolle7() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B12,F12,J12,K12,L12", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 7) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 7) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 7) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 7) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 7) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle7 = False
   Else
     Kontrolle7 = True
   End If
    
End Function

Function Kontrolle8() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B13,F13,J13,K13,L13", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 8) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 8) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 8) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 8) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 8) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle8 = False
   Else
     Kontrolle8 = True
   End If
    
End Function

Function Kontrolle9() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B14,F14,J14,K14,L14", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 9) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 9) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 9) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 9) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 9) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle9 = False
   Else
     Kontrolle9 = True
   End If
    
End Function

Function Kontrolle10() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B15,F15,J15,K15,L15", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 10) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 10) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 10) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 10) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 10) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle10 = False
   Else
     Kontrolle10 = True
   End If
    
End Function

Function Kontrolle11() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B16,F16,J16,K16,L16", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 11) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 11) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 11) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 11) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 11) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle11 = False
   Else
     Kontrolle11 = True
   End If
    
End Function

Function Kontrolle12() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B17,F17,J17,K17,L17", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 12) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 12) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 12) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 12) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 12) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle12 = False
   Else
     Kontrolle12 = True
   End If
    
End Function

Function Kontrolle13() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B18,F18,J18,K18,L18", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 13) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 13) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 13) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 13) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 13) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle13 = False
   Else
     Kontrolle13 = True
   End If
    
End Function

Function Kontrolle14() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B19,F19,J19,K19,L19", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 14) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 14) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 14) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 14) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 14) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle14 = False
   Else
     Kontrolle14 = True
   End If
    
End Function

Function Kontrolle15() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B20,F20,J20,K20,L20", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 15) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 15) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 15) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 15) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 15) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle15 = False
   Else
     Kontrolle15 = True
   End If
    
End Function
Function Kontrolle16() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B21,F21,J21,K21,L21", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 16) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 16) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 16) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 16) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 16) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle16 = False
   Else
     Kontrolle16 = True
   End If
    
End Function
Function Kontrolle17() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B22,F22,J22,K22,L22", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 17) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 17) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 17) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 17) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 17) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle17 = False
   Else
     Kontrolle17 = True
   End If
    
End Function
Function Kontrolle18() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B22,F22,J22,K22,L22", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 18) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 18) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 18) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 18) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 18) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle18 = False
   Else
     Kontrolle18 = True
   End If
    
End Function
Function Kontrolle19() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B23,F23,J23,K23,L23", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 19) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 19) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 19) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 19) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 19) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle19 = False
   Else
     Kontrolle19 = True
   End If
    
End Function
Function Kontrolle20() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B24,F24,J24,K24,L24", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 20) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 20) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 20) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 20) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 20) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle20 = False
   Else
     Kontrolle20 = True
   End If
    
End Function
Function Kontrolle21() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B25,F25,J25,K25,L25", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 21) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 21) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 21) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 21) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 21) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle21 = False
   Else
     Kontrolle21 = True
   End If
    
End Function
Function Kontrolle22() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B26,F26,J26,K26,L26", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 22) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 22) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 22) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 22) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 22) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle22 = False
   Else
     Kontrolle22 = True
   End If
    
End Function
Function Kontrolle23() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B27,F27,J27,K27,L27", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 23) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 23) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 23) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 23) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 23) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle23 = False
   Else
     Kontrolle23 = True
   End If
    
End Function
Function Kontrolle24() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B28,F28,J28,K28,L28", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 24) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 24) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 24) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 24) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 24) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle24 = False
   Else
     Kontrolle24 = True
   End If
    
End Function
Function Kontrolle25() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B90,F29,J29,K29,L29", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 25) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 25) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 25) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 25) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 25) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle25 = False
   Else
     Kontrolle25 = True
   End If
    
End Function
Function Kontrolle26() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B30,F30,J30,K30,L30", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 26) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 26) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 26) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 26) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 26) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle26 = False
   Else
     Kontrolle26 = True
   End If
    
End Function
Function Kontrolle27() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B31,F31,J31,K31,L31", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 27) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 27) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 27) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 27) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 27) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle27 = False
   Else
     Kontrolle27 = True
   End If
    
End Function
Function Kontrolle28() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B32,F32,J32,K32,L32", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 28) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 28) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 28) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 28) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 28) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle28 = False
   Else
     Kontrolle28 = True
   End If
    
End Function
Function Kontrolle29() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B33,F33,J33,K33,L33", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 29) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 29) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 29) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 29) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 29) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle29 = False
   Else
     Kontrolle29 = True
   End If
    
End Function
Function Kontrolle30() As Boolean
   
  Dim str, arrRng, X, i&, bol As Boolean, strErg$
   
  arrRng = Split("B34,F34,J34,K34,L34", ",")
  ReDim str(UBound(arrRng) + 1)
   
  str(0) = "Artikelnummer (Zeile 30) nicht ausgefüllt!"
  str(1) = "Artikelbezeichnung (Zeile 30) nicht ausgefüllt!"
  str(2) = "Menge (Zeile 30) nicht ausgefüllt!"
  str(3) = "AB-Nummer (Zeile 30) nicht ausgefüllt! Falls keine Vorhanden, bitte *0* eintragen!"
  str(4) = "Kostenstelle (Zeile 30) nicht ausgefüllt! Falls keine Notwendig, bitte *leer* eintragen!"
   
  For i = 0 To UBound(arrRng)
     If IsEmpty(Range(arrRng(i))) Then strErg = strErg & arrRng(i) & " - " & str(i) & vbLf
  Next
    
   If Len(strErg) > 0 Then
     MsgBox strErg, vbOKOnly
     Kontrolle30 = False
   Else
     Kontrolle30 = 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
        ElseIf Kontrolle3 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 3) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle4 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 4) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle5 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 5) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle6 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 6) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle7 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 7) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle8 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 8) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle9 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 9) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle10 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 10) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle11 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 11) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle12 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 12) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle13 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 13) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle14 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 14) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle15 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 15) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle16 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 16) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle17 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 17) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle18 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 18) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle19 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 19) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle20 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 20) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle21 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 21) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle22 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 22) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle23 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 23) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle24 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 24) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle25 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 25) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle26 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 26) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle27 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 27) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle28 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 28) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle29 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 29) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
        ElseIf Kontrolle30 = False Then
            MsgBox "Eine oder mehrere Pflichtfelder (Zeile 30) wurden nicht ausgefüllt! BANF wurde nicht verschickt.", vbOKOnly
    Else
        Versenden
            MsgBox "BANF wurde verschickt.", vbOKOnly
    End If
End Sub
Ihre Antwort
Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema:		Name:		Email:
Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema	Datum	Von Nutzer	Rating	Antwort
Outlook + Kontroll	03.02.2023 14:59:23	Daniel
Outlook + Kontroll	03.02.2023 22:38:37	ralf_b
Outlook + Kontroll	10.02.2023 14:15:19	Daniel
Outlook + Kontroll	04.02.2023 18:24:12	Gast44347
unerwähnter X-Post (shame on @TE)	05.02.2023 17:25:55	Gast38012
Boooh	10.02.2023 14:22:31	Gast52435
unerwähnter X-Post (shame on @TE)	10.02.2023 14:28:08	Gast83797