Code "kürzen"
Gegga
Habe folgenden Code
Private Sub CMB_ABBRECHEN_Click()
If TB_LIEFERANT > "" Then
If MsgBox("Es sind ausgefüllte Textboxen vorhanden," & vbLf & _
"wirklich beenden?", vbOKCancel + vbQuestion, "INFORMATION") = vbOK Then Unload Me
Exit Sub
End If
If TB_MAIL > "" Then
If MsgBox("Es sind ausgefüllte Textboxen vorhanden," & vbLf & _
"wirklich beenden?", vbOKCancel + vbQuestion, "INFORMATION") = vbOK Then Unload Me
Exit Sub
End If
If CB_LIEF01 > "" Then
If MsgBox("Es sind ausgefüllte Textboxen vorhanden," & vbLf & _
"wirklich beenden?", vbOKCancel + vbQuestion, "INFORMATION") = vbOK Then Unload Me
Exit Sub
End If
If CB_LIEF02 > "" Then
If MsgBox("Es sind ausgefüllte Textboxen vorhanden," & vbLf & _
"wirklich beenden?", vbOKCancel + vbQuestion, "INFORMATION") = vbOK Then Unload Me
Exit Sub
End If
If CB_LIEF03 > "" Then
If MsgBox("Es sind ausgefüllte Textboxen vorhanden," & vbLf & _
"wirklich beenden?", vbOKCancel + vbQuestion, "INFORMATION") = vbOK Then Unload Me
Exit Sub
End If
If CB_LIEF04 > "" Then
If MsgBox("Es sind ausgefüllte Textboxen vorhanden," & vbLf & _
"wirklich beenden?", vbOKCancel + vbQuestion, "INFORMATION") = vbOK Then Unload Me
Exit Sub
End If
If CB_LIEF05 > "" Then
If MsgBox("Es sind ausgefüllte Textboxen vorhanden," & vbLf & _
"wirklich beenden?", vbOKCancel + vbQuestion, "INFORMATION") = vbOK Then Unload Me
Exit Sub
End If
If CB_LIEF06 > "" Then
If MsgBox("Es sind ausgefüllte Textboxen vorhanden," & vbLf & _
"wirklich beenden?", vbOKCancel + vbQuestion, "INFORMATION") = vbOK Then Unload Me
Exit Sub
End If
If CB_LIEF07 > "" Then
If MsgBox("Es sind ausgefüllte Textboxen vorhanden," & vbLf & _
"wirklich beenden?", vbOKCancel + vbQuestion, "INFORMATION") = vbOK Then Unload Me
Exit Sub
End If
If CB_LIEF08 > "" Then
If MsgBox("Es sind ausgefüllte Textboxen vorhanden," & vbLf & _
"wirklich beenden?", vbOKCancel + vbQuestion, "INFORMATION") = vbOK Then Unload Me
Exit Sub
End If
If CB_LIEF09 > "" Then
If MsgBox("Es sind ausgefüllte Textboxen vorhanden," & vbLf & _
"wirklich beenden?", vbOKCancel + vbQuestion, "INFORMATION") = vbOK Then Unload Me
Exit Sub
End If
If CB_LIEF10 > "" Then
If MsgBox("Es sind ausgefüllte Textboxen vorhanden," & vbLf & _
"wirklich beenden?", vbOKCancel + vbQuestion, "INFORMATION") = vbOK Then Unload Me
Exit Sub
End If
End Sub
Gibt es hier eine Möglichkeit den Code zu "kürzen"? Funktionieren tut er ja so wie ich es will
Wollt nur mal wissen ob es dafür auch etwas "einfacheres" gibt, evtl. eine verkürzte Schreibweise
Greetz aus dem sonnigen Schwaben ;)
Gegga