Zufallsstring in Bereich
20.03.2006 19:09:13
KlausF
ich habe ein Makro, dass mir in Zelle B2 einen Zufallsstring auswirft, der in Zeichenauswahl und Länge variabel ist. Es soll nun der Rest der Spalte von B3:B100 ebenfalls mit einem Zufallstring gleicher Art ausgefüllt werden. Kann mir jemand dabei helfen?
Danke im voraus für Antworten
Klaus
Sub Randomize()
'Zeichenauswahl:
Auswahl = Range("D1").Value
'Länge des Passworts:
For i = 1 To Range("D2").Value
'Zufallsgenerator:
Zufall = Int(Rnd * Len(Auswahl)) + 1
Zeichen = Mid(Auswahl, Zufall, 1)
'Zusammensetzen:
Passwort = Passwort & Zeichen
Next i
Ausgabe:
Range("B2").Value = Passwort
End Sub