Office: Nummerngenerator für eine UserForm

xlph · 8. Oktober 2014

Hallo Beverly,

Punkt 1 ist damit dennoch nicht gelöst.

In der Datei habe ich den oben beschriebenen Vorgang umgesetzt.

Beverly · 8. Oktober 2014

Hi,

das hängt davon ab, was der Fragesteller mit seiner Nummernvergabe erreichen will. Bisher war nur die Rede davon, dass Zahlen VOR dem aktuellen Maximum nicht neu vergeben werden dürfen.

krug96 · 9. Oktober 2014

Hallo,

also gelöschte Nummern dürfen nicht mehr verwendet werden, d.h. es MUSS immer die nächste Nummer vergeben werden.

xlph: zu deiner Frage ob das so gewünscht ist. Nein ist es nicht.

Vielen Dank

Beverly · 12. Januar 2021

Hi,

von krug96

also gelöschte Nummern dürfen nicht mehr verwendet werden, d.h. es MUSS immer die nächste Nummer vergeben werden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In diesem Fall ist es so, das irgendwo (z.B. in Tabelle2, Spalte A) ein "Archiv" geführt werden muss über alle bereits vergebenen Nummern, denn andernfalls ist keine Vergleichsmöglichkeit vorhanden. Da es nur um den derzeit aktuellen Monat geht, müsstest du alle bereits vorhandenen Nummern für Oktober in dieses Archiv kopieren. Dann könntest du es mit folgendem Code versuchen:

Code:

Sub Nummernsuche()
Dim rngZelle As Range
Dim lngNummer As Long
Dim lngZaehler As Long
Dim bytNeu As Long
Dim lngErste As Long
Dim arrVorhanden()
Dim strNummer As String
ReDim arrVorhanden(0)
For lngZaehler = 1 To 99
strNummer = Format(Date, "yyyy") & _
Format(Date, "mm") & "G" & Format(lngZaehler, "00")
Set rngZelle = Columns("AE").Find(strNummer, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
ReDim Preserve arrVorhanden(0 To bytNeu)
arrVorhanden(bytNeu) = Right(rngZelle, 2) * 1
bytNeu = bytNeu + 1
Else
If Not IsError(Application.Match(strNummer, Worksheets("Tabelle2").Columns(1), 0)) Then
ReDim Preserve arrVorhanden(0 To bytNeu)
arrVorhanden(bytNeu) = lngZaehler
bytNeu = bytNeu + 1
Else
With Worksheets("Tabelle2")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
.Cells(lngErste, 1) = strNummer
End With
Exit For
End If
End If
Next lngZaehler
If arrVorhanden(0) 0 Then
bytNeu = Application.Max(arrVorhanden()) + 1
MsgBox Format(Date, "yyyy") & _
Format(Date, "mm") & "G" & Format(bytNeu, "00")
Else
MsgBox Format(Date, "yyyy") & _
Format(Date, "mm") & "G01"
End If
Set rngZelle = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

xlph · 9. Oktober 2014

Hallo Krug96,

dann ist die von mir erstellte Datei genau richtig.

krug96 · 13. Oktober 2014

Hallo,

vielen Dank für eure Hilfe und Zeit.

Office: Nummerngenerator für eine UserForm

Nummerngenerator für eine UserForm

Nummerngenerator für eine UserForm

Nummerngenerator für eine UserForm

Nummerngenerator für eine UserForm - Similar Threads - Nummerngenerator UserForm

einfache suche via userform wie im browser

Monats Kalender über Userform

Userform unterdrücken - wenn Datei von andere Datei geöffnet wird

UserForm in Office 2019 für MacOS fehlt

Userform Login Benutzername in Zelle schreiben

Datum in Userform formatieren

UserForm zum bearbeiten von Tabellen und speichern