Leerzeilen automatisch einfügen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Leerzeilen automatisch einfügen

Re: Leerzeilen automatisch einfügen

von Karolus » Mi, 19.11.2014 19:28

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

Re: Leerzeilen automatisch einfügen

von F3K Total » Mi, 19.11.2014 19:03

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

Re: Leerzeilen automatisch einfügen

von Ember2012 » Mi, 19.11.2014 18:57

Karolus hat geschrieben: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?

Re: Leerzeilen automatisch einfügen

von F3K Total » Mi, 19.11.2014 18:36

F1 -> suchen "Neues Menü"
R

Re: Leerzeilen automatisch einfügen

von Karolus » Mi, 19.11.2014 18:20

Hallo
Kann ich das Makro evtl. direkt auf die Symbolleiste legen? Das wäre ideal.
Ja, das kannst du machen.

Re: Leerzeilen automatisch einfügen

von Ember2012 » Mi, 19.11.2014 18:07

F3K Total hat geschrieben: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.

Re: Leerzeilen automatisch einfügen

von clag » Mi, 19.11.2014 18:01

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

Re: Leerzeilen automatisch einfügen

von F3K Total » Mi, 19.11.2014 17:45

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

Re: Leerzeilen automatisch einfügen

von Ember2012 » Mi, 19.11.2014 16:58

lorbass hat geschrieben:Muss es eine leere Zeile sein
Ja.

Re: Leerzeilen automatisch einfügen

von lorbass » Mi, 19.11.2014 16:42

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

Leerzeilen automatisch einfügen

von Ember2012 » Mi, 19.11.2014 16:30

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

Nach oben