Übernahme eines Excel Makros: wie?

[Shervane]

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]

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.

[Shervane]

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

[DavidG]

Hallo Shervane,

Datei hochladen:

Datei hochladen.jpg (55.99 KiB) 5414 mal betrachtet

Gruß
David

[Shervane]

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) 293-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]

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.

[Shervane]

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

[mikele]

Hallo,
ich habe mal eine .ods daraus gemacht. Es klappt beides (Makro und Standardfilter).

[DavidG]

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

[Shervane]

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?