Hallo,
willst du "?????? ???????" nachbauen ? Wie heißt es auf Deutsch ... "Glücksrad" ?
Uralt das Zeug ... aber da gibt es doch genug im Netz zu ...
Ich würde es auf der Tabelle machen ... ein Code dazu könnte so aussehen.
1 2 3 4 5 6 7 8 9 10 | Private Sub Worksheet_Change( ByVal Target As Range)
Dim i As Long
With ActiveSheet
If Target.Address(0, 0) = "A2" Then
For i = 1 To Len(Target.Text)
.Cells(6, i).Value = Mid(Target.Text, i, 1)
Next i
End If
End With
End Sub
|
Wenn du in A2 etwas schreibst, wird das Wort in Zeile 6 in Buchstaben zerlegt angezeigt.
In der Userform brauchst du immer genau so viele Labels, wie wie Buchstaben da sind, falls mal eines fehlt, hast du schon Pech gehabt.
VG Sabina
|