bin heute echt zu blöd für alles.
Ganz einfacher Fall ich generiere ein PW mit
Sub Test()
MsgBox Pwd(10)
End Sub
Function Pwd(iLength As Integer) As String
Dim i As Integer, iTemp As Integer, bOK As Boolean, cOK As Boolean, strTemp As String
'33 - 47 = Sonderzeichen, 48-57 = 0 To 9, 65-90 = A To Z, 97-122 = a To z
For i = 1 To iLength 'Passwortlänge
Do
iTemp = Int((122 - 33 + 1) * Rnd + 33)
Select Case iTemp
Case 33 To 47, 48 To 57, 65 To 90, 97 To 122: bOK = True
Case Else: bOK = False
End Select
Loop Until bOK = True
bOK = False
strTemp = strTemp & Chr(iTemp)
Next i
Pwd = strTemp
End Function
am Ende will ich prüfen ob alle 4 Kriterien wie Gross- und Kleinbuchstaben, Zahlen und Sonderzeichen im PW vorkommen nur wie ?hab schon div. CASE Varianten durch ;(
p.s. ist nicht im Excel sondern Outlook VBA
Gruß Bernd