Dies ist gut, wenn Sie Anweisungen wie Range("A1") anstelle von Zellen(1,1) verwenden möchten.
Also zum Beispiel ColLetter(1) = A, ColLetter(2) = b,… , ColLetter(100) = CV usw.
3) ColLetter(Spaltennummer) => gibt die Spalte Letter zurück.
Öffentliche Funktion ColLetter(colNumber As Long) As String
Wenn Spaltennummer < 27 Dann
Wenn colNumber = 0 Dann
ColLetter = "Z"
Anders
ColLetter = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", SpalteNummer, 1)
Ende Wenn
Anders
Wenn Spaltennummer < 26 2 + 27 Dann
ColLetter = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR(colNumber / 26), 1)
ColLetter = ColLetter & ColLetter(colNumber Mod 26)
Anders
ColLetter = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", FLOOR((colNumber - 26) / 676), 1)
ColLetter = ColLetter & ColLetter(Spaltennummer - FLOOR((Spaltennummer - 26) / 676) * 676)
Ende Wenn
Ende Wenn
Endfunktion