Enigma auf dem µC

[Che Guevara]

Oooh stimmt, danke
Habs jetzt so gemacht:

Sub Walze_drehen()
Tmp2 = Walze_1(1)
For Pointer_1 = 1 To 26
   Tmp = Pointer_1 + 1
   If Tmp = 27 Then Tmp = 1
   Walze_1(pointer_1) = Walze_1(tmp)
   If Pointer_1 = 26 Then
      Walze_1(26) = Tmp2
   End If
   Walze_1_inv(walze_1(pointer_1)) = Pointer_1
Next Pointer_1
End Sub

Jedoch behebt das immer noch nicht mein Problem -.- Ich denke, mit Walze_1_inv stimmt was noch nicht, aber da muss ich mich erst wieder reindenken...

Gruß
Chris