Delphi-PRAXiS - Excel,Spaltenkonvertierung, Übergang zu nächstem Buchstaben

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Excel,Spaltenkonvertierung, Übergang zu nächstem Buchstaben (https://www.delphipraxis.net/186507-excel-spaltenkonvertierung-uebergang-zu-naechstem-buchstaben.html)

Excel,Spaltenkonvertierung, Übergang zu nächstem Buchstaben

Hallo zusammen,

Ich lese hier schon eine Weile mit und habe nun die Sufu ordentlich rangenommen, aber entweder nehme ich nicht die richtigen Schlagworte oder es hatte noch keiner das Problem.

Das Problem ist folgendes, ich baue Unittests und habe nun in diesen Tests einen Fehler entdeckt der auf kurz oder lang doch recht kritisch werden kann. Die Funktion die getestet wird konvertiert Spaltennamen in Excel, also A, B, C.. usw, bis Z ist alles tutti. Dann kommen wir aber zu AA, AB, AC.. und der Fehler tritt dann bei AZ auf. Also Spalte 52 müsste (und ist es auch im Excel) AZ sein aber der Debugger sagt: Es ist B. Spalte 53 ist dann aber wie gewollt BA. Gleiches tritt dann natürlich auch bei BZ auf, BZ ist dann B und CZ ist C. Das ist wie bei Nummerierungen im WinExplorer die Zahlen 01, 10, 11 werden zusammen geschoben, ist ja überall ne eins drin(So fühlt es sich zumindest an).

Nun versuche ich eine Lösung zu finden, wie man der Funktion erklären kann das Spalte 52 nicht B sonder AZ ist. Meine Erste Überlegung war: Z dranhängen, funktioniert so aber nicht da er aus dem AZ ja B macht. Dann ging die Überlegung in die Richtung das ich jede 26. Spalte nehme (ab einschließlich 52) und sage das ist nicht B sondern AZ, das ist nicht C sonder BZ und so weiter... (Ich bin mir dessen bewusst das man meinem Gedanken kann schlecht folgen könnte, weiß es aber im moment nicht besser auszudrücken).

Ich weiß nicht von welcher Seite ich das Pferd aufsatteln soll :) In welche Richtung muss ich denken, damit ich einen Weg finde dem Compiler zu sagen das die Spaltenübergänge ein Z haben und nicht den zuletzt verwendetetn Buchstaben?

Hier noch die Funktion:

Delphi-Quellcode:

			function MS_EXCEL_ConvertColumn(AColumn: Integer): String;

begin

  Result := '';

  while AColumn > 0 do

  begin

    if AColumn <= 26 then

    begin

      Result := Result + Chr(AColumn + 64);

      Dec(AColumn, 26);

    end

    else

    begin

      Result := Result + Chr((AColumn -27) div 26 + 65);      // Mit dieser umgeschrieben Zeile habe ich schon mal bei 'AZ' nur A statt B, jetzt fehlt mir noch das Z dahinter

      AColumn := AColumn mod 26;

    end;

  end;

Diese Funktion wurde nicht von mir geschrieben, ich teste sie nur und suche nach Fehlern, will sie aber nun abändern da Fehler keineswegs ignoriert werden sollten :)

LG

AW: Excel,Spaltenkonvertierung, Übergang zu nächstem Buchstaben

Im Falle von 52 und aller anderen vielfachen von 26 ist AColumn mod 26 = 0 und das Ganze bricht ab. Mit der folgenden Änderung würde es glaub ich funktionieren:

Delphi-Quellcode:

			function MS_EXCEL_ConvertColumn(AColumn: Integer): String;

begin

  Result := '';

  while AColumn > 0 do

  begin

    if AColumn <= 26 then

    begin

      Result := Result + Chr(AColumn + 64);

      Dec(AColumn, 26);

    end

    else

    begin

      Result := Result + Chr((AColumn -27) div 26 + 65); // Mit dieser umgeschrieben Zeile habe ich schon mal bei 'AZ' nur A statt B, jetzt fehlt mir noch das Z dahinter

      AColumn := AColumn mod 26;

      if AColumn=0 then

        Result:=Result+'Z';

    end;

  end;

