Spaltennummer nach Excel-Spaltenstring umwandeln.

[Dejan Vu]

Delphi-Quellcode:

Function ExcelSpalte (Nummer : Integer : String;
Var
  result : string;

Begin
  if (nummer<=0) raise new exception.Create('Nummer muß > 0 sein');
  
  result := '';
  repeat
    result := Result+chr(64+nummer mod 26);
    nummer := nummer div 26;
  until nummer = 0;
//   return result; so macht man das in C#, aber ist das C#? Nein. Delphi, also... weg.
end;

Das könnte funktionieren. Es konvertiert einfach eine Dezimalzahl in eine Zahl zur Basis 26, wobei die 'Ziffern' der neuen Zahlenbasis unseren Buchstaben A-Z entsprechen.