Hallo Reinhard,
sorry, hab die Add-Ins nicht geprüft, da muß man einen Button
klicken um den Zellwert um 1 zu erhöhen?
Da verstehe ich grad die Logik nicht warum das nicht so ist,
immer wenn man da diese Vorlage öffnet wird das automatisch
erhöht.
Welcher Link/Add-In ist denn das? Der der da schon 1000 fach
im Einsatz ist und prämiert ist?
Ich meine das Add-In war ReNo oder so ähnlich. Man konnte dort dann manuelle Einstellungen vornehmen, musste dann aber immer auf „Einfügen“ klicken um das Add-In auszuführen. War nicht schlecht, aber eben nicht das was ich gesucht habe, wäre aber vielleicht ne Alternative gewesen. Es war gleich das erste Suchergebnis von deinem Google-Link.
Bei einem weiteren Ergebnis habe ich dann diesen Code gefunden
und nach meinen Bedürfnissen soweit angepasst. Es funktioniert
auch gut.
Private Sub Workbook_Open()
inhaltszelle = „B2“ ’ Mit der Zelle in der die Zahl steht
ersetzen - evtl auch mit sheetangabe -> „Tabelle1!B2“
excelname = „Blanko.xlsm“ ’ Mit dem Dateinamen der Quelldatei
ersetzen
If ThisWorkbook.Name = excelname Then
Range(inhaltszelle).Value = Range(inhaltszelle).Value + 1
ActiveWorkbook.Save
End If
End Sub
Wieso „.xlsm“? Ich dachte du wolltest eine Vorlage? Die heißen
früher xlt, jetzt in 2007 xltx bzw. xltm.
Das war so vorgegeben bei dem Code, den ich gefunden habe. Beim Speichern wird auch gesagt, dass wenn Makros dabei sind, man es in xlsm zu speichern. Es funzt auf jeden Fall. Probiere gleich auch nochmal xltm aus. Vielleicht muss ich dann nicht immer das Makro in der Vorlage freigeben?? Mal schauen. Werde berichten.
Zu deinem Code, grundsätzlich sehr zu empfehlen ist in jedem
Modul Option Explicit zuoberst zu haben.
Stell das im VB-Editor bei Optionen ein, Häkchen bei
„Variablendeklaration erforderlich“, glaub mir, es macht
großen Sinn.
Wie genau ist denn der Sinn darin? Ich kenne mich mit VBA noch nicht ganz so gut aus. I’m learning by doing 
Hast du aber eine Idee, was ich machen/ändern muss, wenn die
Rechnungen nicht bei 1 anfangen sollen, sondern zum Beispiel
bei 4538??
Du mußt doch nur manuell in B2 die 4538 eingeben und die
Vorlage speichern.
Das wäre ja simple, probiere ich gleich mal 
Manchmal sieht man den Wald vor lauter Bäumen nicht.
„Tabelle1!B2“ ist die Referenzierung in Excel, Vba kann damit
nur in bestimmten Dingen etwas anfangen.
Worksheets(„Tabelle1“).Range(„B2“) ist die Vba Schreibweise.
Hilfreich für mich und andere ist was anderes. Wie lautet der
name der Vorlage?
Der Name der Vorlage soll einfach „Blanko“ heißen
Wie soll der Name Mappe lauten wenn man die Vorlage geöffnet
hat mit erhöhter Rechnungsnummer?
Empfehlenswert dazu ist z.B. das datum mit in den Namen zu
nehmen oder den Kunden oder die Rechnungsnummer oder eine
Kombination davon.
Das weiß ich noch nicht genau, wahrscheinlich einfach nur was in der Form „RE004583“ oder so ähnlich.
Und mal ein rein persönlicher Tipp, irgendwie ist es
psychologisch ungeschickt wenn ein Kunde Mitte März vopn dir
eine Rechnung bekommt mit der Rechnungsnummer 00001/2011, was
denkt er wohl? Genau, daß deine geschäfte sehr mies laufen
-))
Wissen ist Macht und du gibst ihm dadurch Macht…
Genau deshalb will ich ja nicht bei 1 anfangen sondern eben bei willkürlich 4538.
Also mach dir bitte Gedanken wie da deine Rechnungsnummer
aussehen soll. Nur Ziffern oder auch Buchstaben u.v.m.
Dann sag mir das mit den Mappennamen.
Und wenn du z.B. die Vorlage in einem anderen Pfad hast als
den Pfad wo du all die Rechnungsmappen sammeln willst so sage
das.
Die Pfade selbst sind für mich uninteresant.
Ich will nur wissen ob die Vorlage in dem Ordner mit den
Rechnungsmappen steht oder nicht.
Die Blanko-Datei soll einfach unter allgemeine Dokumente zu finden sein oder auf dem Desktop, irgendwo, wo ich sie schnell aufgreifen kann.
Die geänderte Rechnung mit der jeweils erhöhten Nummer soll dann manuell immer in den jeweiligen Kundenordner gespeichert werden. Das muss aber nicht zwangsläufig automatisch passieren. Mir war nur wichtig, dass wenn ich die Blanko-Datei öffne der Wert erhöht wird, ich meine Rechnung schreiben und drucken kann und dann manuell neu abspeichern. Beim nächsten öffnen der Blanko-Datei dann die nächsthöhere Rechnungsnummer erscheint. Also eigentlich ist es dann jetzt gut, wie es ist.
Je nachdem sieht der Lösungscode a bissi annnerster aus.
D.h. im zweiten Fall benutze ich dann im Code sowas:
C:\Vorlagen… und c:\Rechnungen…
Dies mußt du dann auf deine Pfade abändern.
Vielen dank, für die hilfreichen Tipps
VG Nadin
