Spaltennummer nach Excel-Spaltenstring umwandeln.

[Blup]

Die hab ich schon längere Zeit im Einsatz:

Delphi-Quellcode:

function GetColName(ACol: Integer): string;
begin
  ACol := ACol - 1;
  Result := Chr(Ord('A') + (ACol mod 26));
  if ACol >= 26 then
    Result := GetColName(ACol div 26) + Result;
end;

Die kleinste Spalte hat die Nummer 1.