Rechnungnummer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Rechnungnummer

13.10.2007 22:41:02

Beate

AW: Rechnungnummer

13.10.2007 23:35:00

Beate

AW: Rechnungnummer

13.10.2007 23:06:00

Josef

AW: Rechnungnummer

14.10.2007 08:14:00

Sonja

AW: Rechnungnummer

14.10.2007 08:57:00

Sonja

AW: Rechnungnummer

14.10.2007 10:09:51

Hans-Georg

Hallo Hans Georg,
lege testweise folgende Datei ins Verzeichnis c:\temp\Rg:
https://www.herber.de/bbs/user/46753.xlt
Sonst dürfen erstmal keine Dateien in diesem Verzeichnis sein. Aber alle Rechnungsdateien, die du aus der Vorlagedatei speicherst, müssen in dieses Verzeichnis gespeichert werden.
Das Workbook-Open Makro ruft das Makro DateiAnzahl auf, es werden die Dateien im Verzeichnis gezählt und somit in B1 eine fortlaufende Nummer ausgegeben. In D1 wird das Tagesdatum eingetragen.
Die Zeile:
If ThisWorkbook.Path "" Then Exit Sub
sorgt dafür, das das Workbook_open-Makro abbricht, wenn die Datei schon gespeichert wurde, damit die schon bestehende Rechnungsnr. und das Rechnungsdatum nicht überschrieben werden.
Wenn du meinen Vorschlag verfolgen willst, aber einen anderen Speicherpfad wählst, dann musst du diesen im Makro Dateianzahl ändern.
Gruß,
Beate
Die Codes:
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Private Sub Workbook_Open()
    If ThisWorkbook.Path <> "" Then Exit Sub
    DateiAnzahl
End Sub

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Sub DateiAnzahl()

    Dim Verzeichnis As String
    Dim Dateimaske As String
    Dim Anzahl As Integer

    Verzeichnis = "C:\temp\Rg\"
    Dateimaske = "*.*"

    Anzahl = NumberofFilesInDirectory(Verzeichnis, Dateimaske)

    Sheets("Tabelle1").Range("B1").Value = Anzahl
    Sheets("Tabelle1").Range("D1").Value = Date


End Sub

Function NumberofFilesInDirectory(Directory, Maske) As Integer

    Dim I As Long
    With Application.FileSearch
        .NewSearch
        .LookIn = Directory
        .Filename = Maske
        NumberofFilesInDirectory = .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending)
    End With

End Function

Hallo Hans-Georg,
kopiere diesen Code in das Modul "DieseArbeitsmappe" deiner Vorlage.
Die Rechnungsnummer wird in einer Textdatei gespeichert. Den Pfad wo diese Datei abgelegt werden soll, musst du anpassen. Ebenso musst du den Tabellennamen und die Zelle in welche die RgNr. geschrieben werden soll an deine Bedürfnisse anpassen.
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Open()
Dim strFile As String, strNum As String

strFile = "F:\Temp\rgnr.txt" 'Pfad zur Textdatei - Anpassen!

If Sheets("Rechnung").Range("H9") = "" Then

    If Dir(strFile) <> "" Then
        Open strFile For Input As #1

        Input #1, strNum

        Close #1
    Else
        strNum = "1"
    End If

    Sheets("Rechnung").Range("H9") = Format(Date, "yyyymmdd-") & Format(strNum, "00000")

    strNum = CStr(strNum + 1)

    Open strFile For Output As #1

    Print #1, strNum;

    Close #1

End If

End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread