In einem anderen Forum fand ich folgendes VBA skript, das als Text formatierte Zahlen schriftlich multipliziert:
Function mult_text(m1 As String, m2 As String) As String
Dim erg() As String
Dim rest() As Integer
Dim ii%, jj%, summ%
Application.Volatile
ReDim erg(Len(m2))
ReDim rest(Len(m2) + Len(m1) + 1)
For ii = 0 To Len(m2)
For jj = 1 To Len(m1) + Len(m2)
erg(ii) = erg(ii) & " "
Next jj
Next ii
For ii = 1 To Len(m2)
rest(0) = 0
For jj = Len(m1) To 1 Step -1
Mid(erg(ii), jj + ii, 1) = (Mid(m1, jj, 1) * Mid(m2, ii, 1) + rest(0)) Mod 10
rest(0) = Int((Mid(m1, jj, 1) * Mid(m2, ii, 1) + rest(0)) / 10)
Next jj
Mid(erg(ii), ii, 1) = rest(0)
Next ii
rest(0) = 0
For jj = Len(m1) + Len(m2) To 1 Step -1
summ = 0
For ii = 1 To UBound(erg)
summ = (IIf(Mid(erg(ii), jj, 1) = " ", 0, Mid(erg(ii), jj, 1)) * 1 + summ)
rest(jj) = IIf(Mid(erg(ii), jj, 1) = " ", 0, Mid(erg(ii), jj, 1)) * 1 + rest(jj)
Next ii
Mid(erg(0), jj, 1) = (summ + rest(jj + 1)) Mod 10
rest(jj) = Int((rest(jj) + rest(jj + 1)) / 10)
Next jj
While Left(erg(0), 1) = „0“
erg(0) = Right(erg(0), Len(erg(0)) - 1)
Wend
mult_text = erg(0)
End Function
______________________________________________________________________
Ich bräuchte das jetzt so verändert, das es auch schriftlich dividieren und subtrahieren kann.
Vielen Dank im Vorraus,
Yannick Lang