'File         : udf_xlsColNumber.bas
'               Copyright mpl by ERB software
'               All rights reserved
'               wiki.yaslaw.info/dokuwiki/doku.php/vba/
'Environment  : VBA 2010 +
'Version      : 1.0.0
'Name         : xlsColNumber
'Author       : Stefan Erb (ERS)
'History      : 23.06.2014 - ERS - Creation
'-------------------------------------------------------------------------------
Option Explicit

'/**
' * Umkehrfunction zu xlsColLetter: Berchent aus einem String-Colmnidex die Position
' *
' * spaltennummer = xlsColNumber(spaltencode)
' *
' * @param  String
' * @retrun Long
'*/
Public Function xlsColNumber(ByVal iColumnLetter As String) As Long
    Const C_ASCII_DELTA = 64
    Dim str As String: str = StrReverse(UCase(iColumnLetter))
    Dim idx As Integer: For idx = 0 To Len(iColumnLetter) - 1
        xlsColNumber = xlsColNumber + 26 ^ idx * (Asc(Mid(str, idx + 1, 1)) - C_ASCII_DELTA)
    Next idx
End Function