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
Es funktioniert für die gerade ausgewählte Tabelle, aber nicht für alle anderen.