Die Passwörter sollten eine Mischung aus Groß- und Kleinbuchstaben und Zahlen sein.
Vielen Dank schon vorab
Die Passwörter sollten eine Mischung aus Groß- und Kleinbuchstaben und Zahlen sein.
Vielen Dank schon vorab
hier ein code:
Sub Passwörter_Generieren()
Dim n As Integer
Dim Zufallszahl As Integer
Dim Passwort As String
For n = 1 To 50
Passwort = vbNullString
Do
Randomize
Zufallszahl = Int(48 + Rnd * (122 - 48 + 1))
Select Case Zufallszahl
Case 48 To 57, 65 To 90, 97 To 122
Passwort = Passwort & Chr$(Zufallszahl)
Case Else
End Select
Loop Until Len(Passwort) = 8
Worksheets("Tabelle1").Cells(n, 3).Value = Passwort
Next n
End Sub
Das war genau was ich suchte!
Von hier aus werd ich versuchen weiterzukommen.
Gruss
Stefan
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen