Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Passwort/String Generierung

Passwort/String Generierung
22.11.2006 19:04:20
Jörg
Hallo,
könnt Ihr mir weiter helfen das wäre echt super. Ich habe in einer Liste ca. 800 Einträge. Dazu soll in einer neunen Spalte ein String (Passwort) generiert werden das 8 Zeichen von A-Z, Groß+Klein, Ziffern von 0 bis 9, aber keine Sonderzeichen enthält. Jeder Eintrag soll einmalig sein.
Wie geht das? Es wäre echt super, wenn Ihr mir weiterhelfen könntet.
Vielen Dank und Grüß Jörg

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Passwort/String Generierung
22.11.2006 19:55:00
ChrisL
Hallo Jörg
Viel Spass...
Chris
Sub PWGenerator()
Dim iZeile As Long
For iZeile = 1 To Range("A65536").End(xlUp).Row
Cells(iZeile, 2) = PWGen(8)
If WorksheetFunction.CountIf(Columns(2), Cells(iZeile, 2)) > 1 Then iZeile = iZeile - 1
Next iZeile
End Sub

Private Function PWGen(AnzZeichen As Byte) As String
Dim i As Byte, bZufall As Byte
Dim OK1 As Boolean, OK2 As Boolean, OK3 As Boolean
Randomize
Do Until OK1 And OK2 And OK3
OK1 = False
OK2 = False
OK3 = False
PWGen = ""
For i = 1 To AnzZeichen
bZufall = Int((62 * Rnd) + 1)
If bZufall > 36 Then
bZufall = bZufall + 60
OK1 = True
Else
If bZufall > 10 Then
bZufall = bZufall + 54
OK2 = True
Else
bZufall = bZufall + 47
OK3 = True
End If
End If
PWGen = PWGen & Chr(bZufall)
Next i
Loop
End Function

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige