AW: Hexadezimal
12.01.2006 18:32:14
Andi
Hi,
die is aber aus irgendeinem addin, oder?
Ich hab die jedenfalls nicht, hab aber auch keine addins installiert.
Die Recherche fördert folgende benutzerdefinierte Funktion von einem gewissen Hans W. Hoffmann zutage:
Function Dez2Basis(zahl As Long, basis As Integer) As String
Dim h: h = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "A", "B", "C", "D", "E", "F")
Dim mask As Long: mask = 1
Do
mask = zahl Mod basis
zahl = Int(zahl / basis)
Dez2Basis = h(mask) & Dez2Basis
Loop Until zahl < 1
End Function
Den Code in ein Standdard-Modul kopieren, dann kann die Funktion in der Mappe wie jede andere verwendet werden; damit kann man Dezimalzahlen wahlweise in Binär-, Oktal- oder Hex-Zahlen umwandeln:
=Dez2Basis(A1;2) ergibt binär
=Dez2Basis(A1;8) ergibt oktal
=Dez2Basis(A1;16) ergibt hex
Schönen Gruß,
Andi
