Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
18.04.2024 15:13:44
Text ans untere Ende der Seite verschieben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige