Hallo,
habe folgendes Problem - vielleicht kann mir jemand weiterhelfen - Danke!
Habe in Excel 2016 eine Vorlage mit Makro (Rechnungsformular) erstellt - soweit so gut!
Mein Problem ist, dass ich beim Aufruf des Rechnungsformulars immer eine neue Rechnungsnummer bekomme - leider bekomme ich das nicht hin.
Code:
Private Sub Workbook_Open()
With Sheets("Tabelle1") '<-- hier anpassen!!!
.Range("B3") = .Range("B3") + 1
End With
End Sub
Moin!
Was bezeichnest Du als Vorlage?
Eine Vorlage? (.xltm)
oder eine "Vorlage" (.xlsm)
Versuche doch mal, Dein Problem so zu schildern, dass ich es verstehe und Dir geholfen werden kann.
Gruß Ralf
Die Vorlage als ".xltm" - Excel Vorlage mit Makros!
Das leere Rechnungsformular wurde als "Rechnungsformular.xltm" gespeichert.
Nach Aufruf dieses Formular sollte in der Vorlage1 die neue Rechnungsnummer - die letzte vergebene + 1 stehen.
LG
Hallo Ubi,
Zitat:Nach Aufruf dieses Formular sollte in der Vorlage1 die neue Rechnungsnummer - die letzte vergebene + 1 stehen.
Dein Makro läuft doch korrekt. Ich nehme mal an, Du hast das Speichern vergessen.
Wenn Du nicht speicherst, dann kann der Zähler auch beim nächsten Starten der Datei
nicht hochgesetzt werden weil der Code davon nichts weiß. Somit bleibt es bis in alle
Ewigkeit bei der 1 in der Zelle B3.
Mir ist schon klar, daß das von Dir nicht so gewollt sein kann, aber wenn Du vielleicht
selbst raustüfteln willst, wie das wie Du das zum Laufen kriegst, will ich Dir den Spaß
daran nicht vermiesen.
Danke für den Hinweis - werde es Morgen nochmals versuchen - ansonsten darf ich mich nochmals melden - Danke!
Hallo Ubi,
na klar darfst Du Dich wieder melden. Dafür sind sie ja da, die Foren :05:
In dem Sinne
Bin nochmals da - habe es ausprobiert - funktioniert aber nur einmal, dass heißt die Vorlage merkt sich nicht die letzte Nummer.
z.B. 1. Aufruf - Vorlage1, 2. Aufruf bleibt bei Vorlage1.
LG Ubi5
Hallo Ubi,
Zitat:Bin nochmals da - habe es ausprobiert - funktioniert aber nur einmal, dass heißt die Vorlage merkt sich nicht die letzte Nummer.
z.B. 1. Aufruf - Vorlage1, 2. Aufruf bleibt bei Vorlage1.
Daß das so passieren wird, habe ich Dir doch in meinem
Post #4 zu erklären versucht.
Und ich habe auch geschrieben, daß ich mir darüber klar bin, daß es nicht das ist, was Du Dir wünscht.
Was daran ist unverständlich gewesen?
Dein Makro benötigt eine Erweiterung bzw. Ergänzung um das zu erreichen. Aber das uns gezeigte Makro läuft
Du hast geschrieben, daß Du diesen Code geschrieben hast. Warum sollte ich dann annehmen, daß nicht wirklich Du das warst?
Entschuldige, habe das falsch verstanden - komme aber leider nicht weiter - vielleicht kann man mir weiterhelfen - Danke!
Moin!
Das Verhalten ist logisch!
Das Öffnen
einer neuen Datei auf Basis einer Vorlage (mittels Datei, Neu) ändert natürlich nichts an der Vorlage.
(Deshalb ja meine Nachfrage in #2)
Da kannst Du speichern, bis der Arzt kommt. ;)
Eine Möglichkeit wäre, sich die letzte Nummer in einer Textdatei zu merken,
im Open die Nummer im Tabellenblatt um 1 zu erhöhen (so, wie Du es ja auch machst),
im Open die Textdatei auszulesen und um 1 erhöht in die Tabelle schreiben,
und im BeforeSave die Nummer in der Textdatei zu überschreiben.
Alternativ natürlich auch in einer ansonsten leeren Excel-Mappe, wenn Dir die Manipulation von Textdateien nicht geläufig ist.
Dennoch dazu ein Link:
http://vb-tec.de/dateien.htm
Gruß Ralf