Kolom vinden in Range via VBA

[davivos]

Goedemiddag,

Ik gebruik voor een export naar XML vanuit Excel, VBA.
Hierin staan een aantal voorwaarden waarbij VBA zoekt naar velden die gevuld zijn. Indien gevuld = export.
Dit werkt op dit moment alleen voor vooraf vastgestelde kolommen:

              If .Range("I" & row.row).Text <> vbNullString Then
                    Set capNode = xmlDoc.CreateElement("capability")
                    Set xmlNodeTmp = xmlDoc.CreateElement("code")
                    xmlNodeTmp.appendChild xmlDoc.createTextNode(.Range("I" & row.row))
                    capNode.appendChild xmlNodeTmp
                    Set xmlNodeTmp = xmlDoc.CreateElement("available")
                    xmlNodeTmp.appendChild xmlDoc.createTextNode(.Range("J" & row.row))
                    capNode.appendChild xmlNodeTmp
                    xmlDoc.getElementsByTagName("capabilities").Item(0).appendChild capNode
                End If

Is het mogelijk om de bepaling van de kolom dynamisch te maken?
Dus indien ik zoek naar een kolom met de naam Test dat dan het resultaat "X" is en dat vul in de range bepaling.

Ik hoop dat jullie een manier weten.

Alvast bedankt.

 

[snb]

Al 4 1/2 jaar op het forum en nog niet bekend met code markeringen (code tags) ??

 

[davivos]

Ik moet schuld bekennen: Vergat de eerste topic te lezen, dit is de eerste keer dat ik een code plaats.
Ik zal hem aanpassen