Datenprüfung für alle Tabellen aufheben
08.01.2021 11:13:20
Christoph
in einem Workbook habe ich mehrere Tabellen mit unterschiedlichen Datenüberprüfungen/Sperrungen. Nun möchte ich alles wieder aufheben und habe diesen Code probiert:
Sub Makro7()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Cells.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
Next
End Sub
Anzeige