Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

dezinhex funktion

dezinhex funktion
16.07.2003 15:11:38
James
hallo kurze frage,
ich möchte via makro die tabellenfunktion Dezinhex durchführen. Das problem ist das ich diese funktion normalerweise nicht funktioniert wenn das entsprechende addin nicht installiert ist. Gibt es eine möglichkeit dies über makro zu lösen. Hab keine ahnung wie ich das machen würde...
Vielen dank

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: dezinhex funktion
16.07.2003 15:25:29
Günther t
im prinzip kein problem - musst nur umrechnen:
dezimal ist so aufgebaut:
ps: 10(0) = 10 hoch 0
eine zahl zb: 234234 = 4*10(0) +3*10(1)+2*10(2)+3*10(3)
und bei hex is es ganz gleich nur das die Basis 16 ist = x*16(0) + y*16(1) und wenn du 10 hast dann schreibt man statt 10 = A hin bzw so weiter 11=B 12 =C etc....
also musst du nur noch umrechnen und du hast dein macro!
lg

AW: dezinhex funktion
16.07.2003 21:01:59
Sigi E.
Hallo James,
mit folgender VBA-Funktion ...

Function DEZinHEX(Zahl As Long) As String
Dim Flagg As Boolean
Dim Ausgabe As String
Dim Exp As Long
Dim Wert As Long
'nur für natürliche Zahlen kleiner 2.147.483.648 (2 hoch 31)
If Zahl <= 2147483647 And Zahl = Int(Zahl) Then
For Exp = 7 To 0 Step -1
If Zahl >= (16 ^ Exp) Then
Wert = Zahl \ (16 ^ Exp)
Select Case Wert
Case 15
Ausgabe = Ausgabe & "F"
Flagg = True
Case 14
Ausgabe = Ausgabe & "E"
Flagg = True
Case 13
Ausgabe = Ausgabe & "D"
Flagg = True
Case 12
Ausgabe = Ausgabe & "C"
Flagg = True
Case 11
Ausgabe = Ausgabe & "B"
Flagg = True
Case 10
Ausgabe = Ausgabe & "A"
Flagg = True
Case 1 To 9
Ausgabe = Ausgabe & CStr(Wert)
Flagg = True
Case 0
If Flagg = True Then
Ausgabe = Ausgabe & CStr(Wert)
End If
End Select
Zahl = Zahl - (Wert * (16 ^ Exp))
Else
If Flagg = True Then
Ausgabe = Ausgabe & "0"
End If
End If
Next Exp
If Zahl = 0 And Ausgabe = "" Then
Ausgabe = "0"
End If
Else
Ausgabe = "#WERT!"
End If
DEZinHEX = Ausgabe
End Function

Gruß
Sigi

Anzeige
SUPER!
18.07.2003 10:39:44
James
vielen vielen Dank :)

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige