Office: Excel-Datei mit fortlaufender Nummer öffnen

Hallo,

ich habe eine Excel-Datei. Dort steht in B3 eine Zahl und in B4 bis B10 Daten. Ich speichere nun die Datei. Nun möchte ich, dass beim nächsten Öffnen die Zahl um 1 erhöht und B4 bis B10 gelöscht werden. Sinn der Übung: Ich schreibe Rechnungen und habe ich immer eine aktuelle Rechnungsnummer ohne irgendwo nachzusehen.

Danke und Gruß

 

Hallo!

Öffne aus der Tabelle heraus den VBA-Editor mit Alt+F11
Doppelklicke links oben auf "DieseArbeitsmappe"
Füge diesen Code ins Codefenster rechts ein:

Code:

Private Sub Workbook_Open()
With Sheets("Tabelle1")   '<-- hier anpassen!!!
.Range("B3") = .Range("B3") + 1
.Range("B4:B10").ClearContents
End With
End Sub

 

Super. Klappt wunderbar.
Jetzt noch Frage: Ich würde die Datei gerne 2 mal abspeichern. Einmal die Originaldatei, damit die Sache mit der fortlaufenden Nummer klappt und einmal mit einem Namen, sagen wir "Anhang"+die aktuelle Nummer aus B3. Kriege ich das irgendwie automatisch hin? Also einmal Klick und 2 mal gespeichert?

Danke und Gruß

 

Hallo!

Die Originaldatei speicherst du mit
ThisWorkbook.Save
Für das Speichern unter anderem Namen schau mal in der VBA-Hilfe unter "SaveAs".
Den Dateinamen baust du dir zusammen aus
"C:\Dein Pfad\Anhang" & Sheets("Tabelle1").Range("B3") & ".xls"

 

Hallo zusammen,
Ich habe ein ähnliches Problem, habe es auch mit dem Code schon versucht. Klappt aber nicht. Denke, das liegt an der Formatierung der Zelle.
Es ist eine zusammengefasste Zelle mit der Formatierung "Text "0000.
Was muss ich im Code ändern?
Danke schon mal für die Hilfe und eine schöne Woche.

 

Nach 11 Jahren einen Thread kapern?

Wo steht geschrieben, dass eine Rechnungsnummer fortlaufend sein muss?
Vorgabe ist, dass sie eindeutig ist!
Aus diesem Grund hat es sich imo bewährt, die ReNr mittels Date/Time-Stamp zu erstellen.

Erstelle eine Vorlage (.xltm), in der beim Öffnen mittels Datei, Neu in die Zelle mittels Workbook_Open folgendes geschrieben wird:

Code:

Private Sub Workbook_Open()
Tabelle1.Range("G2") = Format(Now, "yymmdd_hhnn")
End Sub

Denke daran, dass die Datei NICHT als .xlsx, sondern als .pdf gespeichert wird.
Eine Excel-Datei wird von den Finanzämtern NICHT als Datei gemäß GoB ("Grundsätze ordnungsmäßiger Buchhaltung") angesehen!

Gruß Ralf

 

Ja, denke mal das Thema ist immer aktuell
Daher erstmal Danke für deine Hilfe.

Chef will es so.

Hab das probiert. G2 getauscht mit A14. Leider funktioniert es nicht.
Hänge ein Screen an, wie die Nummer aussehen soll.
Die Zelle(n) (verbunden) sind formatiert mit !"Angebots-Nr.: L"0000!, so dass in der Bearbeitungsleiste nur die 26 steht.

Nochmal danke im Voraus für die Hilfe.
Gruß Sekretärin

 

Kann mir hier wirklich keiner helfen????

 

Moin!

Ist doch im Prinzip ganz einfach:
Dann sollte der Chef Geld in die Hand nehmen und sich seine Rechnungsvorlage professionell erstellen lassen.
Man könnte die letzte Rechnungsnummer in eine .INI (also Text-) Datei schreiben, beim Öffnen der Rechnung auslesen, um 1 erhöhen, in die Excel schreiben und beim Speichern (als .PDF(!)) und Drucken die Textdatei ändern und speichern.

Ich halte es für grob fahrlässig, so etwas "mal eben" in einem Forum zu klären!
Erstens entspricht eine Excel-Datei nicht den GOB,
zweitens wird niemand aus einem Forum die Verantwortung übernehmen, wenn es Ärger mit dem Finanzamt gibt!

Dünnes Eis!
Gruß Ralf