[Gelöst]CC: Ausgabe Excel Spalten

Hallo.

Ich versuche meine Mandanten in Excel in Spalten auszugeben.
Hierbei bekomme ich die Fehlermeldung zu Range:

Range.PNG

Hier mein Code zur Ausgabe:

Code:

Spalte:='CDEFGH';


IF EinzelnMand = TRUE THEN BEGIN
    d:=1;
    IF Company.FIND('-') THEN
    REPEAT

        Sheet.Range('FORMAT(Spalte[d])').Font.Bold:=TRUE;
        Sheet.Range('FORMAT(Spalte[d])').Font.Size:=13;
        Sheet.Range('FORMAT(Spalte[d])').Value:=Company.Name;
        d:=d+1;
    UNTIL Company.NEXT(+1)=0;
END;

Sieht jemand das Problem?


Beste Grüße
Christian

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Zuletzt geändert von navCH am 29. November 2016 12:40, insgesamt 1-mal geändert.

Habs dann doch noch rausbekommen:

Code:

Spalte:='CDEFGH';
e:='3';

IF EinzelnMand = TRUE THEN BEGIN
    d:=1;
    IF comp.FIND('-') THEN
    REPEAT

        Sheet.Range(FORMAT(Spalte[d])+e).Font.Bold:=TRUE;
        Sheet.Range(FORMAT(Spalte[d])+e).Font.Size:=13;
        Sheet.Range(FORMAT(Spalte[d])+e).NumberFormat:='@';
        Sheet.Range(FORMAT(Spalte[d])+e).Value:=comp.Name;

        d:=d+1;
    UNTIL comp.NEXT(+1)=0;
END;

MfG