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.
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... :-)
Gruss
Thomas
--
## Marketing deutschsprachiges Projekt
## http://de.openoffice.org - www.openoffice.org
## Vorstand OpenOffice.org Deutschland e.V.
## Mitglieder willkommen: www.OOoDeV.org
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
