Fortlaufende Nummer generieren

[komma4]

siehe On click in OpenOffice


War es das Gesuchte?

[Charly]

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: Alles auswählen

Sub FortlaufendeNummer()

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

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

End Sub

Gruß
Charly

[Ironzwerg]

Hi,

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

Code: Alles auswählen

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

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

[Charly]

Hallo Ironzwerg!

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

Code: Alles auswählen

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

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

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.

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

[Charly]

Hallo Castro!

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

viewtopic.php?f=2&t=22050

Gruß
Charly