404 error: File not found | PSN: The_Bash
Dat kan alleen met een VBA macro.
Lees excel cellen op kleur sorteren/optellen eens door voor meer info.
Lees excel cellen op kleur sorteren/optellen eens door voor meer info.
[ Voor 60% gewijzigd door onkl op 14-03-2006 11:50 ]
Aha, bedankt Onkl. Ik heb de search wel gebruikt maar dit topic niet gevonden. Ik ga weer verder puzzelen. Ik zal mijn bevindingen hier nog even posten
[ Voor 20% gewijzigd door The_Bash op 14-03-2006 12:00 ]
404 error: File not found | PSN: The_Bash
Hier een brok werkende code.
Visual Basic:
Geef aan de eerste inputbox een cel met de goede kleur. Geef aan de tweede box de cellen waarin je wilt zoeken.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Sub Kleurselectie() Dim kleur As Range Dim totaalbereik As Range Dim deelbereik As Range Dim cel As Range Set kleur = Application.InputBox("Selecteer een cel met de te selecteren kleur", "Kleurselectie", , , , , , 8) Set totaalbereik = Application.InputBox("Selecteer het te selecteren vlak", "Kleurselectie", , , , , , 8) Application.ScreenUpdating = False Set deelbereik = kleur For Each cel In totaalbereik If cel.Interior.ColorIndex = kleur.Interior.ColorIndex Then Set deelbereik = Application.Union(deelbereik, cel) End If Next cel deelbereik.Select Application.ScreenUpdating=True End Sub |