Seite 1 von 1
Leerzeilen automatisch einfügen
Verfasst: Mi, 19.11.2014 16:30
von 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
Re: Leerzeilen automatisch einfügen
Verfasst: Mi, 19.11.2014 16:42
von lorbass
Muss es eine leere Zeile sein, oder reicht es, die Höhe der letzten Zeile zu verdoppeln? Letzteres geht so:
- Zeilen 1 bis 5 selektieren
- Klick auf das Pinselsymbol
- Im Namensfeld (ganz links in der Rechenleiste) A1:AMJ5 ersetzen durch z.B. A6:A9999;
mit Enter abschließen
- Klick (mit dem Pinsel) auf A6
Gruß
lorbass
Re: Leerzeilen automatisch einfügen
Verfasst: Mi, 19.11.2014 16:58
von Ember2012
lorbass hat geschrieben:Muss es eine leere Zeile sein
Ja.
Re: Leerzeilen automatisch einfügen
Verfasst: Mi, 19.11.2014 17:45
von 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
Re: Leerzeilen automatisch einfügen
Verfasst: Mi, 19.11.2014 18:01
von 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
Re: Leerzeilen automatisch einfügen
Verfasst: Mi, 19.11.2014 18:07
von Ember2012
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
Verfasst: Mi, 19.11.2014 18:20
von Karolus
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
Verfasst: Mi, 19.11.2014 18:36
von F3K Total
F1 -> suchen "Neues Menü"
R
Re: Leerzeilen automatisch einfügen
Verfasst: Mi, 19.11.2014 18:57
von Ember2012
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
Verfasst: Mi, 19.11.2014 19:03
von F3K Total
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
Verfasst: Mi, 19.11.2014 19:28
von Karolus
Hach - hab ich glatt vergessen →Extras→Anpassen→Symbolleisten
