Rechnungsnummer erstellen
30.12.2018 01:56:30
HannaS
und zwar habe ich folgendes Problem, ich würde gerne in Excel eine Vorlage erstellen, in dieser möchte ich ein Makro, dass beim Aufrufen der Vorlage immer eine Nummer (in meinem Fall eine Rechnungsnummer) weiter läuft einfügen.
Den code den ich verwende und bisher im Internet gefunden habe funktioniert nicht, außerdem wird beim öffnen der Vorlage, die Vorlage selbst geöffnet und nicht ein neues Dokument mit einer Nummer weiter.
Ich möchte, dass die Rechnungsnummer auf der Position E17 weiter läuft, aber wie erstelle ich einen passenden Code?
Mein verwendeter Code:
Private Sub Workbook_Open()
Workbooks.Open(Filename:= _
"C:\Users\Hanna\Documents\Muster Handarbeiten\Rechnung\Vorlage\Vorlage Rechnung Muster _
Handarbeiten.xltm", _
Editable:=True).RunAutoMacros Which:=xlAutoOpen
Cells(5, 17).Value = Cells(5, 17).Value + 1
RNummer = Cells(5, 17).Value
ActiveWorkbook.Save
ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
ActiveWorkbook.Close
Workbooks.Add Template:= _
"C:\Users\Hanna\Documents\Muster Handarbeiten\Rechnung\Vorlage\Vorlage Rechnung Muster _
Handarbeiten.xltm"
End Sub
Ist der Code überhaupt richtig? Ich bin wirklich am ende meines Lateins.
Danke vorab für die Hilfe
Liebe Grüße
Hanna S.