Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fortlaufende Rechnungsnummer in extra Datei

Forumthread: 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
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige

Infobox / Tutorial

Fortlaufende Rechnungsnummer in Excel erstellen


Schritt-für-Schritt-Anleitung

Um eine fortlaufende Rechnungsnummer in Excel zu erstellen, benötigst du ein einfaches Makro. Hier sind die Schritte, die du befolgen solltest:

  1. Öffne deine Excel-Vorlage (z.B. RG1.xlt).

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke auf "Einfügen" und wähle "Modul".
  4. Kopiere den folgenden Code in das Modul:

    Sub auto_open()
       With Worksheets(2).Range("G10") ' Ändere die Zelle nach Bedarf
           .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 ' Ändere die Zelle nach Bedarf
       Open dName For Output As #1
       Print #1, Nr + 1
       Close
    End Sub
  5. Schließe den VBA-Editor und speichere die Datei als .xlsm.

  6. Teste die Funktion: Wenn du die Vorlage öffnest, sollte die Rechnungsnummer automatisch erhöht werden.


Häufige Fehler und Lösungen

  • Fehler beim Kompilieren: Achte darauf, dass du den Code im richtigen Modul eingefügt hast (z.B. im Modul von "Diese Arbeitsmappe").
  • Rechnungsnummer wird nicht erhöht: Stelle sicher, dass das Makro "auto_open" korrekt ausgeführt wird. Überprüfe, dass die Zelle, in der die Rechnungsnummer steht (z.B. G10), korrekt angegeben ist.
  • Datei kann nicht gefunden werden: Überprüfe den Pfad zur factura.ini. Diese Datei wird zur Speicherung der letzten Rechnungsnummer benötigt.

Alternative Methoden

Wenn du nicht mit Makros arbeiten möchtest, kannst du auch eine fortlaufende Rechnungsnummer in Excel manuell erstellen:

  1. Verwende eine Kombination aus Datum und einer fortlaufenden Zahl:

    • In Zelle A1: =TEXT(HEUTE(),"JJJJMMDD")&"-"&ZEILE()
    • Dies erzeugt eine Rechnungsnummer im Format "20230928-1".
  2. Excel-Formel für fortlaufende Rechnungsnummern:

    • Du kannst auch einfach in Zelle G10 die Formel =WENN(G9="";1;G9+1) verwenden, wobei G9 die vorherige Rechnungsnummer ist.

Praktische Beispiele

Ein Beispiel für eine fortlaufende Rechnung könnte wie folgt aussehen:

  • Rechnungsnummer: AR-00001
  • Datum: 28.09.2023
  • Gesamtbetrag: 150,00 €

Diese Informationen kannst du in einer Excel-Tabelle anordnen. Achte darauf, dass die Rechnungsnummer in einer separaten Zelle steht, die mit dem Makro aktualisiert wird.


Tipps für Profis

  • Automatisiere die Speicherung: Du kannst das Makro erweitern, um die Datei automatisch unter einem neuen Namen zu speichern, z.B. AR-00002 für die nächste Rechnung.
  • Verwende Dropdown-Listen: Für die Auswahl von Kunden oder Dienstleistungen kannst du Dropdown-Listen in Excel nutzen, um die Eingabe zu erleichtern.
  • Dokumentation: Halte eine Dokumentation über die Rechnungsnummern, um Doppelungen zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich die Rechnungsnummern in einer separaten Datei speichern? Du kannst den VBA-Code so anpassen, dass er die Rechnungsnummern in einer separaten Excel-Datei speichert. Hierzu musst du die Pfadangabe im Code ändern.

2. Mit welcher Rechnungsnummer soll ich anfangen? Du kannst mit einer beliebigen Rechnungsnummer anfangen, z.B. AR-00001. Achte darauf, dass die nächste Rechnungsnummer automatisch um eins erhöht wird.

3. Wie kann ich die Rechnungsnummern auslesen? Die Rechnungsnummern werden in der factura.ini Datei gespeichert. Du kannst diese Datei öffnen, um die letzte Rechnungsnummer zu sehen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige