Chris Epicier schrieb:
Hallo
Ich benutze OOO 3.01. Ich habe diesen Beitrag gelesen:
http://www.ooowiki.de/FortlaufendeRechnungsnummer
Das löst eigentlich haargenau mein Problem, allerdings brauche ich dies für
Calc, nicht Writer
Kann mir jemand helfen, dies für Calc umzusetzen?
Gruss chris
Hallo Chris,
kannst ja mal folgendes Makro testen.
Du musst dir eine Textdatei erstellen mit einem Vorgabewert, ab dem du
möchtest, dass die Leiferscheinnummern beginnen. Z.B. 1000.
Dieser Textdatei gibst du einen Namen deiner Wahl und speicherst sie in
ein Verzeichnis deiner Wahl ab. Vorgabe im Makro ist C:\LiefNr.txt
Falls du die Datei anders benennst oder woanderst abspeicherst - selber
schuld - musst du dann im Makro entsprechend anpassen.
Im Abschnitt ' Initialisierung musst du bei der Variablen sBlattName
statt "Tabelle1" den richtigen Namen deines Tabellenblattes innerhalb
der Anführungsstrichen angeben und bei der Variablen sZellNummer die
richtige Zellposition, an der die LieferscheinNummer eingetragen werden
soll.
Das Makro ist primitiv, fängt keine Fehler ab und somit ausbaufähig :-)
Ich hoffe das hilft dir weiter
Gruß Uwe
Sub LiefNummerEinfuegen
' --------------- Variablendeklaration --------------------
Dim oDoc AS Object , oTabelle AS Object , oZelle AS Object
Dim iDateiNummer AS Integer
Dim sZeile AS String
Dim sDateiname AS String
Dim iLiefNummer AS Integer
Dim sZellNummer AS String
Dim sBlattName AS String
' --------- Initialisierung -------------------------------
oDoc = ThisComponent
sBlattName = "Tabelle1" ' individuell anpassen !
sZellNummer = "A1" ' individuell anpassen !
' --------- Auslesen der letzten LieferscheinNummer --------
sDateiname = "C:\LiefNr.txt" ' individuell anpassen !
iDateiNummer = Freefile
Open sDateiname For Input AS iDateiNummer
Line Input #iDateiNummer, sZeile
Close #iDateiNummer
' --------- Erhöhung der Lieferschein Nummer um 1 ----------
iLiefNummer = val(sZeile)
iLiefNummer = iLiefNummer +1
' --------------- Schreiben der LieferscheinNummer --------
iDateiNummer = Freefile
Open sDateiname For Output AS #iDateiNummer
Print #iDateiNummer, str(iLiefNummer)
Close #iDateiNummer
' --------- LieferscheinNummer in Zelle übertragen ---------
oTabelle = oDoc.getSheets().getByName(sBlattName)
oZelle = oTabelle.getCellRangeByName(sZellNummer)
oZelle.Value = iLiefNummer
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
