automatische Fakturanummer

10/12/2008 - 21:43 von Oski | Report spam
Hallo

Ich verwende Excel2003 und habe bei der automatischen Erstellung von
Rechnungsnummern folgenden Script

Private Sub Workbook_Open()
Dim strFile As String
Dim intNo As Integer


strFile = ThisWorkbook.Path & "\factura_" & Format(Date, "YYYY") & ".ini"


If Dir(strFile) <> "" Then
Open strFile For Input As #1
Input #1, intNo: Close
End If


intNo = intNo + 1
Open strFile For Output As #1
Print #1, intNo: Close

'schreibt die Rechnungsnummer in die Zelle B20
'Worksheets(1).Range("B20") = Format(Date, "YYYYMM") & ("/PCNr04/") &
Format(intNo, "0000")
Worksheets("Alg_Rechnung").Range("B20").Value = _
Format(Date, "YYYYMM") & "/" & Environ("COMPUTERNAME") & "/" &
Format(intNo, "0000")


'schreibt die Rechnungsnummer in die active Zelle
'ActiveCell.Value = _
'Format(Date, "YYYYMM") & ("/04/") & Format(intNo, "0000")

End Sub


Beim ausführen wird folgende Zeile immer gelb markiert und der Script wird
nicht ausgeführt

wo könnte hier der Fehler liegen??

Gruss
Oski
 

Lesen sie die antworten

#1 Martin Hentrich
10/12/2008 - 22:39 | Warnen spam
On Wed, 10 Dec 2008 12:43:02 -0800, Oski
wrote:

Beim ausführen wird folgende Zeile immer gelb markiert und der Script wird
nicht ausgeführt



Was ist die folgende Zeile?

wo könnte hier der Fehler liegen??



Wie lautet die Fehlermeldung?

Martin
Die Majoritàt der Dummen ist unüberwindbar und für
alle Zeiten gesichert. Der Schrecken ihrer Tyrannei
ist indessen gemildert durch Mangel an Konsequenz.
[Albert Einstein]

Ähnliche fragen