littlepete
Well-known Member
- Joined
- Mar 26, 2015
- Messages
- 503
- Office Version
- 365
- Platform
- Windows
hallo
in mijn kolom a heb ik een indeling staan:
1.
1.1.
...
14.5.3.6
...
18.3.2.3.4.5
...
het lukt mij om elk onderdeel op te slaan in level1, level2, level3 ...
wat mij niet lukt is het filteren: hij filtert wel op het eerste niveau, maar niet op de volgende...
mijn idee is te werken met een hulpkolom:
filteren op niveau 1, markeren; filter wissen;
filteren op niveau 2, en zo voort ...
ik vraag me af waar de fout zit ? ik heb immers copy paste gedaan en enkel de juiste levels aangepast ...
dit is wat ik heb:
ActiveSheet.Range("rngindeling").AutoFilter Field:=1
Selection.AutoFilter Field:=Range("rngindeling").Cells(2, 1).Column, _
Criteria1:=levelx, Operator:=xlAnd
Set rngfound = Cells.Find(levelx, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)
MsgBox "levelx is hier : " & levelx
markeer
toonselectie
MsgBox "niveau 1"
' ===============================================================
ActiveSheet.Range("rngindeling").AutoFilter Field:=1
Selection.AutoFilter Field:=Range("rngindeling").Cells(2, 1).Column, _
Criteria1:=level1, Operator:=xlAnd
Set rngfound = Cells.Find(level1, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)
MsgBox "levelx is hier : " & level1
markeer
toonselectie
MsgBox "niveau 2"
If aantalnivos > 2 Then GoTo resultaat
in mijn kolom a heb ik een indeling staan:
1.
1.1.
...
14.5.3.6
...
18.3.2.3.4.5
...
het lukt mij om elk onderdeel op te slaan in level1, level2, level3 ...
wat mij niet lukt is het filteren: hij filtert wel op het eerste niveau, maar niet op de volgende...
mijn idee is te werken met een hulpkolom:
filteren op niveau 1, markeren; filter wissen;
filteren op niveau 2, en zo voort ...
ik vraag me af waar de fout zit ? ik heb immers copy paste gedaan en enkel de juiste levels aangepast ...
dit is wat ik heb:
ActiveSheet.Range("rngindeling").AutoFilter Field:=1
Selection.AutoFilter Field:=Range("rngindeling").Cells(2, 1).Column, _
Criteria1:=levelx, Operator:=xlAnd
Set rngfound = Cells.Find(levelx, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)
MsgBox "levelx is hier : " & levelx
markeer
toonselectie
MsgBox "niveau 1"
' ===============================================================
ActiveSheet.Range("rngindeling").AutoFilter Field:=1
Selection.AutoFilter Field:=Range("rngindeling").Cells(2, 1).Column, _
Criteria1:=level1, Operator:=xlAnd
Set rngfound = Cells.Find(level1, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)
MsgBox "levelx is hier : " & level1
markeer
toonselectie
MsgBox "niveau 2"
If aantalnivos > 2 Then GoTo resultaat