Hallo Community
Bedingt durch Sonderzeichen und Steuerzeichen,wäre das mein Vorschlag!
Zeichenstring ist mit gewünschten Zeichen zu ergänzen.
Ziehung erfolgt ohne Doppelte!
Gruß Nighty
Sub Zufall()
Randomize Timer
Dim Zeichen As String
Dim Zelle As Object
Dim Gezogen As Integer
Zeichen = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
For Each Zelle In Range("A1:AZ35")
Gezogen = Int(Rnd * Len(Zeichen)) + 1
Cells(Zelle.Row, Zelle.Column) = Mid(Zeichen, Gezogen, 1)
Zeichen = Mid(Zeichen, 1, Gezogen - 1) & Mid(Zeichen, Gezogen + 1, Len(Zeichen))
Next Zelle
End Sub