Opgelost Formule via VBA op basis van celwaarde

[Barthop]

Beste,

in bijlage enkele bestanden.
Toen ik versie 1.2 maakte (ook in bijlage), werd in de werklijst de formule geplaatst in een toegevoegde kolom (A "GBD")via vba. Ik had slechts 2 voorwaarden. Of het is "neerlandais" of alle andere. Geen probleem dus. Echter is de lijst nu op met zoveel verschillende taalafkortingen opgebouwd (kolom H) waardoor ik de vba wou uitbreiden. Ergens loopt er iets mis, hij wil de formule niet meer kopiëren in kolom A en ik ben ten einde raad. Kunnen jullie me even helpen én zeggen waar ik de boot in ga?
Alvast bedankt!

 

[AHulpje]

Het kan een beetje korter, zie bijlage. Je kunt ook toe met één "maFormule", die is echter nog niet helemaal juist in deze versie. Maar omdat je de vraag als opgelost hebt gemarkeerd neem ik aan dat de formule nu wel in orde is, dus die kun je opnemen in onderstaande versie.

 

[Barthop]

Beste AHulpje,

bedankt voor je verfijning. De formule had ik inderdaad zelf opgelost. Ik heb een nieuwe vraag geplaatst met als titel : kolom bepalen. Wil je hier naar kijken?
Betreffende je nieuwe vba : kan het zijn dat er een foutje in staat en dat ik bij :

' identifier la colonne crestra(TO DO)
afdelingen = Array("Département", "Afdeling", "Departement", "Crestra")
For Each afdeling In afdelingen
Set b = Rows("1").Find(What:="Département", lookat:=xlWhole)
If Not b Is Nothing Then Exit For

-> Département moet vervangen door afdelingen?

Alvast bedankt!

 

[AHulpje]

Je hebt bijna helemaal gelijk:

Set b = Rows("1").Find(What:=afdeling, lookat:=xlWhole)