Hier bitte aber bedenken, dass das nur bis Spalte ZZ funktioniert (=27*26 Spalten). Excel geht aber mittlerweile bis XFD, d.h. wenn da mal Gefahr besteht, das ihr so richtig viele Spalten braucht, muss die Funktion nochmal verbessert werden.

AW: Excel,Spaltenkonvertierung, Übergang zu nächstem Buchstaben

Suchst Du sowas?

Delphi-Quellcode:

			program ExcelSpalten;

var

        i : Integer;

        k : Integer;

        m : Integer;

        s : String;

begin

  for i := 1 to 256 do begin

    s := '';

    k := i;

    while k > 26 do begin

      m := k mod 26;

      if m = 0 then begin

        s := Chr(m + 64 + 26) + s;

        k := (k div 26) - 1;

      end else begin

        s := Chr(m + 64) + s;

        k := k div 26;

      end;

    end;

    s := Chr(k + 64) + s;

    WriteLn(Format('i = %.3d -> Spaltenname = %s - (k = %.3d)',[i,s,k]));

  end;

end.

(Ist in Pascalscript geschrieben, Syntax für Delphi muss ggfls. angepasst werden.)

Rauskommen tut dieses:

Code:

			i = 001 -> Spaltenname = A - (k = 001)

i = 002 -> Spaltenname = B - (k = 002)

i = 003 -> Spaltenname = C - (k = 003)

i = 004 -> Spaltenname = D - (k = 004)

i = 005 -> Spaltenname = E - (k = 005)

i = 006 -> Spaltenname = F - (k = 006)

i = 007 -> Spaltenname = G - (k = 007)

i = 008 -> Spaltenname = H - (k = 008)

i = 009 -> Spaltenname = I - (k = 009)

i = 010 -> Spaltenname = J - (k = 010)

i = 011 -> Spaltenname = K - (k = 011)

i = 012 -> Spaltenname = L - (k = 012)

i = 013 -> Spaltenname = M - (k = 013)

i = 014 -> Spaltenname = N - (k = 014)

i = 015 -> Spaltenname = O - (k = 015)

i = 016 -> Spaltenname = P - (k = 016)

i = 017 -> Spaltenname = Q - (k = 017)

i = 018 -> Spaltenname = R - (k = 018)

i = 019 -> Spaltenname = S - (k = 019)

i = 020 -> Spaltenname = T - (k = 020)

i = 021 -> Spaltenname = U - (k = 021)

i = 022 -> Spaltenname = V - (k = 022)

i = 023 -> Spaltenname = W - (k = 023)

i = 024 -> Spaltenname = X - (k = 024)

i = 025 -> Spaltenname = Y - (k = 025)

i = 026 -> Spaltenname = Z - (k = 026)

i = 027 -> Spaltenname = AA - (k = 001)

i = 028 -> Spaltenname = AB - (k = 001)

i = 029 -> Spaltenname = AC - (k = 001)

i = 030 -> Spaltenname = AD - (k = 001)

i = 031 -> Spaltenname = AE - (k = 001)

i = 032 -> Spaltenname = AF - (k = 001)

i = 033 -> Spaltenname = AG - (k = 001)

i = 034 -> Spaltenname = AH - (k = 001)

i = 035 -> Spaltenname = AI - (k = 001)

i = 036 -> Spaltenname = AJ - (k = 001)

i = 037 -> Spaltenname = AK - (k = 001)

i = 038 -> Spaltenname = AL - (k = 001)

i = 039 -> Spaltenname = AM - (k = 001)

i = 040 -> Spaltenname = AN - (k = 001)

i = 041 -> Spaltenname = AO - (k = 001)

i = 042 -> Spaltenname = AP - (k = 001)

i = 043 -> Spaltenname = AQ - (k = 001)

i = 044 -> Spaltenname = AR - (k = 001)

i = 045 -> Spaltenname = AS - (k = 001)

i = 046 -> Spaltenname = AT - (k = 001)

i = 047 -> Spaltenname = AU - (k = 001)

