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
|