Fortlaufende Rechnungsnummer

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Fortlaufende Rechnungsnummer
von: achim
Geschrieben am: 14.07.2002 - 16:15:37

Hallo !
In Tabelle3 Spalte A stehen bei mir Rechnungsnummern, die Fortlaufend erweitert werden. Wenn ich userform1 starte soll
die neue Nummer (um eins erhöht) in Textbox1 voreingestellt sein.
Wie komme ich dahin ?

nach oben   nach unten

Re: Fortlaufende Rechnungsnummer
von: Rolf, Lgh.
Geschrieben am: 14.07.2002 - 17:00:39

Hallo Achim,
meinst Du so:

Private Sub UserForm_Initialize()
  Me.TextBox1.Value = WorksheetFunction _
                      .Max(Worksheets(3).Range("A:A")) + 1
End Sub

Gruß Rolf
nach oben   nach unten

Re: Fortlaufende Rechnungsnummer
von: achim
Geschrieben am: 14.07.2002 - 17:39:48

Hallo Rolf !
Nicht ganz !
Die erste Rechnungsnummer ist R2000-001
die zweite (und das wäre ja die, die in der Textbox erscheinen müßte) wäre dann R2000-002 usw.

nach oben   nach unten

Re: Fortlaufende Rechnungsnummer
von: Rolf, Lgh.
Geschrieben am: 14.07.2002 - 18:12:41

Wie wäre es damit:

Private Sub UserForm_Initialize()
  Dim Reihe As Single
  Reihe = Worksheets(3).Cells.SpecialCells(xlCellTypeLastCell).Row
  Me.TextBox1.Value = "R2002-" & Format(Reihe + 1, "000")
End Sub

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Fortlaufende Rechnungsnummer"