Thema Datum  Von Nutzer Rating
Antwort
03.02.2023 14:59:23 Daniel
NotSolved
03.02.2023 22:38:37 ralf_b
NotSolved
Rot Outlook + Kontroll
10.02.2023 14:15:19 Daniel
NotSolved
04.02.2023 18:24:12 Gast44347
NotSolved
05.02.2023 17:25:55 Gast38012
NotSolved
10.02.2023 14:22:31 Gast52435
NotSolved
10.02.2023 14:28:08 Gast83797
NotSolved

Ansicht des Beitrags:
Von:
Daniel
Datum:
10.02.2023 14:15:19
Views:
490
Rating: Antwort:
  Ja
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
03.02.2023 14:59:23 Daniel
NotSolved
03.02.2023 22:38:37 ralf_b
NotSolved
Rot Outlook + Kontroll
10.02.2023 14:15:19 Daniel
NotSolved
04.02.2023 18:24:12 Gast44347
NotSolved
05.02.2023 17:25:55 Gast38012
NotSolved
10.02.2023 14:22:31 Gast52435
NotSolved
10.02.2023 14:28:08 Gast83797
NotSolved