Makro für binäre Zahl
alifa
mein Makro soll eine Zahl suchen, die nur aus 1 und 0 besteht. Hat nichts mit binär zu tun.
Option Explicit
'Die gesuchte Zahl ist die kleinste, die restlos durch 225 teilbar ist und
'soll nur aus den Ziffern 1 und 0 bestehen.
Public Sub NurEinsenUndNullen()
Dim Zahl As Variant
Zahl = "1111111111111111111111111110"
Dim L As Variant, n%, m%
For L = 1 To Zahl
For n = 2 To 9
For m = 2 To 27
If Mid(L, m, 1) n Then
If (CDec(L)) Mod 225 = 0 Then
MsgBox "Treffer bei " & L
Exit Sub
End If
End If
Next
Next
Next
End Sub
Es kann eine große Zahl werden. Die kleineren habe ich schon mit einem anderen Makro getestet. So funktioniert es leider nicht . Kann jemand helfen? Danke im Voraus
Gruß, Erhard