Hallo, ich such den VBA Code für folgendes Problem: Ich will den Zellschutz für alle Zellen, die hellblau sind aufheben. Wie ich den Schutz aufhebe, weis ich. Nur nicht wie ich die Zellen markiere.
Vielen Dank Sirko
Dim Zelle as Range For each Zelle in Selection Zelle.locked = not zelle.interior.colorindex = 5 next
Den Index anpassen
Ulf
@Ulf
IngoG
hallo Ulf,
Deine Lösung hebt zwar den Zellschutz in allen Zellen mit angegebenem Colorindex auf, setzt aber auch in allen anderen zellen den Schutz.
Wenn das nicht gewünscht ist:
Dim Zelle as Range For each Zelle in Selection if zelle.interior.colorindex = 5 then Zelle.locked = false next
oder Dim Zelle as Range For each Zelle in Selection Zelle.locked = (not zelle.interior.colorindex = 5) and(zelle.locked) next
sollte es auch tun
Gruß Ingo
Anzeige
Stimmt oT
Ulf
o
AW: @Ulf
07.12.2004 12:59:08
sirko
Vielen Dank, es funkioniert.
Sirko
Danke für die Rückmeldung oT
IngoG
.
AW: Farbindex, markieren
07.12.2004 11:31:47
Harald
Hallo Sirko,
if range("a1").interior.colorindex = then
colorindex in vba Hilfe suchen
Gru? Harald