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. 🤗

Übernahme eines Excel Makros: wie?

Alles zur Programmierung im LibreOffice.
Shervane
Beiträge: 11
Registriert: Sa 7. Apr 2018, 00:02

Übernahme eines Excel Makros: wie?

Beitrag von Shervane » Sa 7. Apr 2018, 11:34

So, nachdem ich belehrt wurde, daß ich im falschen Unterforum war, daß MS-Konten gut sind usw., erhoffe ich mir hier mal problembezogene Hilfe.

Ich habe einen neuen PC. Office 2013 Installation klappte nicht - nach einem Tag habe ich es aufgegeben.

Also doch wieder zu LO, was fast alles genausogut kann - fast. Denn es hing an einem Makro, weswegen ich zu Office wollte, obwohl mir LO besser gefällt.

Ich habe eine xls, die aus zwei Blättern besteht; nach der Arbeit auf Blatt 1 kopiere ich das auf Blatt 2, wo ich dann ein Makro ausführe, welches mir die Zeilen löscht, die "Leer" sind. Leer bedeutet hier: steht in Spalte A irgendwas, dann ist sie nicht leer.

Das Makro in Excel sah so aus:

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Sub Leerzeilen_loeschen()
Dim lngSpalte As Long
'** Spalte, die auf Leerzeichen geprüft werden soll
lngSpalte = 1
For a = ActiveSheet.Cells(Rows.Count, lngSpalte).End(xlUp).Row To 1 Step -1
If ActiveSheet.Cells(a, 1).Value = "" Then
Rows(a).Delete shift:=xlUp
End If
Next a
End Sub


In LO klappt das natürlich nicht. Wie kriege ich das genau so hin (inklusive Makrobutton) wie in Excel.
Entweder treibt mich Office oder LO in den Wahnsinn - rettet mich ;)
Thx schon mal (und gesucht habe ich schon)

mikele
Beiträge: 1642
Registriert: Mo 1. Aug 2011, 20:51

Re: Übernahme eines Excel Makros: wie?

Beitrag von mikele » Sa 7. Apr 2018, 16:53

Hallo,
an dem Makro sollte es nicht scheitern.

Code: Alles auswählen

Sub zeilen_loeschen

	odoc=Thiscomponent
	otab=odoc.CurrentController.ActiveSheet
	spalte=0
	obereiche= otab.Columns(spalte).queryEmptyCells
	for i=obereiche.count-1 to 0 step -1
		bereichszeilen=obereiche(i).Rows
		bereichszeilen.removeByIndex(0,bereichszeilen.count)
	next	

End Sub
Du weißt, wie eine Schaltfläche eingefügt und mit einem Makro gekoppelt wird?
Andererseits bleibt noch die Frage zu klären, ob es denn unbedingt ein Makro sein muss? Ein Standardfilter würde das gleiche leisten und (einmalig definiert) auch nur einen Klick bedeuten.
Dateianhänge
makro_zeilenlöschen.ods
(11.7 KiB) 184-mal heruntergeladen
Gruß,
mikele

Shervane
Beiträge: 11
Registriert: Sa 7. Apr 2018, 00:02

Re: Übernahme eines Excel Makros: wie?

Beitrag von Shervane » Sa 7. Apr 2018, 19:12

Danke, ich versuche es mal; ich könnte auch die Datei mal hochladen; nur hab ich noch nicht rausgekriegt, wo ...

DavidG
Beiträge: 195
Registriert: Do 22. Mär 2018, 21:41

Re: Übernahme eines Excel Makros: wie?

Beitrag von DavidG » Sa 7. Apr 2018, 20:05

Hallo Shervane,

Datei hochladen:
Datei hochladen.jpg
Datei hochladen.jpg (55.99 KiB) 3889 mal betrachtet
Gruß
David
Gruß

David
___________________
WIN 10 PRO
LO 7.4.5.1 (x64)

Shervane
Beiträge: 11
Registriert: Sa 7. Apr 2018, 00:02

Re: Übernahme eines Excel Makros: wie?

Beitrag von Shervane » Di 10. Apr 2018, 02:01

PATSCH = Hand vor die Stirn knall

So, das Makro von oben hab ich mal probiert, da tut sich garnix.
Einkauf EDEKA - X.xls
(122 KiB) 189-mal heruntergeladen
So, da ist sie. Wie gesagt, wenn in Zellen der Spalte A nichts steht (im rechten Tab), dann soll die weg.
Haut rein, Leutz ;)

mikele
Beiträge: 1642
Registriert: Mo 1. Aug 2011, 20:51

Re: Übernahme eines Excel Makros: wie?

Beitrag von mikele » Di 10. Apr 2018, 11:38

Hallo,

erstens: Wenn du LO nutzen willst, dann speichere die Dateien auch als .ods
zweitens:
So, das Makro von oben hab ich mal probiert, da tut sich garnix.
Wie hast du das gemacht? In der Datei ist das Makro nicht enthalten.
Gruß,
mikele

Shervane
Beiträge: 11
Registriert: Sa 7. Apr 2018, 00:02

Re: Übernahme eines Excel Makros: wie?

Beitrag von Shervane » Di 10. Apr 2018, 14:24

Ja, ne, ich habs von oben reinkopiert, und danach; nix.

mikele
Beiträge: 1642
Registriert: Mo 1. Aug 2011, 20:51

Re: Übernahme eines Excel Makros: wie?

Beitrag von mikele » Di 10. Apr 2018, 16:05

Hallo,
ich habe mal eine .ods daraus gemacht. Es klappt beides (Makro und Standardfilter).
Dateianhänge
einkaufsliste.ods
(64.99 KiB) 194-mal heruntergeladen
Gruß,
mikele

DavidG
Beiträge: 195
Registriert: Do 22. Mär 2018, 21:41

Re: Übernahme eines Excel Makros: wie?

Beitrag von DavidG » Di 10. Apr 2018, 16:07

Hallo Shervane,

Bei mir funktioniert das Makro.

Ich denke, Du weißt noch nicht wie man Makros in LO einbindet.
Calc_Gesamthandbuch_4_1.pdf
In diesem Buch wird alles ab Seite 422 beschrieben.

Wenn Du noch Fragen hast, kein Problem.

Gruß
David
Gruß

David
___________________
WIN 10 PRO
LO 7.4.5.1 (x64)

Shervane
Beiträge: 11
Registriert: Sa 7. Apr 2018, 00:02

Re: Übernahme eines Excel Makros: wie?

Beitrag von Shervane » Mi 11. Apr 2018, 10:22

Klar.

LO verlangte eine JRE-Umgebung bla bla bla, also Java installiert.
Neu gestartet, verlangt es das immer noch, es tut sich weiterhin nichts.

Nachtrag

Nach Ändern der Makrosicherheit geht es jetzt, aber: nach der Schwarzen Johannisbeere in Zeile 11 werden die Zeilen gestaucht; irgendeine Idee, wieso?

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