lösche gültigkeit alle Blätter
30.06.2005 08:51:34
helena
denke mir fehlt nur Kleinigkeit im Code, er läuft nicht wie er soll
a. lösche in allen Blätter die Gültigkeit
b. Markierung wieder aufheben in Blätter sieht unschön aus
Sub clear_gültig_all()
Application.ScreenUpdating = False
Dim I As Integer
For I = Worksheets.Count To 1 Step -1
Cells.Select
With Selection.Validation
.Delete
End With
Next I
Application.ScreenUpdating = True
End Sub
DANKE für Hilfe
gruss helena
Anzeige