Hex in Dec

Forumthread: Hex in Dec

Hex in Dec

11.11.2005 15:31:52

Christian

Hallo zusammen,
ich habe Tabellenblätter mit Hex-Name (4stellig, z.B. 6BD0) und möchte diese in die entsprechenden Dezimale umbenennen. Ich weiß, wie ich an den Tabellennamen kommen, kann ihn als String im Makro "verwursten", nur die Funktion, diesen String in eine Dezimalzahl zu drehen, das weiß ich nicht.
Danke + Grüße
Christian

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Hex in Dec

11.11.2005 15:48:26

Worti

AW: Hex in Dec

11.11.2005 15:48:26

Worti

Hallo,
ohne Prüfung, ob es ein gültiger Hexwert ist, so:


Sub HexName()
Dim ws As Worksheet
Set ws = ActiveSheet
ws.Name = CStr(Val("&H" & ws.Name))
End Sub

Gruß Worti

Forumthread: Hex in Dec

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread