Die Endziffern von Zahlen - VBA
17.12.2004 18:37:35
Giuseppe
Ich möchte gerne die Endziffern von Zahlen darstellen lassen,
bzw. weiter verrechnen...
Es geht einfach nicht wie ich will, was mach ich falsch?
Beispiel:
Sub Endziffern()
Dim M45A As Integer, M45B As Integer, M45C As Integer
Dim M45AX As Integer, M45BX As Integer, M45CX As Integer
M45A = 5
M45B = 8
M45C = 12
With WorksheetFunction
M45AX = .Mid(.Text(M45A, "00"), 2, 1)
M45BX = .Mid(.Text(M45B, "00"), 2, 1)
M45CX = .Mid(.Text(M45C, "00"), 2, 1)
MsgBox .Average(M45AX), , M45A
MsgBox .Average(M45BX), , M45B
MsgBox .Average(M45CX), , M45C
End With
End Sub
In meinem Beispiel, "formatiere" (Text) ich die evt. einstellige Zahl in eine
zweistellige.
Bitte um Hilfestellung
mfG
Giuseppe