control userpasswords2 hier noch etwas erweitert, fals man autologin braucht HIER

makro erstellen mit ALT+F11 Neues Modul Function LetterOut (rng As Range) Dim i As Integer For i = 1 To Len(rng) Select Case Asc(Mid(rng.Value, i, 1)) Case 0 To 64, 123 To 197 LetterOut = LetterOut & Mid(rng.Value, i, 1) End Select Next i End Function und dann neue spalte einfügen und die Formel =LetterOut(B3)z.B [...]