Die letzte gefüllte Zeile finden

[TheMiller]

Also,

ich habe excel geöffnet, eine Mappe geöffnet und Zeilen eingetragen. Jetzt kommt ein Teil in Spalte B, in dem User sagen können was drin stehen soll. Jetzt ist es so, dass der eine Eintrag 4 Zeilen belegt. Und der nächste ausgewählte Eintrag zB. 2 Zeilen bruacht. Damit da immer eine Lücke von einer Zeile entsteht möchte ich die Letzte Zeile auffinden und dann in der nächsten Zeile + einer Zeile Leerraum den nächsten vordefinierten Eintrag eintragen lassen.

Wenn ich das mit festen Zeilennummern mache habe ich ja Absätze, die mal 4 und mal 2 Zeilen groß sind. Das ist mein Problem...

[semo]

wieso belegt ein eintrag 2 bzw 4 zeilen? kannst das nicht alles in eine zeile bringen? mach mal n screenshot...

[TheMiller]

Natürlich ginge es auch in einer Zeile. Doch es kommt auch die Formatierung an.

Es könnte so aussehen:

Druck: 500 Karten 210mm x 180mm, Verpackung Es soll aber so aussehen:

Delphi-Quellcode:

Druck:
500 Karten 210mm x 180mm
incl. Verpackung

So, das ist jetzt eine Vorlage, die der User auswählen kann. Sie hat jetzt 3 Zeilen. Eine andere hat dagegen nur 2 oder 4 Zeilen. Dann habe ich wieder große Lücken.

Ist im Prinzip nur eine Formsache, aber das sollte schon sein... *g*

[semo]

und das muss man alles in excel direkt auswählen können? warum machst du das nicht in deinem delphiporgramm? nimm nen stringgrid, lasse zeilenumbrüche innerhalb einer zelle zu und speicher das dann als xls-Datei ab!

[TheMiller]

Naja,

wollte das eigentlich schon alles in Excel machen, da ich schon das komplette Programm an Excel angeglichen habe. Es kann doch nicht schwer sein, die letzte Zeile auszulesen...

Habe es soweit, dass es sagt: Ungültiger Index... Also muss er doch was probieren. Wie bekomme ich denn den Index heraus??

(Sollte schon in Excel sein)

[TheMiller]

Bin ein Stück weiter. Ich habe jetzt diesen Code:

Delphi-Quellcode:

a:=ExcelWorksheet1.Cells.SpecialCells(xlCellTypeLastCell,EmptyParam).Activate;
ShowMessage(Inttostr(a));

und er zeigt mir immer in der MsgBox -1 an... vielleicht hilft das jemanden...

[semo]

hast du die folgenden units eingebunden?

Code:

OleServer, ExcelXP, ComObj

[TheMiller]

Ja, die Units sind eingebunden.

Ich habe das Problem zwar gelöst, ist aber nicht die feine Art. Wer noch Ideen hat, ich bin offen dafür...

[semo]

wie hast das problem denn "unschön" gelöst?

[Duffy]

Hallo DJ-SPM,
versuch es doch mal so

Delphi-Quellcode:

SelectCell(1, 1);
SelectCurrentRegion;
AnzahlZeilen := Selection.Rows.Count; // Anzahl Zeilen = letzte Zeile
SelectCell(1, 1) // Selektion wieder abwählen

bye
Claus