AW: Fortlaufende-Nummer vergeben
21.01.2008 15:07:00
Claudia
Hallo Flo,
ich mache das mit forlaufenden Rechnungsnummern so wie nachstehend. Code in ein Modul. (habe das ganze mal hier im Forum erhalten, funzt super.
Sub NewNumber()
On Error GoTo Number_Error
Dim Pfad As String
Dim fs As Object
Dim folder As String
Dim file As Object
Dim Xvar As Variant
Dim MyError As Integer
Dim T1, T2, T3
'Codestart
Xvar = ""
Error_Correct1:
MyError = 1
Xvar = CStr(Cells(1, 1))
If Xvar = "" Then Xvar = 1000
'Wenn XVar = 1000 wurde noch keine Datei erstellt
If Xvar = 1000 Then
T1 = "Es muss eine Datei erstellt werden in welche die Information geschrieben wird."
T2 = "Sind Sie damit einverstanden, dass zur Demonstration auf dem Laufwerk C:"
T3 = "eine Datei mit dem Namen ""RechNr.xls"" erstellt wird ?"
QE = MsgBox(T1 & Chr$(13) & T2 & Chr$(13) & T3, vbCritical + vbDefaultButton1 + vbYesNo, _
"Ausgabedatei fehlt")
If QE = 7 Then
QE = MsgBox("Die Datei wird nicht erstellt und das Makro abgebrochen", _
vbInformation + vbOKOnly, "Demonstration nicht möglich")
Exit Sub
End If
Set fs = CreateObject("Scripting.FileSystemObject")
Set file = fs.CreateTextFile("C:\Rechnungen TS-Consulting\RechNr.xls", True)
file.Close
End If
Open "C:\Rechnungen FIRMA\RechNr.xls" For Output As #1 'hier den Namen und Paf Deiner Datei _
für forlaufende Nummern
'Rechnungsnummer aus Zelle A1 auslesen
Xvar = Xvar + 1
Range("A1").Value = Xvar
'Rechnungsnummer in .xls Datei schreiben
Close #1
Open "C:\Rechnungen FIRMA\RechNr.xls" For Output As #1 'hier den Namen und Paf Deiner Datei _
für forlaufende Nummern
Print #1, Xvar
Close #1
Number_Exit:
Exit Sub
Number_Error:
Select Case MyError
Case 1
Resume Error_Correct1
End Select
MsgBox ("Sonstiger Fehler")
Resume Number_Exit
End Sub
Hoffe geholfen zu hane.
Gruß
Claudia