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.

[bernau]

Zitat von Blup:

Die hab ich schon längere Zeit im Einsatz:

Leider zu spät

[Dejan Vu]

Delphi-Quellcode:

function XlsCol(col : integer) : String;
begin
  Assert (col>0,'Col must be > 0 ');

  result :='';
  repeat
    result := chr (65 + (col - 1) mod 26]+result;
    col := (col - 1) div 26;
  until col=0;
end;

So gehts für alle Integer, glaube ich zumindest.

[Blup]

Ein schönes Beispiel das man jede Rekursion auch als Iteration darstellen kann oder umgekehrt.
Ich würde die Abbruchbedingung vorher testen, dann gibts auch kein direktes Problem wenn ein Wert <= 0 übergeben wird.
Und die Subtraktion nur einmal.

Delphi-Quellcode:

function XlsCol(col : integer) : String;
begin
  Assert(col > 0, 'Col must be > 0');

  Result := '';
  while col > 0 do
  begin
    col := col - 1;
    Result := chr(65 + col mod 26] + Result;
    col := col div 26;
  end;
end;

[Dejan Vu]

Rekursion?

[Chemiker]

Hallo bernau,

die Spaltenüberschriften müssen aber nicht zwingend mit Buchstaben angezeigt werden. Wenn man in Excel (z.B.: Excel 2007) unter [Excel-Optionen][ Formeln] „Z1S1 – Bezugsart “ einen Hacken setzt, so werden die Spalten als Zahlen angezeigt.

Bis bald Chemiker

[Dejan Vu]

Das ist gemein. Die ganze Arbeit umsonst.

[bernau]

Zitat von Chemiker:

die Spaltenüberschriften müssen aber nicht zwingend mit Buchstaben angezeigt werden. Wenn man in Excel (z.B.: Excel 2007) unter [Excel-Optionen][ Formeln] „Z1S1 – Bezugsart “ einen Hacken setzt, so werden die Spalten als Zahlen angezeigt.

Das ist in meinem Falle Wurscht