VBA - Rechnungsnummer | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function RechnungsNr() Dim intFree As Integer 'Datei mit Re-Nr.; anpassen Const strFile As String = "c:\Temp\ReNr.txt" intFree = FreeFile If Dir(strFile, vbNormal) "" Then Open strFile For Input As #1 Line Input #1, RechnungsNr Close 1 End If RechnungsNr = RechnungsNr + 1 Open strFile For Output As intFree Print #1, RechnungsNr Close 1 End Function

Function RechnungsNr() ' von Rudi Dim intK As Integer Const strFile As String = "c:\Temp\ReNr.txt" 'Datei mit Re-Nr.; anpassen intK = FreeFile If Dir(strFile, vbNormal) "" Then Open strFile For Input As #intK Line Input #intK, RechnungsNr Close intK End If RechnungsNr = RechnungsNr + 1 Open strFile For Output As intK Print #intK, RechnungsNr Close intK End Function Function RechnungsNummer() Dim intK As Integer Const strDat As String = "C:\Daten\Zaehler.txt" ' anpassen If Dir(strDat) = "" Then On Error Resume Next Open strDat For Output As #intK If Err > 0 Then MsgBox "Kann Datei '" & strDat & "'nicht anlegen - Abbruch", _ vbCritical, "Funktion RechnungsNummer" Exit Function End If On Error GoTo 0 Write #intK, 0 Close intK End If On Error Resume Next Open strDat For Input As #intK If Err > 0 Then MsgBox "Kann Datei '" & strDat & "'nicht öffnen - Abbruch", _ vbCritical, "Funktion RechnungsNummer" Exit Function End If On Error GoTo 0 Line Input #intK, RechnungsNummer Close intK RechnungsNummer = RechnungsNummer + 1 Open strDat For Output As #intK Write #intK, RechnungsNummer Close intK End Function

Hallo Charly,
sorry, bei meiner Prozedur fehlte noch eine Zeile (intK = FreeFile). Deshalb nochmal:


Option Explicit
Function RechnungsNummer()
Dim intK As Integer
Const strDat As String = "C:\Daten\Zaehler.txt" ' anpassen
intK = FreeFile
If Dir(strDat) = "" Then
On Error Resume Next
Open strDat For Output As #intK
If Err > 0 Then
MsgBox "Kann Datei '" & strDat & "'nicht anlegen - Abbruch", _
vbCritical, "Funktion RechnungsNummer"
Exit Function
End If
On Error GoTo 0
Write #intK, 0
Close intK
End If
On Error Resume Next
Open strDat For Input As #intK
If Err > 0 Then
MsgBox "Kann Datei '" & strDat & "'nicht öffnen - Abbruch", _
vbCritical, "Funktion RechnungsNummer"
Exit Function
End If
On Error GoTo 0
Line Input #intK, RechnungsNummer
Close intK
RechnungsNummer = RechnungsNummer + 1
Open strDat For Output As #intK
Write #intK, RechnungsNummer
Close intK
End Function

Vielleicht solltest du noch mal darüber nachdenken, WANN eine neue Re-Nr zu vergeben ist.
Das ist keine Excel- oder VBA-Frage, sondern eine rein fachliche.
Soll die neue Nummer beim Anlegen oder Fertigstellen oder Drucken vergeben werden?
Wenn die Nummer zu früh vergeben wird, werden viele Nummern verbraucht, zu denen es keine Rechnung gibt.
(Menschen machen Fehler, werden bei der Arbeit gestört, ...)
Du wolltest jetzt die Nr. beim Öffnen der Rechnung.xls hochzählen.
Dazu brauchst du nur (wie bisher im Modul der Arbeitsmappe)


Option Explicit
Private Sub Workbook_Open()
Tabelle1.Cells(7, 13) = RechnungsNummer
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Sub lfdNr() Dim Nr% Dim dName$ Dim Zielordner$, Dateiname$ 'Hier den Pfad verändern Zielordner = "c:\" 'Hier den Dateinamen verändern Dateiname = "Excel_lfdNr" dName = Zielordner & Dateiname & ".ini" Close On Error Resume Next Open dName For Input As #1 If Err > 0 Then Nr = 1 Close Open dName For Output As #1 Print #1, Nr Close Exit Sub Else Input #1, Nr Close Open dName For Output As #1 Print #1, Nr + 1 Close End If ActiveCell.Value = Nr End Sub

Hallo Charly,
zu "Denn wenn ich eine neue Vorlage öffne, wird eine neue Nummer Generiert.":
Ja, das ist so, denn die Vergabe der Re-Nr. wird im Workbook_Open ausgelöst.
Aber dieses Problem geht noch weiter:
Wenn du Rechnung.xls öffnest, wird eine neue Nr. (z. B. 4711) vergeben.
Du speicherst die ausgefüllte Mappe dann z. B. als Re4711.xls und schließt sie.
Was wird passieren, wenn du jetzt noch mal in Re4711.xls etwas nachsehen willst?
Du öffnest die Mappe und - eine neue Re-Nr. wird vergeben.
Denn auch Re4711.xls enthält die Makros zur Vergabe einer Re-Nr.!
Man könnte mit einigem Aufwand die Makros löschen.
Alternativ könnte man dem Makro beibringen, dass die Re-Nr nur dann erhöht wird,
wenn der Dateiname exakt "Rechnung.xls" ist.
Oder: Bei Anlage einer neuen Rechnung wird eine neue Mappe erzeugt,
das Vorlagenblatt in die neue Mappe kopiert und ausgefüllt.
Dann hat die neue Mappe keine Makros, die Probleme machen können.
zu "Könnet man die Nummer mit einem Button Verbinden?
Oder ist dann die Gefahr, dass wenn man jedesmal auf denn Button Click eine Nummer vergeben wird."
Ja, auch das ist so.
Dazu kann man auch vergessen, auf den Button zu drücken,
und dann hast du vielleicht mehrere verschiedene Rechnungen mit derselben Re-Nr.
Das mit dem Button würde ich nicht machen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

VBA - Rechnungsnummer

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread