Hallo,
ich habe in Excel eine Rechnungsvorlage erstellt. Nun will ich, daß jedesmal, wenn diese Vorlage geladen wird, die Rechnungsnummer um eins hochgezählt wird. Ich würde mich freuen, wenn mir jemand einen Tipp geben würde,
In Voraus vielen Dank
Edgar
Edgar Rau Nachtrag zu: „Excel Rechnungsnummer“
Hallo Kolti,
ich habe ein wenig experimentiert und eine Lösung gefunden:
Sub Auto_Open()
Cells(17, 7) = Cells(17, 7) + 1
ActiveWorkbook.SaveAs Filename:= _
"C:\WINDOWS\Anwendungsdaten\Microsoft\Vorlagen\Rechnung.xlt"
Workbooks.Add(Template:= _
"C:\WINDOWS\Anwendungsdaten\Microsoft\Vorlagen\Rechnung.xlt").RunAutoMacros _
Which:=xlAutoOpen
ActiveWorkbook.Close
End Sub
Allerdings sagt er, wenn der "Save Befehl" ausgeführt werden soll, "diese Datei ist....." und ich muss bestätigen, das die Datei überschrieben wird. Es gibt doch bestimmt einen Befehl, der das unterdrückt.
Vielen Dank für deine Hilfe und dein Interesse
Edgar
