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
Sub Versand()
If Kontrolle And Kontrolle2 Then
Versenden
MsgBox "BANF wurde verschickt.", vbOKOnly
End If
End Sub