i = 048 -> Spaltenname = AV - (k = 001)

i = 049 -> Spaltenname = AW - (k = 001)

i = 050 -> Spaltenname = AX - (k = 001)

i = 051 -> Spaltenname = AY - (k = 001)

i = 052 -> Spaltenname = AZ - (k = 001)

i = 053 -> Spaltenname = BA - (k = 002)

i = 054 -> Spaltenname = BB - (k = 002)

i = 055 -> Spaltenname = BC - (k = 002)

i = 056 -> Spaltenname = BD - (k = 002)

i = 057 -> Spaltenname = BE - (k = 002)

i = 058 -> Spaltenname = BF - (k = 002)

i = 059 -> Spaltenname = BG - (k = 002)

i = 060 -> Spaltenname = BH - (k = 002)

i = 061 -> Spaltenname = BI - (k = 002)

i = 062 -> Spaltenname = BJ - (k = 002)

i = 063 -> Spaltenname = BK - (k = 002)

i = 064 -> Spaltenname = BL - (k = 002)

i = 065 -> Spaltenname = BM - (k = 002)

i = 066 -> Spaltenname = BN - (k = 002)

i = 067 -> Spaltenname = BO - (k = 002)

i = 068 -> Spaltenname = BP - (k = 002)

i = 069 -> Spaltenname = BQ - (k = 002)

i = 070 -> Spaltenname = BR - (k = 002)

i = 071 -> Spaltenname = BS - (k = 002)

i = 072 -> Spaltenname = BT - (k = 002)

i = 073 -> Spaltenname = BU - (k = 002)

i = 074 -> Spaltenname = BV - (k = 002)

i = 075 -> Spaltenname = BW - (k = 002)

i = 076 -> Spaltenname = BX - (k = 002)

i = 077 -> Spaltenname = BY - (k = 002)

i = 078 -> Spaltenname = BZ - (k = 002)

i = 079 -> Spaltenname = CA - (k = 003)

i = 080 -> Spaltenname = CB - (k = 003)

i = 081 -> Spaltenname = CC - (k = 003)

i = 082 -> Spaltenname = CD - (k = 003)

i = 083 -> Spaltenname = CE - (k = 003)

i = 084 -> Spaltenname = CF - (k = 003)

i = 085 -> Spaltenname = CG - (k = 003)

i = 086 -> Spaltenname = CH - (k = 003)

i = 087 -> Spaltenname = CI - (k = 003)

i = 088 -> Spaltenname = CJ - (k = 003)

i = 089 -> Spaltenname = CK - (k = 003)

i = 090 -> Spaltenname = CL - (k = 003)

i = 091 -> Spaltenname = CM - (k = 003)

i = 092 -> Spaltenname = CN - (k = 003)

i = 093 -> Spaltenname = CO - (k = 003)

i = 094 -> Spaltenname = CP - (k = 003)

i = 095 -> Spaltenname = CQ - (k = 003)

i = 096 -> Spaltenname = CR - (k = 003)

i = 097 -> Spaltenname = CS - (k = 003)

i = 098 -> Spaltenname = CT - (k = 003)

i = 099 -> Spaltenname = CU - (k = 003)

i = 100 -> Spaltenname = CV - (k = 003)

i = 101 -> Spaltenname = CW - (k = 003)

i = 102 -> Spaltenname = CX - (k = 003)

i = 103 -> Spaltenname = CY - (k = 003)

i = 104 -> Spaltenname = CZ - (k = 003)

i = 105 -> Spaltenname = DA - (k = 004)

i = 106 -> Spaltenname = DB - (k = 004)

i = 107 -> Spaltenname = DC - (k = 004)

i = 108 -> Spaltenname = DD - (k = 004)

i = 109 -> Spaltenname = DE - (k = 004)

i = 110 -> Spaltenname = DF - (k = 004)

i = 111 -> Spaltenname = DG - (k = 004)

i = 112 -> Spaltenname = DH - (k = 004)

i = 113 -> Spaltenname = DI - (k = 004)

i = 114 -> Spaltenname = DJ - (k = 004)

