Wie Kontrollkästchen, als Bedingung für weitere Aktionen nutzen?

If Eingabe <> "" Then  

    Set finden = wbDatenÜbersicht.Range("C3:C13000").Find(what:=Eingabe, LookAt:=xlWhole)           'in welcher zelle steht die Auftragsnummer?  
    zeile = finden.Row
    Subject = "Messbericht " & wbDatenÜbersicht.Cells(zeile, 11) & "  Artikel:  " & wbDatenÜbersicht.Cells(zeile, 12) & " Artikelnummer:  " & wbDatenÜbersicht.Cells(zeile, 13) 'Daten E-Mail Betreffzeile  
    
    
    If Cells(finden.Row, SpalteErledigtAm) <> "" Then  
      
        If Not finden Is Nothing And IsEmpty(finden) = False Then                                       'Überprüfung, ob zu dem eingegebenen Wert eine Zeile gefunden wurde  
            
            Call Emailsenden                                                                            'hier wird die E-Mail versendet  
                       
            wbBearbAufträge.Rows(2).Insert                                                              'neue 3.Zeile einfügen  
            wbDatenÜbersicht.Rows(finden.Row).Copy Destination:=wbBearbAufträge.Range("A2")             'Kopieren der Zeile in "bearbeitete Aufträge"  
            wbDatenÜbersicht.Rows(finden.Row).Delete                                                    'Löschen der Zeile aus "Daten-Übersicht"  
        Else
            MsgBox "Der eingegebene Auftrag ist nicht in der Liste enthalten. Bitte erneut eingeben."  
        End If
    Else
            MsgBox "Der Auftrag kann ohne Enddatum nicht fertig gebucht werden"  
    End If

End If