Leerzeilen automatisch einfügen

[Ember2012]

Hallo Community!

Ich suche einen einfachen Weg, wie ich nach jeder 5. Zeile automatisch eine Leerzeile einfügen kann. Manuell dauert das zu lange.
Gibt es hier eine einfache Lösung?

Viele Grüße
Ember

[lorbass]

Muss es eine leere Zeile sein, oder reicht es, die Höhe der letzten Zeile zu verdoppeln? Letzteres geht so:

1. Zeilen 1 bis 5 selektieren
2. Klick auf das Pinselsymbol
3. Im Namensfeld (ganz links in der Rechenleiste) A1:AMJ5 ersetzen durch z.B. A6:A9999;
   mit Enter abschließen
4. Klick (mit dem Pinsel) auf A6

Gruß
lorbass

[Ember2012]

Muss es eine leere Zeile sein

Ja.

[F3K Total]

Na,
das geht mit diesem kurzen Makro:

Code: Alles auswählen

Sub S_Leerzeilen
    dim nStartRow as integer
    dim nDeltaRow as integer
    nStartRow =  inputbox ("Erste Leerzeile in Zeile:","Erste Leerzeile",7)
    nStartRow = nStartRow - 1
    nDeltaRow = inputbox ("Nach wievielen Zeilen soll jeweils eine Leerzeile eingefügt werden?","Leerzeilen", 5)
    oSheet = Thiscomponent.Currentcontroller.activeSheet
    oCursor = oSheet.createCursor
    oCursor.gotoendofusedarea(false)
    nEndRow = oCursor.Rangeaddress.EndRow
    nFirstNewRow = int((nEndRow - nStartRow)/nDeltaRow)* nDeltaRow + nStartrow
    oRows = osheet.rows
    for i = nFirstNewRow to nStartRow step (-nDeltaRow)
        oRows.insertByIndex(i,1)
    next i
End Sub

Gruß R

[clag]

hallo F3K Total,

da warst du schneller

ich hätte da noch eine quick and dirty Variante

fix ein Makro aufgezeichnet

5* Cursor runter
1+Zeile einfügen

dieses Makro auf das Tabellenereignis Inhalt geändert gelegt

dann den Cursor in die "erste Zeile" und in einem freien Bereich Backspace gedrückt
so oft wie nötig oder ( auch gedrückt halten ! bei 0 key repet delay vieleicht nicht zu empfehlen)

danach das Tabellenereignis wieder vom Makro befreien

hier was zum testen

fünf_plus_eine_neue.ods

(11.64 KiB) 131-mal heruntergeladen

[Ember2012]

Na,
das geht mit diesem kurzen Makro:

Code: Alles auswählen

Sub S_Leerzeilen
    dim nStartRow as integer
    dim nDeltaRow as integer
    nStartRow =  inputbox ("Erste Leerzeile in Zeile:","Erste Leerzeile",7)
    nStartRow = nStartRow - 1
    nDeltaRow = inputbox ("Nach wievielen Zeilen soll jeweils eine Leerzeile eingefügt werden?","Leerzeilen", 5)
    oSheet = Thiscomponent.Currentcontroller.activeSheet
    oCursor = oSheet.createCursor
    oCursor.gotoendofusedarea(false)
    nEndRow = oCursor.Rangeaddress.EndRow
    nFirstNewRow = int((nEndRow - nStartRow)/nDeltaRow)* nDeltaRow + nStartrow
    oRows = osheet.rows
    for i = nFirstNewRow to nStartRow step (-nDeltaRow)
        oRows.insertByIndex(i,1)
    next i
End Sub

Gruß R

Perfekt, vielen Dank!
Kann ich das Makro evtl. direkt auf die Symbolleiste legen? Das wäre ideal.

[Karolus]

Hallo

Kann ich das Makro evtl. direkt auf die Symbolleiste legen? Das wäre ideal.

Ja, das kannst du machen.

[F3K Total]

F1 -> suchen "Neues Menü"
R

[Ember2012]

Hallo

Kann ich das Makro evtl. direkt auf die Symbolleiste legen? Das wäre ideal.

Ja, das kannst du machen.

Potzblitz! Wirklich!? Da wäre ich niemals nicht drauf gekommen!
Warum kommt von dir eigentlich immer bloß Spam, hm?

[F3K Total]

So macht man sich Freunde!
Ich helfe Dir auf alle Fälle nur zweimal, das erste und das letzte Mal.

[Karolus]

Hach - hab ich glatt vergessen →Extras→Anpassen→Symbolleisten