Hallo liebe Community,
ich stehe gerade vor einer Aufgabe, bei der ich nicht weiterkomme.
Es soll eine 8-stellige Nummer erzeugt werden, die in 2 Hälften geteilt sein soll, die erste Zahl soll zwischen Zufallszahl zwischen 1-9 sein (damit keine mit einer 0 beginnt), die andere Hälfte (7 Zahlen) ebenfalls eine Zufallszahl, jedoch im Format "0000000" - hinzukommt, dass die Zahl einmalig vergeben werden sein kann, sprich Abfrage Duplikat.
Mit einer InputBox soll die Anzahl der zu vergebende Nummern abgefragt werden.
Im Sheet "Nummer" ab Zelle A2 sollen die vergebene Nummer dokumentiert werden, im Sheet "Liste" sollen die vergebene Nummern aufgelistet werden.
mein bisheriger Code (ohne Erfolg) - ich hoffe ihr könnt mir hier weiterhelfen? fehlt die Prüfung des Duplikats und Fortsetzung bis 15 Nummern vergeben worden sind?
Dim a, b, c, z, Num1, Num2, NumA as String
a = InputBox(Anzahl Nummer")
If a = "" Then Exit Sub
ActiveWorkbook.Sheets("Liste").Range("B2:B67000").ClearContents
For b = 1 To a
Num1 = ""
Num2 = ""
Num1 = Format(Int((9 * Rnd) + 1), "0")
Num2 = Format(Int((9999999 * Rnd) + 1), "0000000")
NumA = Num1 & Num2
? Do While Not ? Is Nothing
?
? Loop
ActiveWorkbook.Sheets("Liste").Range("B" & ActiveWorkbook.Sheets("Liste").Cells(Rows.Count, 2).End(xlUp).Row + 1).Value = NumA
Next b
Danke und LG