Format-Funktion in VB

Hallo Leute,
Hilfe!
Kann mir jemand bitte folgendes erklären:
In Zellen A1:A15 stehen die Zahlen bzw. Texte 10 bis 1F (also hexadezimale Zahlen).
Nun schreibe ich per VB die folgende Sub:


Sub Hexa()
For Each c In [B1:B16]
c.Value = Format(c.Offset(0, -1), "00")
Next
End Sub

In B1:B16 sollten nun im Prinzip nochmal die Zahlen drinstehen. Das klappt auch ganz gut, bis auf "1A", dort wird komischerweise "0" ausgegeben. Warum?
Ich benötige die Format-Funktion, da ich manchmal auch nur einstellige Zahlen habe, die aber 2-stellig ausgegeben werden sollen. Oder hat jemand eine andere Idee? Gut, man könnte mit Length usw., aber warum geht es nicht so?
Noch 'ne Frage: geht das auch ohne For..Next? Ich habe schon probiert mit


[B1:B16] = Format([A1:A16].Value, "00")

aber das geht nicht. Merkwürdigerweise geht aber



[B1:B16] = [A1:A16].Value

, da werden die Werte nochmal übernommen.
Besten Dank schon mal für eine Antwort.
Gruß aus Berlin,
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function RightFix(ByVal S As Variant, _ Optional ByVal Lg As Long = 12, _ Optional ByVal FuellZeichen as String = " ") As String RightFix = Right(String(Lg, FuellZeichen) & S, Lg) End Function

Hallo Björn,
niemand will das Rad neu erfinden! Ich habe hier lediglich einen Auszug aus einer _ Konvertierungsfunktion gezeigt, die fehlerhaft ist. Im wesentlichen geht es darum, die hexadezimalen Werte aus 2 Spalten in eine Dezimalzahl zu konvertieren und diese in die Spalte daneben zu schreiben. Dies geschah bisher mit


c.Value = CInt("&H" & c.Offset(0, -5) & Format(c.Offset(0, -4), "00"))

in einer For-Next-Schleife und funktionierte auf dem ersten Blick ganz gut.
Die Format-Funktion benötigte ich, da die Hexadezimalzahlen auch mal einstellig sein könnten und die Formel somit ein falsches Ergebnis liefern würde. Ich benötige hier keine führende Null, sondern lediglich ein zweistelliges Ergebnis.
Meine Frage ist ja eigentlich auch, warum der Fehler nur bei Hez-Zahlen mit einer "A" als zweiter Ziffer ist! Bei allen anderen hexadezimalen Ziffern (also auch B..F) funktioniert die Formel, wie auch schon ransi richtig erkannt hat. Das hat dann auch nichts mehr mit alphanumerisch oder so zu tun, oder?
Inzwischen habe ich mir aber damit beholfen, die beiden Zahlen nicht zusammen, sondern ganz _ konventionell einzeln zu konvertieren und entsprechend zu multiplizieren:


c.Value = CInt("&H" & c.Offset(0, -5)) * 256 + CInt("&H" & c.Offset(0, -4))

Etwas aufwändiger, funktioniert aber. Zufriedenstellend ist das trotzdem nicht!
Trotzdem vielen Dank für deine Zeit und deinen Versuch, meine Frage zu beantworten.
Thomas

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread