Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Gültigkeitsbeschränkung aufheben

Gültigkeitsbeschränkung aufheben
07.03.2005 20:24:10
erik
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gültigkeitsbeschränkung aufheben
07.03.2005 20:28:05
Matthias
Hallo Erik,
der Makrorekorder sprach:
Selection.Validation.Delete
Gruß Matthias
AW: Gültigkeitsbeschränkung aufheben
07.03.2005 20:44:13
erik
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
Anzeige
AW: Gültigkeitsbeschränkung aufheben
07.03.2005 20:48:33
Matthias
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
Anzeige
AW: Gültigkeitsbeschränkung aufheben
07.03.2005 20:56:21
erik
Hallo Mathias,
hab das ganze gleich mal ausprobiert,
funkt Bestens.
Danke !!!
erik

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige