BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Hinter jeder Spalte eine neue einfügen

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
dschones
Beiträge: 5
Registriert: So 12. Apr 2015, 14:31

Hinter jeder Spalte eine neue einfügen

Beitrag von dschones » Fr 6. Jul 2018, 13:36

Hallo,

ich möchte hinter jeder Spalte eine neue einfügen. Ich hab für Excel folgendes Makro gefunden:

Code: Alles auswählen

Sub JedeZweiteSpalte()
    Dim i As Integer

    For i = ActiveSheet.UsedRange.Columns.Count To 2 Step -1
        Columns(i).Insert
    Next i
End Sub
http://www.office-loesung.de/ftopic662419_0_0_asc.php

Funktioniert das auch in Calc? Oder geht es auch einfacher :)

Liebe Grüße sendet Jonas

Lupo
Beiträge: 279
Registriert: Do 11. Okt 2012, 14:22

mit Formel, falls es nur Werte sind

Beitrag von Lupo » Sa 7. Jul 2018, 10:27

Tabelle2.A1: =WENN(REST(SPALTE();2);"";INDEX(Tabelle1.$A:$IU;ZEILE();SPALTE()/2))
MfG Lupo - xxcl.de Win10ProLO6062

HeritzP
Beiträge: 899
Registriert: Mo 9. Dez 2013, 19:08

Re: Hinter jeder Spalte eine neue einfügen

Beitrag von HeritzP » So 8. Jul 2018, 12:44

Hallo,

Code: Alles auswählen

Option VBASupport 1
Option Compatible
Sub JedeZweiteSpalte()
      Dim i As Integer

    For i = ActiveSheet.UsedRange.Columns.Count To 2 Step -1
        Columns(i).Insert
    Next i

End Sub
Gruß HeritzP
HeritzP

alles nur geklaut

dschones
Beiträge: 5
Registriert: So 12. Apr 2015, 14:31

Re: Hinter jeder Spalte eine neue einfügen

Beitrag von dschones » Mi 18. Jul 2018, 16:47

Oh, ich hab hier noch gar kein Dank ausgesprochen. Tut mir leid für die Verspätung, bin grad in den Finalen meiner Abschlussarbeit.
Vielen Dank Euch beiden! Also die Formel funktioniert einwandfrei, das Macro spuckt mir den BASIC-Laufzeitfehler '91': Objektvariable nicht belegt. Bin grad am Rausfinden, was das bedeutet..
Lieber Gruß, Jonas

HeritzP
Beiträge: 899
Registriert: Mo 9. Dez 2013, 19:08

Re: Hinter jeder Spalte eine neue einfügen

Beitrag von HeritzP » Mi 18. Jul 2018, 17:15

Hallo,

bei mir funktioniert es ohne Probleme.
2 Spalte .ods
(8.69 KiB) 112-mal heruntergeladen
Mit Doppelklick wird das Makro gestartet.
Zugewiesen unter Tabellenereignisse.




Gruß HeritzP
HeritzP

alles nur geklaut

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten