Office: RVNR + Prüfziffer berechnen

Helfe beim Thema RVNR + Prüfziffer berechnen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, *Smilie ich habe folgendes Problem und bisher in keinem Forum eine gute Lösung finden können. Ich möchte, dass aus einem Textfeld... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Webstyler, 13. Oktober 2008.

  1. RVNR + Prüfziffer berechnen


    Hallo zusammen, *Smilie

    ich habe folgendes Problem und bisher in keinem Forum eine gute Lösung finden können.

    Ich möchte, dass aus einem Textfeld heraus (welches auf einem VBA Userform in Excel platziert ist) folgende Berechnung der Prüfziffer der deutschen Sozialversicherungsnummer stattfindet:

    So sieht eine Bsp. RVNR aus: 13140788D014
    (die letzte Ziffer ist die Prüfziffer, diese ist aus Datenschutzgründen jedoch falsch)

    ' Die Prüfziffer wird wie folgt berechnet:
    ' a) Die zwölfte Stelle, die Prüfziffer, wird errechnet, indem der Buchstabe
    ' in der neunten Stelle durch eine zweistellige Zahl ersetzt wird, die
    ' die Position des Buchstabens im deutschen Alphabet kennzeichnet.
    ' b) Die Ziffern der damit zwölfstelligen Nummer werden - an der ersten
    ' Stelle beginnend - mit den Faktoren
    ' 2, 1, 2, 5, 7, 1, 2, 1, 2, 1, 2 und 1 multipliziert.
    ' c) Von den Produkten werden die Quersummen gebildet.
    ' d) Die Quersummen werden addiert.
    ' e) Die Summe wird durch 10 dividiert.
    ' f) Der verbleibende Rest ist die Prüfziffer.

    Hat jemand eine Idee, wie ich das mit einem Textfeld verwirklichen kann? *rolleyes.gif*

    Für jede Hilfe wäre ich sehr dankbar!!!*Smilie

    DANKE!
    Tom

    :)
     
    Webstyler, 13. Oktober 2008
    #1
  2. Hallo Tom,

    das geht zum Beispiel so:

    Code:
     
  3. OfficeUser Neuer User
    Hallo Tom,

    nachdem nun meine WWW-Verbindung nach ca. 25 Minuten "Denkpause" *confused.gif* wieder funktioniert, hier noch mein Lösungsvorschlag : nach meinem Verständnis funktioniert das mit diesem Makro (in Textbox1 steht die ursprüngliche Nr. - mit dem Buchstaben an 9.Stelle, das Ergebnis wird in Textbox2 geschrieben !) :

    Private Sub CommandButton1_Click()
        Dim intS As Integer, intT As Integer, intZ As Integer
        Dim strMultiplikator As String
        strMultiplikator = "212571212121"

        'Buchstaben an 9.Stelle durch 2-stellige Pos. im Alphabet ersetzen:
        strTemp = Left(TextBox1, 8) & Format(Asc(Mid(TextBox1, 9, 1)) - 64, "00") & _
            Mid(TextBox1, 10, 2)

        intS = 0
        For intT = 1 To Len(strTemp)
            'Multiplikation der Ziffern durchführen :
            intZ = Val(Mid(strTemp, intT, 1)) * Val(Mid(strMultiplikator, intT,  1))
            'Quersumme addieren :

            intS = intS + intZ \ 10 + intZ Mod 10
        Next
        MsgBox intS 'Summe der Quersummen - nur zur Kontrolle !

        TextBox2 = strTemp & intS Mod 10
    End Sub
    Code eingefügt mit Syntaxhighlighter 4.15
    Der Code ist dem CommanButton1 des UserForms zugeordnet !

    Für die Nr. 13140788D014 (bzw. 13140788D01) resultiert die RVNr. 1314078804016
     
    OfficeUser, 14. Oktober 2008
    #3
  4. RVNR + Prüfziffer berechnen

    Guten Morgen zusammen, *Smilie

    Danke für die sehr gute und sehr schnelle Hilfe! *hands

    @ IngGi: Jede Person die in Deutschland versicherungspflichtig Beschäftigt ist hat eine Rentenversicherungsnummer, natürlich konntest du dir diese jetzt frei errechnen (mit Prüfziffer). Allerdings kann es sein, dass diese Nummer jetzt nicht existiert.

    Ich arbeite bei einer Krankenversicherung und darf dann aus "Datenschutzgründen" z.B keine Versicherungsnummern von Leuten die bei uns versichert sind veröffentlichen.

    Theoretisch kannst du dir jetzt deine eigenen Rentenversicherungsnummern "erstellen" allerdings nutzt dir das nicht viel, da diese eventuell gar nicht existieren oder selbst wenn diese existieren nicht auf deinen Namen geschlüsselt sind (im System der Rentenversicherung). *wink.gif*

    Danke für die superschnelle und sehr gute Hilfe!! MOF ist super !!! *cool.gif* *Smilie

    Gruß
    Tom
     
    Webstyler, 14. Oktober 2008
    #4
  5. Hi ihr,
    ich wollte das mal als Formel in Excel haben, hier für alle, die es mal brauchen ;-)

    =WENN(RECHTS(WENN(LINKS(A2;1)*2>9;TEIL(LINKS(A2;1)*2;1;1)+TEIL(LINKS(A2;1)*2;2;1);LINKS(A2;1)*2)
    +RECHTS(LINKS(A2;2);1)
    +WENN(RECHTS(LINKS(A2;3);1)*2>9;TEIL(RECHTS(LINKS(A2;3);1)*2;1;1)+TEIL(RECHTS(LINKS(A2;3);1)*2;2;1);RECHTS(LINKS(A2;3);1)*2)
    +WENN(RECHTS(LINKS(A2;4);1)*5>9;TEIL(RECHTS(LINKS(A2;4);1)*5;1;1)+TEIL(RECHTS(LINKS(A2;4);1)*5;2;1);RECHTS(LINKS(A2;4);1)*5)
    +WENN(RECHTS(LINKS(A2;5);1)*7>9;TEIL(RECHTS(LINKS(A2;5);1)*7;1;1)+TEIL(RECHTS(LINKS(A2;5);1)*7;2;1);RECHTS(LINKS(A2;5);1)*7)
    +RECHTS(LINKS(A2;6);1)
    +WENN(RECHTS(LINKS(A2;7);1)*2>9;TEIL(RECHTS(LINKS(A2;7);1)*2;1;1)+TEIL(RECHTS(LINKS(A2;7);1)*2;2;1);RECHTS(LINKS(A2;7);1)*2)
    +RECHTS(LINKS(A2;8);1)
    +WENN(LINKS(TEXT(SPALTE(INDIREKT(LINKS(RECHTS(A2;4);1)&1));"00");1)*2>9;TEIL(LINKS(TEXT(SPALTE(INDIREKT(LINKS(RECHTS(A2;4);1)&1));"00");1)*2;1;1)+TEIL(LINKS(TEXT(SPALTE(INDIREKT(LINKS(RECHTS(A2;4);1)&1));"00");1)*2;2;1);LINKS(TEXT(SPALTE(INDIREKT(LINKS(RECHTS(A2;4);1)&1));"00");1)*2)
    +RECHTS(LINKS(TEXT(SPALTE(INDIREKT(LINKS(RECHTS(A2;4);1)&1));"00");2);1)
    +WENN(RECHTS(LINKS(A2;10);1)*2>9;TEIL(RECHTS(LINKS(A2;10);1)*2;1;1)+TEIL(RECHTS(LINKS(A2;10);1)*2;2;1);RECHTS(LINKS(A2;10);1)*2)
    +RECHTS(LINKS(A2;11);1);1)<>RECHTS(A2;1);"FALSCH";"korrekt")



    Christoph
     
    Alleinunterhater, 3. September 2021
    #5
  6. lupo1
    lupo1 Tutorial Guru
    Achtung, 13 Jahre alter Thread. Kürzer:

    B1:
    =A1&REST(SUMME(WENNFEHLER(--TEIL(
    TEIL(212571212121;ZEILE($1:$12);1)*TEIL(WECHSELN(A1;TEIL(A1;9;1);TEXT(CODE(TEIL(A1;9;1))-64;"00"));ZEILE($1:$12);1);
    {1.2};1);));10)


    für die komplette RVNR, nach Erstellung der Prüfziffer zu den 11 vorangehenden Stellen. Mit dem Teil REST... kann man diese bei einer fertigen 12stelligen RVNR entspr. prüfen.

    Hinweis: möglicherweise SUMME durch SUMMENPRODUKT ersetzen, je nach Version. Getestet mit 365.
     
    Zuletzt bearbeitet: 3. September 2021
  7. Cool, schön zu sehen, was man auf Level 2000 so macht ;-)

    13 Jahre alt und angesichts der unveränderten Faktoren in der Checksumme immer noch kackig jung und aktuell ;-)
     
    Alleinunterhater, 3. September 2021
    #7
