Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Gültigkeitsbeschränkung aufheben"
Blattschutz aufheben Bezüge auf Namen in anderen Mappen aufheben
Blattschutz für eine Serie von Tabellen setzen und aufheben Blattschutz aufheben, Daten eintragen, Blattschutz setzen
Blattschutz mit und ohne Passwort aufheben und setzen Blattschutz für alle Arbeitsblätter setzen oder aufheben