OpenOffice.info

Vielen lieben Dank

Ganz liebe Grüße

Hier das angekündigte Makro zum einfügen von Leerzeilen (jede zweite Zeile):

Sub S_insert_rows
osheet = thiscomponent.sheets.getbyname("Tabelle1")
orows = osheet.rows
ocursor = osheet.createcursor
ocursor.gotoendofusedarea(False)
nrow = ocursor.rangeaddress.endrow
for i = nrow to 1 step -1 ...

Nein, dazu gab es auch ein Makro in einem anderen Post hier

Ich füge es gleich noch ein. Für Mitmenschen, die ein ähnliches Problem haben, wie ich.

Ich danke Euch von Herzen und wünsche allen noch eine schöne Rest-Woche

Mit diesem Makro funktioniert es:

Sub LeereZellenSuchen()
oSelect=ThisComponent.CurrentSelection
oColumn=oselect.Columns
oRow=oSelect.Rows
For n= 0 To oColumn.getCount-1
For m = 0 To oRow.getCount-1
oCell=oselect.getCellByPosition (n, m)
Select Case oCell.String
Case ""
oCell.String = "ping -n 07 ...

Ich danke Euch allen und werde mich mal durch arbeiten.

Ich wünsche Euch allen einen wundervollen Abend!!!!!

Danke, aber ich habe ja bereits beschriebene Zeilen. Bei dieser Methode klappt es nicht, dass nach jeder beschriebenen Zeile dieselbe Zeile eingefügt wird.

So ist es jetzt:

1. Mein Text in der 1. Zeile
2. Mein Text in der 2. Zeile
3. Mein Text in der 3. Zeile
4. Mein Text in der 4. Zeile ...

Leider weiß ich nicht, was ich mit dem Code anstellen soll. Eine Schritt-für-Schritt-Anleitung wäre sehr hilfreich.
Das Ping dient für eine spätere Batch Datei, die aus der Tabelle entstehen soll.

Herzlichen Dank

Herzlichen Dank schon mal.

Was meinst Du mit nach unten ziehen?

Meine Tabelle hat ca. 4.000 Zeilen.

Es soll einfach nach jeder Zeile automatisch eine Zeile mit dem Text "ping -n 07 127.0.0.1" eingefügt werden bzw. automatisch dupliziert werden.

Vielen Dank

Sehr geehrtes Forum,

ich bin leider totaler Laie und benötige Eure Hilfe.

Ich möchte in OpenOffice Calc nach jeder Zeile den gleichen Satz in die erste Zelle einfügen.

Meine Tabelle beinhaltet zwei beschriebene Spalten.

In jeder zweiten Zeile soll sich der gleiche Text (nämlich "ping -n 07 127.0 ...