Leere Zellen in gleichem Abstand in Spalte einfügen

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

Bommel
**
Beiträge: 25
Registriert: Di, 01.12.2009 18:12

Leere Zellen in gleichem Abstand in Spalte einfügen

Beitrag von Bommel » Do, 04.07.2019 19:17

Hallo,

ich möchte in einer Tabellenspalte nach jeder n-ten Zelle 2 oder mehr leere Zellen einfügen. In der Tabelle im Anhang ist in Spalte B zu sehen, wie das Ergebnis aussehen soll. Es sollen dabei aber nur in einer ausgewählten Spalte Zellen eingefügt werden, d. h. keine ganzen Zeilen. Geht das mit einer Formel?
Ich habe hier: How to Insert Blank Rows Using a Formula in Google Sheets - leider nicht für Calc - gefunden was ich suche (siehe auf der Webseite die erste Tabelle von oben). Kann man die erste Formel (mit Vlookup) für Calc umbauen? Außerdem habe ich hier: How to insert empty cells between non-empty cells in the entire column ein Makro gefunden, das aber nach jeder Zelle nur 1 leere Zelle einfügt. Kann man das so ändern, dass nach jeder Zelle 2 Zellen eingefügt werden?

Freundliche Grüße
Dateianhänge
Leere Zellen einfügen.ods
(16.95 KiB) 34-mal heruntergeladen

Mondblatt24
*****
Beiträge: 496
Registriert: So, 14.05.2017 16:11

Re: Leere Zellen in gleichem Abstand in Spalte einfügen

Beitrag von Mondblatt24 » Fr, 05.07.2019 08:55

Hallo,
siehe hier.

Gruß Peter
Win.10 (x64) ▪ LO 6.2.8 (x64) ▪ AOO Portable 4.1.6
Fragen, die zur Zufriedenheit beantwortet wurden, bitte im Betreff des Eröffnungsposts mit dem Zusatz [GELÖST] versehen. Anleitung

paljass
******
Beiträge: 721
Registriert: Do, 25.10.2012 07:25

Re: Leere Zellen in gleichem Abstand in Spalte einfügen

Beitrag von paljass » Fr, 05.07.2019 11:59

Hallo Peter,
in deinem Link geht es um Zeilen, Bommel will aber Zellen einfügen.

Gruß
paljass
EDV ist wie U-Boot fahren - machst du ein Fenster auf, fangen die Probleme an.

Mondblatt24
*****
Beiträge: 496
Registriert: So, 14.05.2017 16:11

Re: Leere Zellen in gleichem Abstand in Spalte einfügen

Beitrag von Mondblatt24 » Fr, 05.07.2019 12:34

Hallo,
für mich sieht es so aus wie Bommel es haben wollte.
Oder sollten die Zellen in Spalte A eingefügt werden?

Gruß Peter
Dateianhänge
Leere Zellen einfügen.ods
(9.66 KiB) 36-mal heruntergeladen
Win.10 (x64) ▪ LO 6.2.8 (x64) ▪ AOO Portable 4.1.6
Fragen, die zur Zufriedenheit beantwortet wurden, bitte im Betreff des Eröffnungsposts mit dem Zusatz [GELÖST] versehen. Anleitung

Bommel
**
Beiträge: 25
Registriert: Di, 01.12.2009 18:12

Re: Leere Zellen in gleichem Abstand in Spalte einfügen

Beitrag von Bommel » Fr, 05.07.2019 19:43

Hallo,
vielen Dank Peter!
Die Formel unter dem Link funktioniert genau richtig. Eine Hilfsspalte, in der die Daten ohne Leerzellen stehen, stört nicht.
Ich habe das Makro so geändert, dass damit auch jeweils zwei Zellen einfügt werden.

@paljass: Es werden mit dem Makro wie auch mit der Formel von excelformeln.de nur Zellen eingefügt, keine Zeilen.
Wie das bei den Google Sheets ist, weiß ich nicht. Da ist zwar hauptsächlich von Zeilen die Rede,
aber auf der Abbildung sieht es so aus, als ob nur Zellen eingefügt werden.
Der Autor unterscheidet vielleicht nicht zwischen Zellen und Zeilen, denn an einer Stelle schreibt er "cells/rows".

Freundliche Grüße und vielen Dank!

Makro:

Code: Alles auswählen

rem -- Quelle: https://ask.libreoffice.org/en/question/8436/how-to-insert-empty-cells-between-non-empty-cells-in-the-entire-column/
rem -- Im Makro hier gegenüber dem Original-Makro gemachte Änderungen:
rem -- Alle Zeilen in denen args4 vorkommt, wurden hinzugefügt,
rem -- damit nach jeder Zeile 2 leere Zellen eingefügt werden.
rem -- Ursprünglich wurde nach jeder Zeile nur eine leere Zelle eingefügt.
rem -- Außerdem wurde args3(0).Value = 2 in args3(0).Value = 3 geändert.

sub SpacerMacro
rem -- This macro will Insert/ShiftCellsDown to space out a column of cells 
rem -- Run the macro beginning with the first cell of the column selected.
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1 as integer
dim args2(0) as new com.sun.star.beans.PropertyValue
dim args3(1) as new com.sun.star.beans.PropertyValue
dim args4(0) as new com.sun.star.beans.PropertyValue

args2(0).Name = "Flags"
args2(0).Value = "V"

args3(0).Name = "By"
args3(0).Value = 1
args3(1).Name = "Sel"
args3(1).Value = false

args4(0).Name = "Flags"
args4(0).Value = "V"

rem --- Need to shift down one cell initially before inserting
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args3())

rem --- After that, it needs to shift down 2 cells each time, 
rem --- the one it just inserted and the the next non-empty one.
args3(0).Value = 3

rem ---- CHANGE THE "to " NUMBER TO SUIT YOUR NUMBER OF ROWS TO SPACE
for args1= 1 to 50
dispatcher.executeDispatch(document, ".uno:InsertCell", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:InsertCell", "", 0, args4())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args3())
next args1

end sub

Antworten