Ich habe da ein kleines Problem:
Ich brauche die letzten beiden Stellen einer 10stelligen Zahl (zBsp 49 von 6152859549).
Für die Mod Funktion ist diese Zahl zu groß, somit muß ich die Excel-Funktion Rest benutzen.
Die 10stellige Zahl befindet sich in Spalte B,
die letzten 2 Stellen sollen in der selben Zeile in Spalte A stehen.
Idee für Zelleninhalt in A2 in Excel:
=WENN(B2-615285950=0;0;RECHTS(B2;2))'Wenn 615285950-615285950=0 dann 0 eintragen
'ansonsten letzte beiden Zahlen der Zahl
'in A2 eintragen
Ansatz war
'ActiveCell in Spalte A
i = 2 'i Zeilen-Zähler
j = 0
If ActiveCell.Offset(0, 1).Value = 615285950 Then
ActiveCell.Value = 0
Else: 'j = ActiveCell.Offset(0, 1).Value
'ActiveCell.Value = Right(j, 2)
'ActiveCell.Value = WorksheetFunction.Rechts("B" & i ";2")
j = ActiveCell.FormulaLocal = "=Rechts(B" & i & ";2)"
ActiveVell.Value = j
End If
Laufzeitfehler 424
Objekt erforderlich
Ich hatte eine funktioniernde Lösung mit FormulaLocal Rechts,
das Problem war, das beim Auslesen der Zelle in Spalte A nur die Rest-Formel ausgegeben wurde und nicht die in der Tabelle angezeigte korrekte Zahl.
Daher meine Idee in VBA die Zahl mit Rest ermitteln zu lassen und diese der Variablen j zu übergeben und diese dann der Zelle in Spalte A zu übergeben.
So die Theorie, aber wie bekannt ist die Theorie noch lange keine Praxis.
Hat jemand eine Idee wie dies umsetzbar wäre?
Ich sehe mittlerweile vor lauter Bäume keinen Wald mehr...oder so...
Danke schonmal
René