Har fundet følgende funktion, men den virker kun op til 256 / IV
Function ColNo2ColRef(ColNo As Integer) As String If ColNo < 1 Or ColNo > 256 Then ColNo2ColRef = "#VALUE!" Exit Function End If ColNo2ColRef = Cells(1, ColNo).Address(True, False, xlA1) ColNo2ColRef = Left(ColNo2ColRef, InStr(1, ColNo2ColRef, "$") - 1) End Function
Nogen der har en ide til hvordan den kan gøres til uendelig?
Ville egentlig gerne give point til ham der oprindelig har lavet den funktion, men tvivler på han også er her på Eksperten.dk :)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.