Seite 1 von 1
Excel VBA in Open Office Basic ändern
Verfasst: Sa, 02.07.2016 10:04
von carlo50
Hallo!
Nach Umstellung von MS office auf OpenOffice möchte ich ein Teil
aus einem Excel VBA in Open Office Basic Makro einfügen.
Hab leider keine großen Programmierkenntnisse.
Wer kann helfen und den Code in ein OpenOffice-kompatibeln Code ändern?
n1 = 3
Do
If Cells(1, n1)=““ Then Cells(2, (n1 – 1)).Select: GoTo weiter1
n1 = n1 + 1
Loop
Re: Excel VBA in Open Office Basic ändern
Verfasst: Sa, 02.07.2016 14:36
von mikeleb
Hallo,
helfen könnten sicher einige, nur ist das mit so einem Codeschnipsel praktisch unmöglich.
Wichtig wäre, den Rest des Code zu kennen, in den der Schnipsel eingefügt werden soll (davon hängt so einiges ab).
Um das, was ich glaube das du willst, auf dem ersten Tabellenblatt zu tun:
Code: Alles auswählen
Sub Main
odoc=thiscomponent
otab=odoc.sheets(0)
spalte=otab.rows(0).queryemptycells.rangeaddresses(0).startcolumn
ozelle=otab.getcellbyposition(spalte-1,1)
odoc.currentcontroller.select(ozelle)
End Sub
Re: Excel VBA in Open Office Basic ändern
Verfasst: Sa, 02.07.2016 15:23
von carlo50
Danke erst einmal!
hier die Erweiterung
sheets(“gefehlt”).Select
n1 = 3
Do
If Cells(1, n1)=““ Then Cells(2, (n1 – 1)).Select: GoTo weiter1
n1 = n1 + 1
Loop
weiter1:
ActiveCell.Select
Sheets(“Eingabe”).Select
Range(“E2:E11”).Select
Selection.Copy
Sheets(“gefehlt”).Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xIvalues, Operation:=xInone, SkipBlanks:=_
False, Transpose:=False
Sheets("nächsteBlatt"Select
usw.
Re: Excel VBA in Open Office Basic ändern
Verfasst: Sa, 02.07.2016 17:04
von mikeleb
Hallo,
es mag ja sein, dass der Rest funktioniert, sprich unter OpenOffice läuft, aber dieser Code hat in meinen Augen keinen Sinn.
Zunächst wählst du das Blatt "gefehlt" aus, durchsuchst die erste Zeile, um dann eine Zelle in Zeile 2 auszuwählen. Danach wählst du die aktive Zelle (womit die vorangegangene Auswahl hinfällig wird). Dann wählst du das Blatt "Eingabe" und dort den Bereich "E2:E11", womit die vorangegangene Auswahl wieder hinfällig ist etc.
Miene Empfehlung: Wirf' diesen Code komplett weg (er ist Unfug) und verrate, was du eigentlich erreichen willst. Das wird einfacher, kürzer und schneller.