Passwort-Generator
Manfred
ich finde mal wieder den Fehler nicht. Habe das Makro aus dem Forum.
In Zelle F6 gebe ich die Anzahl der neu anzulegenden Passwörter ein, nur das stimmt nicht.
Gebe ich den Wert 1 ein, funzt das Makro nicht.
Gebe ich den Wert 2 ein wird 1 Passwort angelegt.
Gebe ich den Wert 5 ein werden 4 Passwörter angelegt.
Also immer 1 Passwort zu wenig
Sub Pw_Generator()
Dim i, y, PWP, PWC
Dim PW As String
Randomize
For i = 2 To ActiveSheet.Range("F6") 'Anzahl der Passwörter
For y = 1 To ActiveSheet.Range("F2") 'Zeichenlänge
PWC = (90 - 48 + 1) * Rnd + 48
PWP = ChrW(PWC)
PW = PW & PWP
Cells(i, 1).Value = PW
Next y
PW = ""
Next i
End Sub
Weis jemand Rat ?
Mit freundlichen Grüßen
Manfred