laufende rechnungsnr festlegen
25.09.2002 10:26:52
carsten
ich hab da ein vba um eine rechnungsnr fortlaufend in einem tabellenblatt einzulesen. der code stammt aus herbers beispielen.
meine frage: wo im code muss ich die zahl eintragen von der er loszählen soll. eigentlich dachte ich an der stelle print #1; "0"
und an stelle der null dann meintwegen "33333" eintragen. wenn ich das tue steht in der ini datei die angelegt wird aber immer nur 1?????
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