i = 115 -> Spaltenname = DK - (k = 004)

i = 116 -> Spaltenname = DL - (k = 004)

i = 117 -> Spaltenname = DM - (k = 004)

i = 118 -> Spaltenname = DN - (k = 004)

i = 119 -> Spaltenname = DO - (k = 004)

i = 120 -> Spaltenname = DP - (k = 004)

i = 121 -> Spaltenname = DQ - (k = 004)

i = 122 -> Spaltenname = DR - (k = 004)

i = 123 -> Spaltenname = DS - (k = 004)

i = 124 -> Spaltenname = DT - (k = 004)

i = 125 -> Spaltenname = DU - (k = 004)

i = 126 -> Spaltenname = DV - (k = 004)

i = 127 -> Spaltenname = DW - (k = 004)

i = 128 -> Spaltenname = DX - (k = 004)

i = 129 -> Spaltenname = DY - (k = 004)

i = 130 -> Spaltenname = DZ - (k = 004)

i = 131 -> Spaltenname = EA - (k = 005)

i = 132 -> Spaltenname = EB - (k = 005)

i = 133 -> Spaltenname = EC - (k = 005)

i = 134 -> Spaltenname = ED - (k = 005)

i = 135 -> Spaltenname = EE - (k = 005)

i = 136 -> Spaltenname = EF - (k = 005)

i = 137 -> Spaltenname = EG - (k = 005)

i = 138 -> Spaltenname = EH - (k = 005)

i = 139 -> Spaltenname = EI - (k = 005)

i = 140 -> Spaltenname = EJ - (k = 005)

i = 141 -> Spaltenname = EK - (k = 005)

i = 142 -> Spaltenname = EL - (k = 005)

i = 143 -> Spaltenname = EM - (k = 005)

i = 144 -> Spaltenname = EN - (k = 005)

i = 145 -> Spaltenname = EO - (k = 005)

i = 146 -> Spaltenname = EP - (k = 005)

i = 147 -> Spaltenname = EQ - (k = 005)

i = 148 -> Spaltenname = ER - (k = 005)

i = 149 -> Spaltenname = ES - (k = 005)

i = 150 -> Spaltenname = ET - (k = 005)

i = 151 -> Spaltenname = EU - (k = 005)

i = 152 -> Spaltenname = EV - (k = 005)

i = 153 -> Spaltenname = EW - (k = 005)

i = 154 -> Spaltenname = EX - (k = 005)

i = 155 -> Spaltenname = EY - (k = 005)

i = 156 -> Spaltenname = EZ - (k = 005)

i = 157 -> Spaltenname = FA - (k = 006)

i = 158 -> Spaltenname = FB - (k = 006)

i = 159 -> Spaltenname = FC - (k = 006)

i = 160 -> Spaltenname = FD - (k = 006)

i = 161 -> Spaltenname = FE - (k = 006)

i = 162 -> Spaltenname = FF - (k = 006)

i = 163 -> Spaltenname = FG - (k = 006)

i = 164 -> Spaltenname = FH - (k = 006)

i = 165 -> Spaltenname = FI - (k = 006)

i = 166 -> Spaltenname = FJ - (k = 006)

i = 167 -> Spaltenname = FK - (k = 006)

i = 168 -> Spaltenname = FL - (k = 006)

i = 169 -> Spaltenname = FM - (k = 006)

i = 170 -> Spaltenname = FN - (k = 006)

i = 171 -> Spaltenname = FO - (k = 006)

i = 172 -> Spaltenname = FP - (k = 006)

i = 173 -> Spaltenname = FQ - (k = 006)

i = 174 -> Spaltenname = FR - (k = 006)

i = 175 -> Spaltenname = FS - (k = 006)

i = 176 -> Spaltenname = FT - (k = 006)

i = 177 -> Spaltenname = FU - (k = 006)

i = 178 -> Spaltenname = FV - (k = 006)

i = 179 -> Spaltenname = FW - (k = 006)

i = 180 -> Spaltenname = FX - (k = 006)

i = 181 -> Spaltenname = FY - (k = 006)

i = 182 -> Spaltenname = FZ - (k = 006)

