Variablen verketten
06.06.2005 18:26:00
Schiele
ich habe Zufallswerte erstellen lassen und möchte diese miteinander verbunden in eine Zelle auslesen lassen.
Wie kann ich im unten angegebenen Beispiel ein vierstelliges Passwort erstellen lassen? Ich möchte das "vierstellige" auch Variabel gestalten, also z.B. in einem Formularfeld sagt der Anwender, dass er ein vier-,fünf,zehnstelliges Passwort möchte.
Vielen Dank
Sub Passwort()
Dim arrd, sA
arrd = Array("1", "2", "A", "Z")
Randomize
sA = arrd(Int((4 * Rnd) + 0))
MsgBox sA
'ActiveCell.Formula = 4 * (sA)
'ActiveCell.Offset(1, 0).Select
'MsgBox sA & sB & sC & sD
End Sub
Anzeige