Datengültigkeit
16.12.2019 15:37:34
Georg
der Code bleibt immer bei
.add Type ... stehen:
Methode oder Datenobjekt nicht gefunden.
Ich habe es schon mit Range probiert, ging auch nciht, was mache ich falsch?, Danke für euer Antworten.
Grüße G
Sub Gültigkeit()
dim sh as Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.Name Like "*_2019" Then 'kann beliebig geändert werden
j = CLng(Right(sh.Name, 4)) 'altes Jahr
sh.Name = Replace(sh.Name, j, j + 1)
'Datengültigkeit entfernen, entfällt im Nachfolgejahr
With sh
.Cells(26, 3).Validation
.delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:= _
xlBetween, Formula1:="=Rüstzeit"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next sh
End Sub
Anzeige