Hallo Forum.

Ich verarbeite Daten, die als "Kennung" einen Wert einer 2-Potenz haben (1,2,4,8 usw)

Wie kann ich z. B. aus dem Wert "256" ohne Loop ermitteln, dass dies die 8. Potenz von 2 ist????

Meine Loop-Lösung:
Sub PTest()
Dim W As Long
Dim P As Long
W = 2 ^ 8
Do While W > 1
W = Int(W / 2)
P = P + 1
Loop
Debug.Print P
End Sub

Gruß Joschi