Schriftlich Rechnen mit Hilfe von VBA

Diskutiere Schriftlich Rechnen mit Hilfe von VBA im Excel 2010 Forum Forum im Bereich Office 2010 Forum; In einem anderen Forum fand ich folgendes VBA skript, das als Text formatierte Zahlen schriftlich multipliziert: Function mult_text(m1 As...

  1. layaxx

    layaxx Neuer Benutzer

    Dabei seit:
    28.12.2012
    Beiträge:
    7
    Zustimmungen:
    0
    Version:
    Professional 64Bit
    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
    ____________________________________________________________________

    Kann man das so verändern, das es möglich ist, schriftlich zu dividieren und subtrahieren?

    Vielen Dank im Vorraus,
    Yannick Lang
     
  2. pefo

    pefo Erfahrener Benutzer

    Dabei seit:
    14.12.2009
    Beiträge:
    10.897
    Zustimmungen:
    2
    Version:
    W7 Enterprise x64
    System:
    AMD Phenom II X4 3,2 GHz - 8GB Ram - 8TB HD
Thema:

Schriftlich Rechnen mit Hilfe von VBA

Die Seite wird geladen...

Schriftlich Rechnen mit Hilfe von VBA - Ähnliche Themen

  1. Indirekte Frischzellenkur für bisherige Windows-7-Rechner, die Windows 10 nicht packen

    Indirekte Frischzellenkur für bisherige Windows-7-Rechner, die Windows 10 nicht packen: Kaum war der 14. Januar 2020 mit dem Ende von Win7 gekommen, bin ich der ersten Person begegnet, die mich fragte, wie sie denn nun ihr...
  2. HILFE! Win7 startet nicht mehr mit SSD Platte

    HILFE! Win7 startet nicht mehr mit SSD Platte: Hallo, habe folgendes Phänomen: Habe als Sytemplatte eine SSD mit Win7/64 Habe kürzlich eine zweite 500GB WD Blue SSD dazu erworben, eingebaut...
  3. Win 7 auf alten xp-Rechner

    Win 7 auf alten xp-Rechner: Hallo zusammen, ich habe vor Jahren eine Win 7-Programm-CD gekauft mit Win-Code drauf. Jetzt habe ich mit dieser CD auf meinem alten xp-Rechner...
  4. Bluesreen of Death bei bestehender Remote Desktop Verbindung wenn der eigene Rechner aus...

    Bluesreen of Death bei bestehender Remote Desktop Verbindung wenn der eigene Rechner aus...: Ich habe einen Windows 7 Rechner als Arbeitsrechner und verbinde diesen über Remote Desktop mit einem Windows 10 Rechner, der im wesentlichen die...
  5. Backup Rechner Windows Lizenz

    Backup Rechner Windows Lizenz: Guten Tag, trotz dem Gespräch mit dem Windows Support konnte ich meine Frage jetzt nicht final klären, da er mich auch relativ schnell abgewürgt...
  1. Diese Seite verwendet Cookies um Inhalte zu personalisieren. Außerdem werden auch Cookies von Diensten Dritter gesetzt. Mit dem weiteren Aufenthalt akzeptierst du diesen Einsatz von Cookies.
    Information ausblenden