Kolomnaam?

[Demeter]

Uhhhhhhhhhhhhhhhhhhh, ik krijg het mar niet voor elkaar om alleen de kolomletter weer te geven in een cel.
Een van mijn codes die ik ervoor probeer te gebruiken is:

Sub test()
Dim c As Variant

For Each c In Range("B1:E1")
    If c = Range("G1") Then
        Range("G3") = c.Address
    End If
Next

End Sub

c.Address geeft de kolomnaam en regel ik wil alleen de naam zodat ik deze weer verder kan gebruiken.
Denk dat ik de gehele verkeerde kant op aan het denken ben.

Bedankt alvast.

Groet,
Ferenc

 

[Wigi]

Ferenc

Sub test()
Dim c As Range 'GEEN variant
Dim pl2 As Integer

For Each c In Range("B1:E1")
    If c = Range("G1") Then
        pl2 = InStr(InStr(c.Address, "$") + 1, Right(c.Address, Len(c.Address) - InStr(c.Address, "$")), "$")
        Range("G3") = Mid(c.Address, InStr(c.Address, "$") + 1, pl2 - 1)
    End If
Next

End Sub

Misschien zie ik iers over het hoofd maar ik denk niet dat dit korter kan.

Wigi

 

[Demeter]

Wigi,

Thanks, werkt perfect.
Leek me een simpel gegeven om de kolom letter te voorschijn te halen.
Vandaar dat ik er al niet uit kwam.


Groet,
Ferenc

 

[Wigi]

Wigi,

Thanks, werkt perfect.
Leek me een simpel gegeven om de kolom letter te voorschijn te halen.
Vandaar dat ik er al niet uit kwam.

Groet,
Ferenc

Graag gedaan.

Zet hem op opgelost aub.

 

[Demeter]

Oeps.

Sorry, staat nu op opgelost

Groet,
Ferenc

 

[Spiderman]

Misschien zie ik iers over het hoofd maar ik denk niet dat dit korter kan.

Kan wel iets korter

Sub test()
Dim c As Range 'GEEN variant
Dim pl2 As Integer

For Each c In Range("B1:E1")
    If c = Range("G1") Then
        Range("G3") = Chr$(c.Column + 64)
    End If
Next

End Sub

 

[Wigi]

Klopt Arno, maar ik ging ervan uit dat Range("B1:E1") ook andere kolommen konden zijn. Bv. Range("AA1:AC1").

Wigi

 

[Spiderman]

kolommen konden zijn. Bv. Range("AA1:AC1").

In dat geval heb je helemaal gelijk. Dan is ie niet korter te krijgen.