Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Passwort/String Generierung

Forumthread: 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
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige