Sonderzeichen Hochkomma '

[ngott2]

Code:

lDummy :=  '=HYPERLINK('+ #39 + getBez(lindex)+ #39 + '!Z22S2;"'+AValue.nummer+'")';
fexcel.ActiveWorkSheet.Cells[fRowIndexProfile,32 + lIndex].Formula  := lDummy;




function getBez (aTabSheetIndex: Cardinal): string;
begin
   case aTabSheetIndex of
      1:
        Result := 'Artikel';
      2 .. 11:
          Result := 'Verbinder' + IntToStr(aTabSheetIndex-1);
      12 .. 21:
        Result := 'Andere-Verbinder ' + IntToStr(aTabSheetIndex-11);
  end;

end;

aValue.Nummer := 16 Zeichen ohne Sonderzeichen