Rechnungsnummern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Rechnungsnummern

22.02.2004 12:46:34

Ramses

Verzeihung

22.02.2004 12:49:21

Marcus Rose

Kein Problem :-))

22.02.2004 12:53:44

Ramses

Korrektur...

22.02.2004 12:55:03

Ramses

AW: Korrektur...

22.02.2004 13:28:52

Harald

Merci :-) Geschlossen o.T.

22.02.2004 15:20:00

Ramses

AW: Korrektur...

23.02.2004 16:22:47

Lokutus

AW: Rechnungsnummern

22.02.2004 12:48:08

Marcus Rose

Hallo
probier mal das aus:

'********************************************
'Gehört zusammen für automatische Speicherung unter Rechnungsnummer
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim myPfad As String
'Pfad bitte anpassen
'Alternativen Pfad eintragen
'hier wird im Standardarbeitsverzeichnis gespeichert
myPfad = Application.DefaultFilePath
ThisWorkbook.SaveAs myPfad & "\" & Range("Rechnungsnummer") & ".xls", True
End Sub
Sub Fortlaufende_RechnungsNummer()
'byRamses
'-----------
'Das Makro in das Workbook_Open Ereignis einer Vorlage !!! kopieren
'um die automatische Nummern erstellung zu generieren.
'Beim speichern der Vorlage darf in der Zelle mit dem Namen "Rechnungsnummer"
'nichts stehen
'----------
'Ansonsten kann das Makro einer Schaltfläche zugwiesen werden.
'In der Zelle mit dem Namen "Rechnungsnummer" darf nichts stehen !!
'beim ausführen bzw. Start des Makros
'----------
On Error GoTo R_Error
Dim newNr As Variant, oldNr As Variant
Dim FileName As String
FileName = "C:\Rechnung.ini"
'Prüfen ob bereits eine Rechnungsnummer in der Zelle steht
'Um ein erneutes hochzählen bei späterem öffnen der Datei zu vermeiden
If Range("Rechnungsnummer") = "" Then Exit Sub
'Erstellen einer externen Datei zum dokumentieren der
'fortlaufenden 5 stelligen Nummer
Close #1
'Öffnen der INI Datei
restart:
'Pfad der Datei bitte anpassen
Open FileName For Input As #1
'einlesen der alten Nummer
Line Input #1, oldNr
Close #1
'Berechnen und schreiben der neuen Nummer
newNr = oldNr + 1
Open FileName For Output As #1
Write #1, newNr
'Schliessen der INI Datei
Close #1
'Länge der Zahl bestimmen
Select Case Len(newNr)
    Case 1
        newNr = "0000" & newNr
    Case 2
        newNr = "000" & newNr
    Case 3
        newNr = "00" & newNr
    Case 4
        newNr = "0" & newNr
    Case 5
        newNr = newNr
    Case 6
        MsgBox "Zahlenlimit überschritten"
        Exit Sub
End Select
'Rechnungsnummer ist ein Name der sich auch eine Zelle bezieht
'Achtung:: Es dürfen keine Doppelpunkte, Slash oder Backslasch verwendet werden
Range("Rechnungsnummer") = "RechNr. " & Format(Now, "yyyy") & "-" & newNr
R_Exit:
Exit Sub
R_Error:
Select Case Err
    Case 53
    'Datei ist noch nicht vorhanden
        Open FileName For Output As #1
        Close #1
        Open FileName For Output As #1
        Write #1, 0
        Close #1
        Err.Clear
        Resume restart
    Case 54
        'Datei ist bereits geöffnet und wurde noch nicht wieder geschlossen
        Close #1
        Resume restart
    Case Else
        MsgBox Err & ": " & Err.Description
        Resume R_Exit
End Select
End Sub
'***************************************************************

Code eingefügt mit Syntaxhighlighter 2.5

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread