Kontrollkästen ist leer nach verschicken einer Mail

[Enrico]

Hallo,

ich hoffe man weiß wie ich das meine.

Wir nutzen eine Excel-Übersicht als Vorlage für eine Übergabe-Mail weil wir in verschiedenen Schichten arbeiten.
Ich würde nun gerne zusätzlich eine Checkliste einbauen die abgehakt werden muss.

Gibt es eine Möglichkeit das diese Checkliste wieder automatisch "leer'" gemacht wird wenn die letzte Mail verschickt wurde.

Kleine Anmerkung:
Es gibt 3 Button (Früh, Spät und Nacht) worüber die Mail pro Schicht direkt aus Excel verschickt wird.

Ich hätte jetzt gerne ein Kästchen wo man reinklicken muss und dann erscheint ein Haken.
Wenn dann die Nachtschicht die E-Mail abschickt sollten die Kästchen wieder autoamtisch leer werden.

Damit wir uns sicher sein können das die Kontrollen auch durchgeführt (bzw. abgehakt) wurden.

Ich hoffe ihr versteht wie ich das meine. Im Anhang habe ich versucht das etwas darzustellen.

[{Boris}]

Hi,

Deine "Kästchen" sind Formen. Entferne sie und füge stattdessen Kontrollästchen aus den Formularsteuerelementen ein (Entwicklertools - Einfügen - Formularsteuerelement).

Diese Kontrollkästchen lassen sich dann wie folgt wieder alle deaktivieren:

Code:

Sub test()
Dim Cb As CheckBox
For Each Cb In Tabelle2.CheckBoxes
    Cb.Value = False
Next Cb
End Sub

[Enrico]

Vielen Dank, das werde ich gleich mal ausprobieren.

[Enrico]

Ich habe es probiert aber es gibt 2. Probleme:

1. Die eingefügten Kontrollkästchen sind in der E-Mail letztendlich nicht sichtbar. (Bild im Anhang - Oben Excel, Unten Outlook Mail)
   
2. Ich bekomme den Code zum leeren der Kontrollkästchen nicht an die korrekte Stelle eingebunden.
   

Code:

Sub Mailversand_4()

Dim letztezeile As Long
Dim Bereich As Range
Dim NameQuellDatei As String
Dim DateiQuelle, Dateiziel As Workbook
Dim BlattQuelle As Worksheet
Dim ZeileErgebnis As Integer
Dim objOutlook As Object
Dim objMail As Object
Dim rng As Range

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

Set rng = Sheets("Meldung Kontrolle").Range("A1:X24")
rng.Copy

With objMail
    .To = "enrico.xxxxx@xxxx.com"
    .Subject = "Kontrolle Nacht"
    .htmlbody = RangetoHTML(rng)
    .send        'Sendet die Email automatisch

End With

Set objOutlook = Nothing
Set objMail = Nothing

Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True

'Application.Quit
Workbooks("Test_Kontrollkästchen_E-Mail.xlsm").Close savechanges:=True

End Sub