Forum: Programmieren allgemein
by Nekromus,
14. Jun 2019
Das Problem habe ich jetzt gelöst. Vielen lieben Dank an euch alle.
Forum: Programmieren allgemein
by Nekromus,
13. Jun 2019
Genau. Das habe ich ja durch
serie.XValues := '=''Sued_Ost''!C3:C10';
serie.Values := '=''Sued_Ost''!D3:D10';
gemacht. Das wäre eigentlich nur eine Datenreihe.
Trotzdem hat er alle drin.
Forum: Programmieren allgemein
by Nekromus,
13. Jun 2019
Ok. Ich habe eine Excel mit recht vielen Werten. Möchte aber nur ausgewählte Spalten anzeigen lassen. Wie kann ich das dann machen?
Ich dachte den Bezug hätte ich nur durch
serie.XValues := '=''Sued_Ost''!C3:C10';
serie.Values := '=''Sued_Ost''!D3:D10';
festgelegt.
Forum: Programmieren allgemein
by Nekromus,
13. Jun 2019
Bitte entschuldigt den 'Spam'.
Das 'Sued_Ost' musste ich natürlich durch den richtigen Worksheet Namen ersetzen. Jetzt habe ich das Problem, dass das Diagramm trotzdem alle Daten aus
for I := 1 to 20 do begin
Excel.Sheets.Cells.value := I;
end;
for I := 1 to 20 do begin
Excel.Sheets.Cells.value := I+30;
Forum: Programmieren allgemein
by Nekromus,
12. Jun 2019
Lieben Dank für die Antworten.
Die Typbibliotheken habe ich schon. (siehe Screenshot RegTypbliotheken).
Die Packages konnte ich auch installieren (siehe Screenshots Komponenten installiert, installierte Packages).
Trotzdem habe ich keinerlei Office Komponenten in der Tool-Palette ....wie z.b TExelchart.
Forum: Programmieren allgemein
by Nekromus,
11. Jun 2019
Ich bin wieder zurück :)
Auf die Excel-Daten kann ich mit activesheet.cells(a,b) zugreifen und mir die Daten auch anzeigen lassen über eine Message.
Zuweisungen an die Series funktionieren nicht. Ich benutze Delphi XE2. Das soll wohl ein XE2 Problem sein.
Etwas Interessantes:
überwachungsvariablestring:=ser.Formula;
Forum: Programmieren allgemein
by Nekromus,
4. Jun 2019
for i:= 1 to Excel.Worksheets.Count do begin
ws:= Excel.Worksheets as _Worksheet;
if IsDataWorksheet(ws) then begin
spalteFlow:= FindeSpalte(ws, FlowStr);
spalteValue:= FindeSpalte(ws, ValueStr);
if (spalteFlow > 0) and (spalteValue > 0) then begin
zeilen:= Min(ZaehleZeilen(ws, SpalteFlow), ZaehleZeilen(ws, SpalteValue));
if Zeilen > 0 then...
Forum: Programmieren allgemein
by Nekromus,
4. Jun 2019
Hallo hoika,
die Makroaufzeichnung habe ich mal als Screenshot angehängt. Da gibt es keine Unterschiede. Mein Screenshot von RangeToString stimmt ja überein (in Delphi).
@Chemiker,
hast du ein Tutorial zur späten Bindung für mich?
Lieben Dank
Forum: Programmieren allgemein
by Nekromus,
3. Jun 2019
Liebe Community,
Ich habe folgendes Problem:
mit der Verwendung von Office 365 funktioniert mein Code nicht mehr. Mit Excel 2010 funktioniert alles einwandfrei.
Das Problem habe ich bereits identifiziert. Die Series mit den XValues und den Values ist leer bei Verwendung von Office365.
pts:= ser.Points(EmptyParam) as Points;
überwachungsvariable:=pts.Count; //= 0 Keine Werte...