Schleife und ToggleButton

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
Dim lngZeile As Long
Dim ToggleButton1 As ToggleButton
If ActiveSheet.ToggleButton1.Value = True Then
If Environ("Username") = "Gabi" Then
Application.EnableEvents = False
With Worksheets("Benutzeränderungen")
lngZeile = .Range("A65536").End(xlUp).Row + 1
.Unprotect ("password")
.Cells(lngZeile, 1).Value = Environ("UserName")
.Cells(lngZeile, 2).Value = Date
.Cells(lngZeile, 3).Value = Time
.Cells(lngZeile, 4).Value = sh.Name
.Cells(lngZeile, 5).Value = Target.Address
.Cells(lngZeile, 6).Value = oldValue
.Cells(lngZeile, 7).Value = Target.Text
.Protect ("password")
End With
Application.EnableEvents = True
Exit Sub
End If
End If
Application.EnableEvents = False
With Worksheets("Benutzeränderungen")
lngZeile = .Range("A65536").End(xlUp).Row + 1
.Unprotect ("password")
.Cells(lngZeile, 1).Value = Environ("UserName")
.Cells(lngZeile, 2).Value = Date
.Cells(lngZeile, 3).Value = Time
.Cells(lngZeile, 4).Value = sh.Name
.Cells(lngZeile, 5).Value = Target.Address
.Cells(lngZeile, 6).Value = oldValue
.Cells(lngZeile, 7).Value = Target.Text
.Protect ("password")
End With
Target.Interior.ColorIndex = 6
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range)
oldValue = Target
End Sub

Sub findUserForPhoneTime()  'Öffnet die Mitarbeiterliste und entnimmt den MA-Namen
Application.ScreenUpdating = False
Dim wb1pfad As String
Dim wb1name As String
Dim wb2 As Workbook
Dim wb2pfad As String
Dim wb2name As String
Dim wb2ws1 As Worksheet
Dim wb1ws2 As Worksheet
Dim bwbopen As Boolean
Dim activeUser As String
Dim searchCell As Range
Dim searchCell1 As Range
Dim strName As String
Dim strVorname As String
Dim AktuellesDatum As Date
Dim AktuellstesWorksheet As Worksheet
Dim WS_Count As Integer
Dim I As Integer
wb1pfad = "C:\VBA\"
wb1name = "Dienstplan.xlsm"               ' bereits geöffnete Datei
wb2pfad = "C:\VBA\"
wb2name = "Mitarbeiterliste.xlsm"         ' zu öffnende Datei
bwbopen = WorkbookIsOpen(wb2name)
If bwbopen = False Then
Workbooks.Open (wb2pfad & wb2name)
Else
End If
Set wb1 = Workbooks("Dienstplan.xlsm")
Set wb2 = Workbooks("Mitarbeiterliste.xlsm")
Set wb1ws1 = wb1.Worksheets(Worksheets.Count) ' bereits geöffnete Datei
Set wb2ws1 = wb2.Worksheets("Tabelle1")       ' zu öffnende Datei
activeUser = Environ("UserName")
Debug.Print activeUser
wb2ws1.Activate 'Vergleich in der MA-Liste und Entnahme des richtigen MA-Namen
For Each searchCell In Range("D2:D" & Cells(Rows.Count, "D").End(xlUp).Row)
If searchCell = activeUser Then
strName = searchCell.Offset(0, -2) ' 2 Zellen links neben der aktiven Zelle
strVorname = searchCell.Offset(0, -1) ' 2 Zellen links neben der aktiven Zelle
End If
Next
Dim Test1 As String
Test1 = strVorname & " " & strName
Debug.Print Test1
For Each wksTabelle In wb1.Sheets
If wksTabelle.Index > 2 Then
Debug.Print wksTabelle.Name
With wksTabelle
For Each searchCell1 In .Range("A3:A" & .Cells(Rows.Count,"A").End(xlUp).Row)
If searchCell1.Value = strVorname & " " & strName Then
Set Telefonzelle = searchCell1.Offset(9, 21)
Debug.Print Telefonzelle
Exit For
End If
Next searchCell1
AktuellesDatum = Format(Now, "DD.MM.YYYY")
If IsEmpty(Telefonzelle) And .Range("T2") 

Sub msgAbfrageTelefonzeit()
Dim lngZahl As Double
Dim IsNumeric() As Boolean
Dim strAntwort As String
Dim Abfrage As String
AnfangAbfrage:
lngZahl = Application.InputBox(vbNewLine & "Wie viel haben Sie in der " & wksTabelle.Name &  _
_
" (letzte Woche) telefoniert? Bitte geben Sie dies in einer Dezimalzahl an." & vbNewLine &  _
_
"Bsp.: 0,75 (= 45 Minuten)" & vbNewLine & vbNewLine, _
"Telefonzeit-Abfrage", 0, , , Type:=1)
If lngZahl = 0 Then
Abfrage = MsgBox("Sind Sie sicher?", vbYesNo)
If Abfrage = vbNo Then
GoTo AnfangAbfrage
Else: wksTabelle.Range(Telefonzelle.Address).Value = "0,00"
End If
Else
MsgBox "Vielen Dank für Ihre Eingabe!", vbOKOnly
wksTabelle.Range(Telefonzelle.Address).Value = lngZahl
End If
End Sub