BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!
> 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. 🤗
CALC ist die Tabellenkalkulation, die Sie immer wollten.
-
dschones
- Beiträge: 5
- Registriert: So 12. Apr 2015, 14:31
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
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
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
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
Beitrag
von HeritzP » Mi 18. Jul 2018, 17:15
Hallo,
bei mir funktioniert es ohne Probleme.
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 ❤️