Letzte Ziffer einer Zahl ermitteln?

Ich möchte die letzte Ziffer einer Zahl in einer Zelle ermittel! z.B. 123456789. In dem Bsp. die 9. Dafür brauche ich einen VBA Code.

Answer 1

[Girschdien]

Wenn die Ziffer im Feld A1 steht, ist dies die Formel (braucht kein VBA)

= A1-PRODUKT(QUOTIENT(A1;10);10)

(auch wenn das auf den ersten Blick sinnlos erscheint, aber QUOTIENT gibt nur das ganzzahlige Ergebnis einer Division zurück, schneidet also alles hinter dem Komma ab)

Comments

[PWolff]

Äquivalent:

= REST(A1;10)

[Girschdien]

Ich sehe schon, ich denke zu kompliziert (und kenne nicht alle Funktionalitäten von Excel)

Answer 2

[Suboptimierer]

Um Typcasting zu vermeiden und da die Restfunktion von VBA noch nicht vorgestellt wurde, schlage ich vor:

Excel:

=REST(A1;10)

VBA:

  Range("B1").Value = Range("A1").Value Mod 10

Comments

[Jackie251]

die Idee mir Rest ist auch sehr schön

Answer 3

[geri3d]

Die Frage wurde ja schon beantwortet ohne VBA, hier noch eine Anwort wie es im VBA Code aussieht. ( vom Prinzip her das selbe )

Sub Tues()
   MsgBox Right(Cells(1, 1), 1)
End Sub

Woher ich das weiß: Berufserfahrung – Softwareentewickler / Unternehmensberater bei CSDIT iR

Answer 4

[Ninombre]

i = Right(Cells(1, 1).Value, 1)

Das wäre die Umsetzung der Formel, die Jackie251 schon genannt hat, für VBA. Das i ist jetzt nur eine Beispielvariable

Comments

[Jackie251]

super, das VBA hatte überlesen :-D

Answer 5

[Jackie251]

Das geht sehr einfach mittels

=RECHTS(A1;1)*1