Attribute VB_Name = "udf_xlsColLetter" '------------------------------------------------------------------------------- 'File : udf_xlsColLetter.bas ' Copyright mpl by ERB software ' All rights reserved ' wiki.yaslaw.info/dokuwiki/doku.php/vba/functions/xlsColLetter 'Environment : VBA 2010 + 'Version : 1.0.1 'Name : xlsColLetter 'Author : Stefan Erb (ERS) 'History : 16.06.2014 - ERS - Creation ' 23.06.2014 - ERS - Fehler rund um Z behoben '------------------------------------------------------------------------------- Option Explicit '/** ' * Gibt den Buchstaben-Key für eine ExcelSpalte anhand einer Spaltennummer aus (Beginnend mit 1) ' * ' * spaltencode = clsColLetter(spaltennummer) ' * ' * @param Long Index der Spalte ' * @return String Spaltenkey ' */ Public Function xlsColLetter(ByVal iColumnNumber As Long) As String Const C_ASCII_DELTA = 64 Dim nr As Long: nr = iColumnNumber Do Dim rest As Integer: rest = nr Mod 26 If rest = 0 Then rest = 26 xlsColLetter = Chr(rest + C_ASCII_DELTA) & xlsColLetter nr = Fix((nr - 1) / 26) Loop While nr > 0 End Function