Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Passwörter generieren

Forumthread: Passwörter generieren

Passwörter generieren
21.10.2002 22:04:42
STH
Wie kann ich ein Tabellenblatt erstellen, in dem in ca. 50 Zellen verschiedene Passwörter mit jeweils 8 Zeichen automatisch erstellt werden.

Die Passwörter sollten eine Mischung aus Groß- und Kleinbuchstaben und Zahlen sein.

Vielen Dank schon vorab

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Passwörter generieren
21.10.2002 22:10:29
josef
hallo sth (?)

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

Anzeige
Re: Passwörter generieren
22.10.2002 21:53:55
sth = Stefan Thomas
Tausend Dank Joseph

Das war genau was ich suchte!
Von hier aus werd ich versuchen weiterzukommen.

Gruss
Stefan

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige