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 ]
Eenmaal in ons leven hebben we de mensen gelukkig willen maken. Dat zullen wij onszelf nooit vergeven.
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 |
Eenmaal in ons leven hebben we de mensen gelukkig willen maken. Dat zullen wij onszelf nooit vergeven.