ich suche einen VBA-Code, welcher die Gültigkeitsbeschränkung
für den einen markierten Zellbereich wieder aufhebt !
Soll aber nur innerhalb des Bereiches von B6:AT500 möglich sein !
Kann mir da jemand helfen ?
erik
Sub valid_del()
Dim iCol As Integer
For iCol = Selection.Column To Selection.Column + Selection.Columns.Count - 1
If Columns(iCol).Hidden = False Then
Columns(iCol).Validation.Delete
End If
Next iCol
End Sub
Sub valid_del()
Dim iCol As Integer
For iCol = Selection.Column To Selection.Column + Selection.Columns.Count - 1
If Columns(iCol).Hidden = False Then
Intersect(Columns(iCol), Range("B6:AT500")).Validation.Delete
End If
Next iCol
End Sub
(Intersect ergibt die Schnittmenge von Bereichen)