AW: fortlaufende Nummer
geri
Andres
noch den COde
Option Private Module
Sub Blattspeichern()
Application.ScreenUpdating = False
Dim strQuest As String
strQuest = MsgBox("Sind Sie sicher alle Artikel / korrekte Stückzahl gewählt ? " & _
" alles gewählt JA / NEIN wenn NEIN keine Speicherung ?", vbYesNo + vbQuestion, " JA dann bestätigen")
'Wenn die Abfrage mit "Nein" bestätigt wird,
'wird die Prozedur mit dem nächsten Befehl abgebrochen.
If strQuest = vbNo Then Exit Sub
Call RechnungsNummer
Sheets("Rechnung").Select
ActiveSheet.Copy
Sheets("Rechnung").PrintOut Copies:=2
ActiveWorkbook.SaveAs Filename:="C:\Daten\" & Range("B20") & "_" & Range("B12") & Format(Now, "dd.mm.yyyy") & ".xls"
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Private Sub RechnungsNummer()
Dim ExcelExe$, dName$, Nr$
dName = "C:\Daten\" & "\Zaehler.txt"
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("B20") = Nr + 1
Open dName For Output As #1
Print #1, Nr + 1
Close
End Sub
eröffne noch ein File Name= Zaehler.txt und schreibe die Zahl 1 ins File
Speicherort ist im Beispiel vorgegeben in C:\Daten\..
gruss geri