Zitat Zitat von Che Guevara Beitrag anzeigen
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...
Das hier hatte funktioniert:
Code:
Sub Walze_drehen()
Local Cell_1 As Byte
  Cell_1 = Walze_1(1)
For Pointer_1 = 1 To 26
   Tmp = Pointer_1 + 1
   If Tmp = 27 Then
     Walze_1(pointer_1) = Cell_1
   Else
     Walze_1(pointer_1) = Walze_1(tmp)
   End If
     Walze_1_inv(walze_1(pointer_1)) = Pointer_1
Next Pointer_1
End Sub
Fehler: If Reflektor = 27 Then Reflektor = 1 wurde ausgebessert ?