Extern gespeicherte Zahl in Excel einfügen

Computer: Software & Programmierung Office Software
1

hallo,
ich habe eine Rechnungsvorlage und möchte die Rechnungsnummer sich automatisch erhöhen lassen.
Ich arbeite mit Staroffice Calc. Wie kann ich dieses Problem lösen?
ich hatte gedacht, dass man vllt. eine .txt datei ausliest und dann einfach den Inhalt der datei um 1 erhöht. Beim nächsten Aufruf der Vorlage würde ja dann die um 1 erhöhte Zahl ausgelesen werden.

2

Hallo,
ich weiß nicht, wie du es bewerkstelligen willst, aber eine automatische Erhöhung beim Formularaufruf, wie soll das gehen?
Meine Idee wäre: von Tabelle1 (Formular) einen Bezug auf ein Feld in Tabelle 2 herzustellen. Dort reihst du untereinander die Rechnungsnummern auf (z.B. " =SUMME(C11+1)").
Wenn dann eine Rechnungsnummer „verbrannt“ ist setzt du das Rechnungsdatum, o.a. davor.
Ich hoffe ein wenig geholfen zu haben…

Gruß R.

3

hallo,
ich habe eine Rechnungsvorlage und möchte die

Rechnungsnummer

sich automatisch erhöhen lassen.
Ich arbeite mit Staroffice Calc. Wie kann ich dieses

Problem

lösen?
ich hatte gedacht, dass man vllt. eine .txt datei

ausliest und

dann einfach den Inhalt der datei um 1 erhöht. Beim

nächsten

Aufruf der Vorlage würde ja dann die um 1 erhöhte Zahl
ausgelesen werden.

Hi, mit Calc kenne ich mich nicht aus, bzw. weiß ich
nicht ob es VBA unterstützt.

Für dein Problem gibt es mehrere Lösungsansätze. Jede
davon setzt aber VBA-Kenntnisse voraus.

Die vermutlich einfachste:

  • Öffne die Vorlage
  • Mit Alt+F11 gelangst du in den VBA-Editor
  • Links oben findest du im Projektexplorer
    „DieseArbeitsmappe“, doppelklick darauf
  • Im sich dann öffnenden Modulfenster auf das
    Listenfeld „Allgemein“ klicken und „Workbook“ wählen
  • Daraufin erscheint:

Private Sub Workbook_Open()

End Sub

  • Dazwischen kommt dann diese Anweisung:

Worksheets(„Rechnung“).Range(„a4“) =
Worksheets(„Rechnung“).Range(„a4“) + 1

  • Komplett also:
    Private Sub Workbook_Open()
    Worksheets(„Rechnung“).Range(„a4“) =
    Worksheets(„Rechnung“).Range(„a4“) + 1
    End Sub
  • Die Anweisung muss in einer Zeile stehen, also ohne
    Umbruch.

Bei meinem Beispiel gehe ich davon aus, dass dein
Tabellenblatt „Rechnung“ heißt und die Rechnungsnummer
in Zelle A4 steht. Entsprechend umsetzen.
Bei jedem Öffnen der Mappe wird dann die
Rechnungsnummer um 1 erhöht.

Hoffe konnte helfen
Grüße Bert

4

Hallo.

Tut mir leid, dass ich so spät antworte. Hier hätte ich dir aber auch nicht weiterhelfen können, da Excel nicht zu meinen Stärken gehört. Sorry und alles Gute!

Mathias.