i = 183 -> Spaltenname = GA - (k = 007)

i = 184 -> Spaltenname = GB - (k = 007)

i = 185 -> Spaltenname = GC - (k = 007)

i = 186 -> Spaltenname = GD - (k = 007)

i = 187 -> Spaltenname = GE - (k = 007)

i = 188 -> Spaltenname = GF - (k = 007)

i = 189 -> Spaltenname = GG - (k = 007)

i = 190 -> Spaltenname = GH - (k = 007)

i = 191 -> Spaltenname = GI - (k = 007)

i = 192 -> Spaltenname = GJ - (k = 007)

i = 193 -> Spaltenname = GK - (k = 007)

i = 194 -> Spaltenname = GL - (k = 007)

i = 195 -> Spaltenname = GM - (k = 007)

i = 196 -> Spaltenname = GN - (k = 007)

i = 197 -> Spaltenname = GO - (k = 007)

i = 198 -> Spaltenname = GP - (k = 007)

i = 199 -> Spaltenname = GQ - (k = 007)

i = 200 -> Spaltenname = GR - (k = 007)

i = 201 -> Spaltenname = GS - (k = 007)

i = 202 -> Spaltenname = GT - (k = 007)

i = 203 -> Spaltenname = GU - (k = 007)

i = 204 -> Spaltenname = GV - (k = 007)

i = 205 -> Spaltenname = GW - (k = 007)

i = 206 -> Spaltenname = GX - (k = 007)

i = 207 -> Spaltenname = GY - (k = 007)

i = 208 -> Spaltenname = GZ - (k = 007)

i = 209 -> Spaltenname = HA - (k = 008)

i = 210 -> Spaltenname = HB - (k = 008)

i = 211 -> Spaltenname = HC - (k = 008)

i = 212 -> Spaltenname = HD - (k = 008)

i = 213 -> Spaltenname = HE - (k = 008)

i = 214 -> Spaltenname = HF - (k = 008)

i = 215 -> Spaltenname = HG - (k = 008)

i = 216 -> Spaltenname = HH - (k = 008)

i = 217 -> Spaltenname = HI - (k = 008)

i = 218 -> Spaltenname = HJ - (k = 008)

i = 219 -> Spaltenname = HK - (k = 008)

i = 220 -> Spaltenname = HL - (k = 008)

i = 221 -> Spaltenname = HM - (k = 008)

i = 222 -> Spaltenname = HN - (k = 008)

i = 223 -> Spaltenname = HO - (k = 008)

i = 224 -> Spaltenname = HP - (k = 008)

i = 225 -> Spaltenname = HQ - (k = 008)

i = 226 -> Spaltenname = HR - (k = 008)

i = 227 -> Spaltenname = HS - (k = 008)

i = 228 -> Spaltenname = HT - (k = 008)

i = 229 -> Spaltenname = HU - (k = 008)

i = 230 -> Spaltenname = HV - (k = 008)

i = 231 -> Spaltenname = HW - (k = 008)

i = 232 -> Spaltenname = HX - (k = 008)

i = 233 -> Spaltenname = HY - (k = 008)

i = 234 -> Spaltenname = HZ - (k = 008)

i = 235 -> Spaltenname = IA - (k = 009)

i = 236 -> Spaltenname = IB - (k = 009)

i = 237 -> Spaltenname = IC - (k = 009)

i = 238 -> Spaltenname = ID - (k = 009)

i = 239 -> Spaltenname = IE - (k = 009)

i = 240 -> Spaltenname = IF - (k = 009)

i = 241 -> Spaltenname = IG - (k = 009)

i = 242 -> Spaltenname = IH - (k = 009)

i = 243 -> Spaltenname = II - (k = 009)

i = 244 -> Spaltenname = IJ - (k = 009)

i = 245 -> Spaltenname = IK - (k = 009)

i = 246 -> Spaltenname = IL - (k = 009)

i = 247 -> Spaltenname = IM - (k = 009)

i = 248 -> Spaltenname = IN - (k = 009)

i = 249 -> Spaltenname = IO - (k = 009)

