Office: Togglebutton an bestimmter Stelle zurücksetzen

Hallo liebe Office-Forum-Gemeinde,

ich habe folgendes Problem (welches ich auch in den Archiven nicht finden konnte):

Ich möchte, dass bestimmte Zellen aus einem Arbeitsblatt1 in bestimmte Zellen von Arbeitsblatt2 auf Knopfdruck von dem Button "Versenden" kopiert werden. Das funktioniert bei mir wunderbar.

Ich habe nun einen Togglebutton eingerichtet, um sicherzustellen, dass die Eingabe, die Versendet wird, erst gelöscht wird. Damit evtl. Datensätze nicht doppelt vorkommen.


Meine Frage nun:
Wie kann ich den Togglebutton an einer bestimmten stelle zurücksetzen?

Ich habe eine Bedingung eingebaut, dass wenn ein Eingabefeld leer bleibt, das Sub "Auswerten_Eingang" abbricht.
Dann soll natürlich auch der ToggleButton zurückgesetzt werden.

Hier meine Codes:

Sub Auswertung_Eingang()
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dim LfnNr As Long
Dim Item1 As Long
Dim Item2 As Long

Dim Ausgabe1 As String
Dim Ausgabe2 As String
Dim rng As Range

Ausgabe1 = "Die Auswertung wurde erfolgreich durchgeführt!"
Ausgabe2 = "Bitte alle Felder ausfüllen!"

Set wksQuelle = Workbooks("Qualitätsentwicklungsbericht.xlsm") _
.Worksheets("Eingabemaske")
Set wksZiel = Workbooks("Qualitätsentwicklungsbericht.xlsm") _
.Worksheets("Berechnungen")
Set rng = ActiveSheet.Range("C9, C13, C17")

If Application.CountA(rng) < rng.Count Then
MsgBox Ausgabe2
Exit Sub

Else:
LfnNr = wksZiel.Cells(Rows.Count, 1).End(xlUp).Row + 1
If LfnNr < 7 Then LfnNr = 7
wksZiel.Range("A" & LfnNr).Value = wksQuelle.Range("C9").Value

Item1 = wksZiel.Cells(Rows.Count, 2).End(xlUp).Row + 1
If Item1 < 7 Then Item1 = 7
wksZiel.Range("B" & Item1).Value = wksQuelle.Range("C13").Value

Item2 = wksZiel.Cells(Rows.Count, 3).End(xlUp).Row + 1
If Item2 < 7 Then Item2 = 7
wksZiel.Range("C" & Item2).Value = wksQuelle.Range("C15").Value

End If


MsgBox Ausgabe1


End Sub


Sub Löschen_Eingang()

Range("C9:C37").ClearContents

End Sub

Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "Aktuelle Eingabe löschen!"
Auswertung_Eingang
Else
ToggleButton1.Caption = "Auswertung durchführen!"
Löschen_Eingang
End If

End Sub

Vielen Dank schonmal :)

Patrick