Hallo Excel-experts,
Ik ben aan het vogelen in de wereld van Excel en VBA en ben een jaar geleden begonnen met opnemen van acties tot macros.
Zo werk ik met de code cells.find om de waarde van cel A1 te zoeken in een tabel, die bijgewerkt moet worden.
Als de cel met dezelfde waarde is gevonden, wordt deze geactiveerd.
Uit een ander bestand wordt de info gehaald en geplakt achter de geactiveerde cel.
Werkt perfect in een macro binnen een module.
Nu moet ik over naar een sheetmodule (button) en werkt het niet meer.
Dit is de code:
Cells.Find(What:=Sheets("Lijst").Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Wat moet ik veranderen?
Als ik de cells.find regel handmatig uitvoer en deze macroregel oversla, werkt de rest van de sheet module macro perfect.
BVD voor jullie hulp!
MVG,
DjoeZty
Ik ben aan het vogelen in de wereld van Excel en VBA en ben een jaar geleden begonnen met opnemen van acties tot macros.
Zo werk ik met de code cells.find om de waarde van cel A1 te zoeken in een tabel, die bijgewerkt moet worden.
Als de cel met dezelfde waarde is gevonden, wordt deze geactiveerd.
Uit een ander bestand wordt de info gehaald en geplakt achter de geactiveerde cel.
Werkt perfect in een macro binnen een module.
Nu moet ik over naar een sheetmodule (button) en werkt het niet meer.
Dit is de code:
Cells.Find(What:=Sheets("Lijst").Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Wat moet ik veranderen?
Als ik de cells.find regel handmatig uitvoer en deze macroregel oversla, werkt de rest van de sheet module macro perfect.
BVD voor jullie hulp!
MVG,
DjoeZty