i = 250 -> Spaltenname = IP - (k = 009)

i = 251 -> Spaltenname = IQ - (k = 009)

i = 252 -> Spaltenname = IR - (k = 009)

i = 253 -> Spaltenname = IS - (k = 009)

i = 254 -> Spaltenname = IT - (k = 009)

i = 255 -> Spaltenname = IU - (k = 009)

i = 256 -> Spaltenname = IV - (k = 009)

Mit 'ner Funktion könnte es so aussehen:

Delphi-Quellcode:

			program ExcelSpalten;

function MS_EXCEL_ConvertColumn(AColumn: Integer): String;

var

        k : Integer;

        m : Integer;

begin

  Result := '';

  k := AColumn;

  while k > 26 do begin

    m := k mod 26;

    if m = 0 then begin

      Result := Chr(m + 64 + 26) + Result;

      k := (k div 26) - 1;

    end else begin

      Result := Chr(m + 64) + Result;

      k := k div 26;

    end;

  end;

  Result := Chr(k + 64) + Result;

end;

var

        i : Integer;

begin

  For i := 1 to 25600 do begin

    WriteLn(MS_EXCEL_ConvertColumn(i));

  end;

end.

AW: Excel,Spaltenkonvertierung, Übergang zu nächstem Buchstaben

Danke, für die schnelle, aufwendige Antwort, auf den ersten Blick sieht das ganz gut aus, muss aber nochmal genauer schauen um deine Variante nun zu verstehen, bin nun 2. Lehrjahr da stehe ich manchmal wie n Ochs vor'm Berg :D

Ich friemel mal n bissl rum und melde mich wenn ich wieder stolper oder es dann so funzt wie ich es gern hätte.

Danke :love:

Edit: OH du gute Güt! Es funtioniert! Bissl zurecht schieben und meine Spalten haben nun ein Z an dem Buchstaben, wenn sie am "Ende" angekommen sind! Vielen Dank.
Edit, die 2.: Ich habe noch 'ne Zeile reingeschrieben die den Negativzahl-Fall abfängt, es sieht so aus, als wenn nun so funktioniert wie sie sollte! :D Danke

LG

AW: Excel,Spaltenkonvertierung, Übergang zu nächstem Buchstaben

Zitat:

Zitat von Jumpy (Beitrag 1315073)

Im Falle von 52 und aller anderen vielfachen von 26 ist AColumn mod 26 = 0 und das Ganze bricht ab. Mit der folgenden Änderung würde es glaub ich funktionieren:

Delphi-Quellcode:

			function MS_EXCEL_ConvertColumn(AColumn: Integer): String;

begin

  Result := '';

  while AColumn > 0 do

  begin

    if AColumn <= 26 then

    begin

      Result := Result + Chr(AColumn + 64);

      Dec(AColumn, 26);

    end

    else

    begin

      Result := Result + Chr((AColumn -27) div 26 + 65); // Mit dieser umgeschrieben Zeile habe ich schon mal bei 'AZ' nur A statt B, jetzt fehlt mir noch das Z dahinter

      AColumn := AColumn mod 26;

      if AColumn=0 then

        Result:=Result+'Z';

    end;

  end;

Jetzt war ich so tief in meinen Hirnwindungen das ich das total überlesen haben, die Sache mit dem Z dranhängen hatte ich auch versucht, aber ich habe anscheinend nicht den richtigen Weg genommen, schaue mir das nochmal genauer an. Dir natürlich auch Danke für die Antwort. :)

LG

AW: Excel,Spaltenkonvertierung, Übergang zu nächstem Buchstaben

Es hat mir keine Ruhe gelassen, deshalb noch 'ne kürzere Variant ;-)

Delphi-Quellcode:

			program ExcelSpalten;

function MS_EXCEL_ConvertColumn(AColumn: Integer): String;

begin

  if (AColumn < 1) or (AColumn > 16384) then begin

    Result := Format('ungültige Spaltenposition (%d)',[AColumn]);

  end else while AColumn > 0 do begin

    if AColumn mod 26 = 0 then begin

      Result  := 'Z' + Result;

      AColumn := AColumn - 1;

    end else begin

      Result  := Chr((AColumn mod 26) + 64) + Result;

    end;

    AColumn := AColumn div 26;

  end;

