thepinky
Goto Top

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

Hallo zusammen,

wie kann ich in Excel VBA Kontrollkästchen, Formular oder auch ActiveX für eine If Bedingung nutzen?

Beispiel: Es soll eine Zeile gelöscht werden.
Über den gleichen Button soll bei vorherigen setzen eines Hakens die Zeile ebenfalls gelöscht werden, allerdings zusätzlich Outlook mit einigen Informationen geöffnet werden.

Einzeln bekomme ich es hin, aber nicht trennbar.

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

Content-Key: 93637465404

Url: https://administrator.de/contentid/93637465404

Printed on: July 22, 2024 at 11:07 o'clock

Member: SachsenHessi
SachsenHessi Jan 01, 2024 at 16:23:25 (UTC)
Goto Top
Eine temporäre Variable nutzen ?
SH
Mitglied: 10138557388
Solution 10138557388 Jan 01, 2024 updated at 17:10:44 (UTC)
Goto Top
If ActiveSheet.Checkbox1.Value = True then
    ' ......  
End if
RTFM darf msn auch im neuen Jahr

đź–– Pj
Member: thepinky
thepinky Jan 01, 2024 at 19:23:16 (UTC)
Goto Top
Ups, das war einfach.
Danke!