Spaltennummer nach Excel-Spaltenstring umwandeln.

[Jumpy]

Wenn's in Delphi berechnet werden soll, vllt. so ungefähr:

- Wenn n<=26 dann CHR(64+n)
- Wenn n<=26*26 dann CHR(64+(n div 26))+CHR(64+(n mod 26))

[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.

[Jumpy]

Wobei es, wenn ich mich gerade nicht verdenke, glaub ich heißen müsste:

result := chr(65+nummer mod 26) + result; und man muss an den Grenzfällen aufpassen, z.B. n=26.
Das geht dann in die Hose.

[DeddyH]

Wenn die 1 ein 'A' sein soll, müssen 64 addiert werden und nicht 65. Außerdem wird es vermutlich Probleme geben, wenn Nummer glatt durch 26 teilbar ist, aber das ließe sich mit einem Schreibtischtest herausfinden.

[Dejan Vu]

Zitat von DeddyH:

Wenn die 1 ein 'A' sein soll, müssen 64 addiert werden und nicht 65. Außerdem wird es vermutlich Probleme geben, wenn Nummer glatt durch 26 teilbar ist, aber das ließe sich mit einem Schreibtischtest herausfinden.

Alter Schwede. Totaler murks

Also: 0=>A, 1=>B .... Ich korrigiere...

[baumina]

Zitat von Dejan Vu:

Delphi-Quellcode:

Var
  result : string;

Begin
  return result;
end;

Bist du sicher dass das Delphi ist

[DeddyH]

Ich denke, es ging ihm eher um die Vorgehensweise als um funktionierenden Out-of-the-box-Code.

[bernau]

Zitat von DeddyH:

Ich denke, es ging ihm eher um die Vorgehensweise als um funktionierenden Out-of-the-box-Code.

Danke an alle. Habe mir schon eine "Quick & Dirty"-Funktion geschrieben. Wobei die vorschläge Eleganter sind und ich diese noch verwenden werde.

@DeddyH: Ne, auf die Vorgehensweise bin ich selber gekommen. Mir ist es aber schon öfter passiert, daß ich eine Funktion geschrieben habe, die es schon

* in der RTL gibt
* in den Jedis gibt
* sonstwo gibt.

Grade wenn es in der RTL eine Funktion schon gibt, dann möchte ich diese auch verwenden. Aber wie ich oben schon sagt. Wald -> Bäume ->

[DeddyH]

Mit "ihm" war Dejan Vu gemeint, ich bezog mich dabei auf bauminas Einwand bzgl. Delphi-Code.

[bernau]

Wer denn auch mal die Lösung braucht. Habe mal aus den Vorschlägen eine Funktion gebastelt. Für die Spalten "A" bis "ZZ".

Delphi-Quellcode:

function GetSpreadsheetColname(aIndex: Integer): string;
begin
  if not InRange(aIndex, 0, 701) then
    raise Exception.Create('GetSpreadsheetColname -> Index out of range (0-701): ' + IntToStr(aIndex));

  Result := chr(65 + aIndex mod 26);
  aIndex := aIndex div 26;
  if aIndex > 0 then
    Result := chr(64 + aIndex) + Result;
end;