kolomkop in vba

[Jeneroy]

Goede morgen,
Ik heb een macro gemaakt voor Data Entry in het SAP systeem. Het werkt prima.
De data wordt opgehaald uit een template.
Ik heb geprobeerd om onderstaande code te wijzigen zodat ie kijkt naar de kop naam van de kolom en niet naar kolomnummer.

col1 = Trim(CStr(objSheet.Cells(i, 1).Value))

Kan iemand mij helpen.

 

[edmoor]

Zonder voorbeeld is dat lastig.
Je code kijkt nu naar regel i in kolom A.

Het woord Sheet is daar ook niet echt op z'n plek omdat je geen bladnaam meegeeft en dan nog zou het Sheets moeten zijn.

 

[Jeneroy]

Bedankt voor de snelle reactie.
Hier een voorbeeld. ( de template bestaat uit meer dan 50 kolommen) De volgorde van kolommen moet niet uitmaken.

 

[edmoor]

Ik zie geen voorbeeld.

 

[Jeneroy]

hierbij het bestand

 

[edmoor]

Hier zou je voldoende aan moeten hebben:

Sub Jeneroy()
    [COLOR="#008000"]'Koppen[/COLOR]
    Debug.Print Sheets("Blad1").Cells(1, 1), Sheets("Blad1").Cells(1, 2)
    For i = 2 To Cells(1).CurrentRegion.Rows.Count
        [COLOR="#008000"]'Waarden[/COLOR]
        Debug.Print Sheets("Blad1").Cells(i, 1), Sheets("Blad1").Cells(i, 2)
    Next i
End Sub

 

[Jeneroy]

Bedankt weer voor de snelle reactie :thumb:
Ik weet niet of ik de vraag goed heb gesteld.
Wat ik eigenlijk wil is de naam van de kolom in de code en niet kolomnummer. (......Cells(i, "waarde")

 

[edmoor]

Zo dan:

Sub Jeneroy()
    [COLOR="#008000"]'Bepaal kolom[/COLOR]
    Set c = Sheets("Blad1").Range("A1:XFD1").Find("WAARDE1")
        If Not c Is Nothing Then
        For i = 2 To Cells(1).CurrentRegion.Rows.Count
            [COLOR="#008000"]'Waarden[/COLOR]
            Debug.Print Sheets("Blad1").Cells(i, c.Column)
        Next i
    End If
End Sub

 

[Jeneroy]

Top "Edmoor". het werkt. bedankt

 

[snb]

Gebruik Arrays: http://www.snb-vba.eu/VBA_Arrays.html