Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fortlaufende Rechnungsnummer in extra Datei

Fortlaufende Rechnungsnummer in extra Datei
27.04.2004 18:11:34
Zeus
Hallo Leute,

bin ein ziemlicher Excel-Newbie. Brauche deshalb Eure Hilfe bis zum 01.06.2004 (glaub ich)! ;-)
Ich habe drei verschiedene Rechnungsvorlagen hier. Sind alles drei Rechnungen. Die unterscheiden sich nur vom Layout.
Ich hätte gern folgendes:
Wenn ich RG1.xlt öffne, dann soll mir eine fortlaufende Rechnungsnummer angezeigt werden. Schließe ich RG1.xlt wieder soll er automatisch die geänderte RG1.xlt unter C:\bla\AR-00001.xls speicher. Bei jedem öffnen der RG1.xlt sollte das geschehen.
Die Rechnungnummer, die immer automatisch um eins erhöht wird soll unter einer eigenen Datei gespeichert werden, welches die Rechnungsnummern archiviert. Beispiel mit Datum und Uhrzeit.
Extra Datei deshalb, dass ich das selbe Spiel auch mit meinen zwei anderen Rechnungsvorlagen machen kann und die dann auf die extra Datei zugriefen können.
Vielen Dank schon einmal. Ich hoffe das ist möglich.
Greetz,
Zeus

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fortlaufende Rechnungsnummer in extra Datei
27.04.2004 18:36:14
Ulf
"Die Rechnungnummer, die immer automatisch um eins erhöht wird"
Wodurch erhöht wird? Auch eine Automatik braucht einen Auslöser.
Ulf
AW: Fortlaufende Rechnungsnummer in extra Datei
27.04.2004 23:34:50
Zeus
Druch das Öffnen der Excel-Vorlage.
AW: Fortlaufende Rechnungsnummer in extra Datei
28.04.2004 00:15:42
Ulf
Passe!
Ulf
Hans Herber macht's möglich
28.04.2004 00:27:19
Fritz Sanne
Den Code habe ich von meiner CD. Musst Du noch anpassn
Vielleicht kommst Du ja weiter.
Grüße, Fritz
Option Explicit

Sub auto_open()
With Worksheets(2).Range("G10")
.Value = .Value + 1
End With
Worksheets(2).Select
End Sub


Sub RechnungsNummer()
Dim Nr%
Dim ExcelExe$, dName$
dName = Application.Path & "\factura.ini"
Close
On Error Resume Next
Open dName For Input As #1
If Err > 0 Then
Open dName For Output As #1
Print #1, "0"
Close
Open dName For Input As #1
End If
Input #1, Nr
Close
ActiveSheet.Range("G11") = Nr + 1
Open dName For Output As #1
Print #1, Nr + 1
Close
End Sub

Anzeige
AW: Fortlaufende Rechnungsnummer in extra Datei
28.04.2004 00:26:10
Ramses
Hallo
gib mal oben unter "Suche" den Suchbegriff "Rechnungsnummer" ein.
Das hatten wir erst vorgestern und den Code kannst du verwenden.
Gruss Rainer
AW: Fortlaufende Rechnungsnummer in extra Datei
29.04.2004 22:28:32
Zeus
Hallo Leute,
erst einmal vielen Dank für die vielen Antworten.
Nur leider kann ich nicht sehr viel mit den Makros anfangen, da ich um ersten mal damit arbeite. Bitte habt Nachsicht.
@Rainer
Ich weiß ja noch nicht einmal, wo ich Deinen Code einfügen soll. Du sagst danach:

Private Sub Workbook_Open()
Dann kommt Dein Code und zweimal ein End Sub
.
Dann sagt er aber gleich Fehler beim Kompilieren. End Sub erwartet.
Was mache ich falsch? Hast Du vielleicht ne Beispieldatei für mich?
Danke und Grüße,
Zeus
Anzeige

127 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige