Code optimieren
Alifa
a=1234 dann soll b=357 sein (1+2=3;2+3=5:3+4=7)
Mein Beispiel-Makro:
Sub Probieren()
Dim a, b
For Each a In Array(1234, 12345)
b = 1 * (Mid$(a, 1, 1)) + 1 * (Mid$(a, 2, 1)) & _
1 * (Mid$(a, 2, 1)) + 1 * (Mid$(a, 3, 1)) & _
1 * (Mid$(a, 3, 1)) + 1 * (Mid$(a, 4, 1))
MsgBox b
Next
End Sub
Gruß, Alifa