Gültigkeitsbeschränkung aufheben

Bild

Betrifft: Gültigkeitsbeschränkung aufheben
von: erik
Geschrieben am: 07.03.2005 20:24:10
Hallo,
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

Bild

Betrifft: AW: Gültigkeitsbeschränkung aufheben
von: Matthias G
Geschrieben am: 07.03.2005 20:28:05
Hallo Erik,
der Makrorekorder sprach:
Selection.Validation.Delete
Gruß Matthias
Bild

Betrifft: AW: Gültigkeitsbeschränkung aufheben
von: erik
Geschrieben am: 07.03.2005 20:44:13
Hallo Mathias,
danke für Deinen Tipp ! Jetzt habe hier ein Code,
welcher die Gültigkeitsbeschränkung für die gesamte Spalte zurücksetzt.

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

Wie kann ich die Bereiche außerhalb von B6:AT500 davon ausschließen ?
erik
Bild

Betrifft: AW: Gültigkeitsbeschränkung aufheben
von: Matthias G
Geschrieben am: 07.03.2005 20:48:33
Hallo 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
            Intersect(Columns(iCol), Range("B6:AT500")).Validation.Delete
         End If
    Next iCol
End Sub
(Intersect ergibt die Schnittmenge von Bereichen)
Gruß Matthias
Bild

Betrifft: AW: Gültigkeitsbeschränkung aufheben
von: erik
Geschrieben am: 07.03.2005 20:56:21
Hallo Mathias,
hab das ganze gleich mal ausprobiert,
funkt Bestens.
Danke !!!
erik
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Gültigkeitsbeschränkung aufheben"