Thema:

RVNR + Prüfziffer berechnen

Die Seite wird geladen...
  1. RVNR + Prüfziffer berechnen - Similar Threads - RVNR Prüfziffer berechnen

  2. Mittelwert berechnen

    in Microsoft Excel Hilfe
    Mittelwert berechnen: Servus ich würde gerne für die Arbeit eine Tabelle ermitteln die mir den Stundenlohn inkl. Trinkgeld abgibt. Dies soll alles ab K3 abgegeben werden. K wird wie folgt bestimmt: Stundenanzahl...
  3. in einer Berechnung einen 0 wert Ignorieren ?

    in Microsoft Excel Hilfe
    in einer Berechnung einen 0 wert Ignorieren ?: Guten Abend zusammen, ich bin eher der Hobby Excel User und stosse oft ein meine grenzen XD. Meist hilft mir YouTube aber diesmal leider nicht, ich bin gerade dabei alle Formeln aus meinen...
  4. Formular Berechnung

    in Microsoft Access Hilfe
    Formular Berechnung: Hallo, ich habe ein Problem, an dem ich mir im Moment die Zähne ausbeiße. Ich greife auf eine externe Excel - Tabelle als Datenbasis zu. Darüber habe ich eine Abfrage gelegt, um die relevanten...
  5. aktuelle Uhrzeit einmalig eintragen das nicht erneuert wird beim erneuten berechnen

    in Microsoft Excel Hilfe
    aktuelle Uhrzeit einmalig eintragen das nicht erneuert wird beim erneuten berechnen: Hallo hat jemand eine Idee wie ich die Formel ändern muss? Wenn in Zelle BF4 ein Wert eingetragen wird soll in Zelle BG4 die aktuelle Uhrzeit eingetragen werden die sich nicht mehr ändern darf....
  6. Stärkste Kombination berechnen/ausgeben

    in Microsoft Excel Hilfe
    Stärkste Kombination berechnen/ausgeben: Hallo, ich bräuchte Hilfe um mir eine automatische Berechnung der stärksten Teamkombination nach ihren jeweiligen Fähigkeiten ausgeben zu lassen. Und zwar habe ich in den Zeilen die jeweiligen...
  7. Staffelpreise Mengenrabatt

    in Microsoft Excel Hilfe
    Staffelpreise Mengenrabatt: Hallo zusammen, ich möchte gerne für eine Kalkulation folgendes darstellen. Wir haben Beispielsweise eine Staffelung von 20.000, 35.000, 60.000, 70.000 Produkten die abgenommen werden sollen...
  8. .xlsm - Formeln werden nicht berechnet

    in Microsoft Excel Hilfe
    .xlsm - Formeln werden nicht berechnet: Hallo zusammen, ich habe eine Arbeitsmappe mit einem kleinen Makro und ein paar "normalen" Berechnungen. Eine davon [...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden