Hallo
Thomas Krumbein schrieb:
Hey *,
Werner Tietz schrieb:
Hallo Olaf
Olaf Eichhorn schrieb:
Hallo Leute,
ich sehe den Wald vor Lauter Bäumen nicht mehr.
Ich habe eine Tabelle (CALC) mit Daten in jeder Zeile. Nun suche ich
eine Möglichkeit, nach jeder Datenzeile eine Leerzeile einzufügen. Das
kann auch in einer neuen Tabelle sein. Zur Zeit versuche ich es mit
Verschiebung.
Ich hoffe, ich habe mich halbwegs verständlich ausgedrückt.
Ich habs mit folgender Formel geschafft:
=WENN(ISTGERADE(ZEILE(A1));INDIREKT(ADRESSE(GANZZAHL(ZEILE(A1)/2);SPALTE(A1);4;"Tabelle1"));"")
Diese Formel in A1 von Tabelle2 kopieren und auf den entsprechenden
Bereich ziehen.->Gibt dann die Werte von Tabelle1 aus mit Leerzeilen.
Wäre das nicht mit einem Makro einfacher? So hast du die Werte doch
immer noch nicht - sondern Formeln und musst die Werte erneut auslese.
Also bei meinem Test werden die Werte bzw. die Ergebnisse von Formeln
ausgegeben - aber abgesehen davon ist dein Makro die wesentlich
elgantere Lösung ;-)
Das folgende Makro fügt einfach Leerzeilen ein, auf Tabelle 1, beginnend
ab Zeile 1 bis Zeile 20 (also vorher 10 Zeilen). Das kannst du einfach
deinen Bedürfnissen anpassen - und hast eine saubere Lösung:
sub ZeilenEinfuegen
oSheet = thisComponent.sheets(0) 'die erste Tabelle
for i = 1 to 10 '10 Zeilen Daten
oSheet.rows.insertbyindex((i*2)-1),1)
next
end sub
Das ist doch einfacher... :-)
einfacher schon, aber schwerer zu schreiben (für mich) ..
Gruss
Thomas
Gruss Werner
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
