---

Hej NG
Er der en funktion i VBA der gør det muligt at returnere bogstaverne på en
kolonne (ex.vis at kolonne 2 hedder B), jeg har luret den der med at
dividere kolonnenummeret med 26 og så udlede bogstaverne fra det. Men nu
overvejer jeg om jeg kan springe over hvor gærdet er lavest?

Bedste hilsner
Bjørn G

---

"Bjørn G" <kool@stadig_tata_stiv.dk> skrev i en meddelelse
news:42cf00fb$0$25703$edfadb0f@dread14.news.tele.dk...
> Hej NG
> Er der en funktion i VBA der gør det muligt at returnere bogstaverne på en
> kolonne (ex.vis at kolonne 2 hedder B), jeg har luret den der med at
> dividere kolonnenummeret med 26 og så udlede bogstaverne fra det. Men nu
> overvejer jeg om jeg kan springe over hvor gærdet er lavest?
>
> Bedste hilsner
> Bjørn G
>

Hej Bjørn

Her er én måde, du kan gøre det på, hvis du har
Excel 2000 eller senere (funktionen Split blev først
implementeret i Excel 2000)

Kolonnebetegnelse = Split(Columns(200).Address(columnabsolute:=False),
":")(1)

En anden mulighed, der virker i alle VBA versioner er:

Dummy = Columns(200).Address(columnabsolute:=False)
Kolonnebetegnelse = Left(dummy, InStr(dummy, ":") - 1)


--
Med venlig hilsen
Leo Heuser

Followup to newsgroup only please.

---

Hej Bjørn.

Prøv dette:

Function ColLetter(ColNumber As Integer) As String
ColLetter = Left(Cells(1, ColNumber) _
.Address(False, False), 1 - (ColNumber > 26))
End Function

I cellen skriver du: =ColLetter(COLUMN())

COLUMN() = kolonne()

Virker i Excel 2003, UK.
--
Med venlig hilsen
Jørgen Bondesen