title image


Smiley Re: Passwortgenerator in VBA oder Excel
HalloSub Passwörter_Generieren()Dim n As IntegerDim Zufallszahl As IntegerDim Passwort As StringFor n = 1 To 2000Passwort = 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) = 8Worksheets("Tabelle1").Cells(n, 1).Value = PasswortNext nEnd Submfg, GraFri

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: