Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nummer automatisch um 1 erhöhen!

Forumthread: Nummer automatisch um 1 erhöhen!

Nummer automatisch um 1 erhöhen!
29.07.2003 14:39:52
Gerald
Sehr geehrte Damen und Herren,
ich habe das Problem eine Vorlage für Rechnungen erstellen zu müssen, wo sich die Rechnungsnummer im Format "Jahr"-"fortlaufende Rechnungsnummer" beim Öffnen automatisch generiert und hochzählt. Wenn es in Excel eine Lösung gibt wäre das super - auch in Word wäre es OK!
Bitte um Ihre Hilfe!
Mit freundlichen Grüßen
Gerald Six
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nummer automatisch um 1 erhöhen!
29.07.2003 15:02:59
Mike E.
Hallo,
in diesem Beispiel wird Zelle B1 jeweils im Format
Zahl & "yy" um eins nach dem Öffnen der datei hochgezählt:

Private Sub Workbook_Open()
Dim a As Integer
If Left(Sheets(1).Cells(1, 2), 4) = "" Then
a = 0
Else
a = Left(Sheets(1).Cells(1, 2), 4)
End If
a = a + 1
Sheets(1).Cells(1, 2) = a & "    " & Format(Date, "yy")
End Sub

Dazu den VB-Editor öffnen, Doppelklick auf "DieseArbeitsmappe" und obigen Code einfügen.
Gruß
Mike

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Rechnungsnummern in Excel automatisch erhöhen


Schritt-für-Schritt-Anleitung

Um eine fortlaufende Rechnungsnummer in Excel zu erstellen, die sich beim Öffnen der Datei automatisch um 1 erhöht, folge diesen Schritten:

  1. Öffne den Visual Basic-Editor:

    • Drücke ALT + F11 in Excel, um den Editor zu öffnen.
  2. Finde die Arbeitsmappe:

    • Doppelklicke im Projektfenster auf „DieseArbeitsmappe“ (ThisWorkbook).
  3. Füge den folgenden Code ein:

    Private Sub Workbook_Open()
       Dim a As Integer
       If Left(Sheets(1).Cells(1, 2), 4) = "" Then
           a = 0
       Else
           a = Left(Sheets(1).Cells(1, 2), 4)
       End If
       a = a + 1
       Sheets(1).Cells(1, 2) = a & "    " & Format(Date, "yy")
    End Sub
  4. Schließe den Editor:

    • Speichere Deine Änderungen und schließe den Visual Basic-Editor.
  5. Teste die Funktion:

    • Schließe die Excel-Datei und öffne sie erneut, um zu sehen, ob sich die Rechnungsnummer automatisch erhöht.

Häufige Fehler und Lösungen

  • Fehler: Die Rechnungsnummer erhöht sich nicht:

    • Stelle sicher, dass der Code im richtigen Modul („DieseArbeitsmappe“) eingefügt wurde.
  • Fehler: Falsches Format der Rechnungsnummer:

    • Überprüfe, ob die Zelle korrekt formatiert ist. Es sollte sich um eine Text- oder Standardformatierung handeln.

Alternative Methoden

Falls VBA nicht die gewünschte Lösung für Deine Excel-Rechnung mit fortlaufender Rechnungsnummer ist, kannst Du auch die folgende Methode verwenden:

  1. Verwende die Funktion =MAX():

    • Trage in Zelle B1 die folgende Formel ein:
      =MAX(A:A)+1
    • Dies setzt voraus, dass Deine Rechnungsnummern in der Spalte A stehen.
  2. Dateneingabe manuell:

    • Du kannst auch einfach die erste Rechnungsnummer manuell eingeben und dann die AutoFill-Funktion nutzen, um fortlaufende Rechnungsnummern zu generieren.

Praktische Beispiele

Hier ist ein Beispiel, wie Du eine Excel-Vorlage für Rechnungen mit fortlaufenden Rechnungsnummern einrichten kannst:

  • Zelle A1: „Rechnungsnummer“
  • Zelle B1: Der oben genannte VBA-Code oder die =MAX()-Formel.
  • Zelle A2: „Rechnungsdatum“
  • Zelle B2: =HEUTE() für das aktuelle Datum.

So erhältst Du eine übersichtliche Rechnung, die bei jedem Öffnen automatisch aktualisiert wird.


Tipps für Profis

  • Sichere Deine Datei:

    • Speichere die Datei im .xlsm-Format, damit der VBA-Code funktioniert.
  • Verwende Datenschutz:

    • Schütze die Zellen mit dem Code, um versehentliche Änderungen zu vermeiden.
  • Dokumentation:

    • Füge Kommentare in Deinen VBA-Code ein, um diesen für andere Benutzer verständlicher zu machen.

FAQ: Häufige Fragen

1. Kann ich die Rechnungsnummern auch in Word automatisch erhöhen?
Ja, Du kannst ähnliche VBA-Methoden auch in Word verwenden, um fortlaufende Rechnungsnummern zu erstellen.

2. Funktioniert das auch in älteren Excel-Versionen?
Die oben genannten Methoden sind in den meisten aktuellen Excel-Versionen anwendbar, jedoch können einige Funktionen in älteren Versionen eingeschränkt sein. Stelle sicher, dass Du eine Version verwendest, die VBA unterstützt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige