Autonummerering

er løst

Private Function NoToLetters(Value As Long) As String
    Dim i As Long
   
    i = (Value - 1) \ 26
    NoToLetters = Chr$(64 + IIf(i = 0, -32, i))
   
    i = (Value - 1) Mod 26
    NoToLetters = NoToLetters & Chr$(65 + i)
    NoToLetters = Trim$(NoToLetters)
End Function