Hallo zusammen,
ich möchte gern in meinem Excel-Sheet mit einem Button alle meine Häkchen über mehrere Datenblätter löschen.
Mein aktueller VBA-Code sieht folgendermaßen aus:
Sub WorksheetLoop()
Dim WS_Count As Integer
Dim m As Integer
Dim i As Integer
Dim k As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For m = 1 To WS_Count
Sheets(m).Select
For i=10 to k
ActiveSheet.Shapes("Checkbox" & i).Value = xlOff
Next i
Next m
End Sub
Leider funktiert es nicht und ich finde einfach den Fehler nicht.
Woran könnte das liegen?
|