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.
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
|