OpenOffice.info

Hallo Castro!

Guck mal folgenden Thread an. Da ist das Thema auch behandelt worden.

http://de.openoffice.info/viewtopic.php?f=2&t=22050

Gruß
Charly

Hallo Ironzwerg!

[quote="Ironzwerg"]Hi,
mir ist die Semantik zwar nicht ganz klar, aber du musst ja nur noch folgende Zeile drunter hängen

[code]Blatt.getCellRangeByName("A1").value = Blatt.getCellRangeByName("A1").value + 1[/code]
[/quote]

Mir ist klar, dass man dadurch den Wert von A1 ändern kann. Aber Castro hat geschrieben:

[quote="castro"]
ich möchte eine fortlaufende Nummer generieren, ich dachte vielleicht mit einer Schaltfläche. Wenn ich auf die Schaltfläche drücke soll er aus einer Zelle z.B. A1 den Wert auslesen 1 dazuzählen und in Zelle b14 schreiben.
[/quote]

Er schreibt nichts davon, dass das Makro die Zelle A1 verändern soll. Deshalb war ich erstaunt über seine Vorgabe. Für eine weitergehende Programmierung brauche ich noch mehr Angaben.

Gruß
Charly

Blatt.getCellRangeByName("A1").value = Blatt.getCellRangeByName("A1").value + 1

Hi,

mir ist die Semantik zwar nicht ganz klar, aber du musst ja nur noch folgende Zeile drunter hängen

[code]Blatt.getCellRangeByName("A1").value = Blatt.getCellRangeByName("A1").value + 1[/code]

Somit änderst du auch die Zelle A1, sprich B14 und A1 sind immer gleich.
Du kannst auch eine ausgeblendete Zelle nehmen und dort die aktuelle Nummer speichern und immer um 1 erhöhen und diesen Wert in die Zelle B14 schreiben.


Gruß

Ironzwerg

Sub FortlaufendeNummer()

Dok = ThisComponent
Controller = Dok.getCurrentController()
Blatt = Controller.ActiveSheet

Blatt.getCellRangeByName("B14").value = Blatt.getCellRangeByName("A1").value + 1

End Sub

Hallo!

Für deine Vorgabe ist das Programm relativ einfach. Mir ist nur nicht ganz klar, wie du damit eine Fortlaufende Nummer erzeugen willst, denn solange sich der Ausgangswert in Zelle A1 nicht ändert, ändert sich auch das Ergebnis in B 14 nicht.
Aber hier der Code:

[code]
Sub FortlaufendeNummer()

Dok = ThisComponent
Controller = Dok.getCurrentController()
Blatt = Controller.ActiveSheet

Blatt.getCellRangeByName("B14").value = Blatt.getCellRangeByName("A1").value + 1

End Sub
[/code]

Gruß
Charly

siehe [url=http://de.openoffice.info/viewtopic.php?f=2&t=21343&p=91433]On click in OpenOffice[/url]


War es das Gesuchte?