end;

var

        i : Integer;

begin

  // Spaltenbezeichnungen können von 1 -> A bis 16384 -> XFD vergeben werden.

  for i := 0 to 16385 do WriteLn(MS_EXCEL_ConvertColumn(i));

end.

AW: Excel,Spaltenkonvertierung, Übergang zu nächstem Buchstaben

Zitat:

Zitat von nahpets (Beitrag 1315155)

Es hat mir keine Ruhe gelassen, deshalb noch 'ne kürzere Variant ;-)

Delphi-Quellcode:

			program ExcelSpalten;

function MS_EXCEL_ConvertColumn(AColumn: Integer): String;

begin

  if (AColumn < 1) or (AColumn > 16384) then begin

    Result := Format('ungültige Spaltenposition (%d)',[AColumn]);

  end else while AColumn > 0 do begin

    if AColumn mod 26 = 0 then begin

      Result  := 'Z' + Result;

      AColumn := AColumn - 1;

    end else begin

      Result  := Chr((AColumn mod 26) + 64) + Result;

    end;

    AColumn := AColumn div 26;

  end;

end;

var

        i : Integer;

begin

  // Spaltenbezeichnungen können von 1 -> A bis 16384 -> XFD vergeben werden.

  for i := 0 to 16385 do WriteLn(MS_EXCEL_ConvertColumn(i));

end.

So in dieser Art hab ich es nun auch :D Habe gestern noch den Fall von Negativzahlen und MaxSpalten abgefangen, ich habe zwar keine Ahnung wer so eine breite Tabelle hat aber man weiß ja nie. Darum mache ich ja die Unittests, um auf Grenzen und Fehlerfälle zu prüfen :)̶ ̶̶m̶̶u̶̶s̶̶s̶̶ ̶̶s̶̶t̶̶a̶̶t̶̶t̶̶ ̶̶d̶̶e̶̶m̶̶ ̶̶o̶̶r̶̶ ̶̶n̶̶i̶̶c̶̶h̶̶t̶̶ ̶̶e̶̶i̶̶n̶̶ ̶̶u̶̶n̶̶d̶̶ ̶̶r̶̶e̶̶i̶̶n̶̶?̶̶ ̶̶w̶̶e̶̶i̶̶l̶̶ ̶̶i̶̶n̶̶ ̶̶d̶̶e̶̶i̶̶n̶̶e̶̶m̶̶ ̶̶f̶̶a̶̶l̶̶l̶̶ ̶̶k̶̶a̶̶n̶̶n̶̶ ̶̶i̶̶c̶̶h̶̶ ̶̶d̶̶o̶̶c̶̶h̶̶ ̶̶n̶̶e̶̶g̶̶a̶̶t̶̶i̶̶v̶̶e̶̶ ̶̶z̶̶a̶̶h̶̶l̶̶e̶̶n̶̶ ̶̶e̶̶i̶̶n̶̶t̶̶r̶̶a̶̶g̶̶e̶̶n̶̶ ̶̶o̶̶d̶̶e̶̶r̶̶?̶̶ ̶̶d̶̶3̶̶e̶̶n̶̶k̶̶e̶̶ ̶̶i̶̶c̶̶h̶̶ ̶̶d̶̶a̶̶ ̶̶n̶̶u̶̶n̶̶ ̶̶i̶̶n̶̶ ̶̶d̶̶i̶̶e̶̶ ̶̶f̶̶a̶̶l̶̶s̶̶c̶̶h̶̶e̶̶ ̶̶r̶̶i̶̶c̶̶h̶̶t̶̶u̶̶n̶̶g̶̶,̶̶ ̶̶w̶̶o̶̶r̶̶t̶̶w̶̶ö̶̶r̶̶t̶̶l̶̶i̶̶c̶̶h̶̶?̶

Vergiss das mit dem Und... hatte noch keinen Kaffee und habe die nächste Zeile beim 3.Mal erst realisiert.
LG