Zahlen reseten
23.02.2004 21:07:22
Marc
ich lasse eine Zahl so ausgeben:
Range("B2") = "RechNr. " & "33." & newNr & "." & Format(Date, "YY")
das Ergebniss ist auch ok. Z.B. 33.005.04
jetzt kommt aber das ende des jahres näher und wenn das jahr sich ändert wird auch die endziffer in 05 ... gewechselt. Aber er soll dann auch die Variable newNr reseten. Wie kann ich das noch in mein Makro mit einbauen ? Unterhalb das komplette Makro wie ich es verwende.
danke schonmal Marc
Sub Fortlaufende_RechnungsNummer()
On Error GoTo R_Error
Dim newNr As Variant, oldNr As Variant
Dim FileName As String
FileName = "C:\Rechnung.ini"
If Range("B2") <> "" Then Exit Sub
Close #1
restart:
Open FileName For Input As #1
Line Input #1, oldNr
Close #1
newNr = oldNr + 1
Open FileName For Output As #1
Write #1, newNr
Close #1
Select Case Len(newNr)
Case 1
newNr = "00" & newNr
Case 2
newNr = "0" & newNr
Case 3
newNr = newNr
Case 4
MsgBox "Zahlenlimit überschritten"
Exit Sub
End Select
Range("B2") = "RechNr. " & "33." & newNr & "." & Format(Date, "YY")
R_Exit:
Exit Sub
R_Error:
Select Case Err
Case 53
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
Close #1
Resume restart
Case Else
MsgBox Err & ": " & Err.Description
Resume R_Exit
End Select
End Sub