Rentenversicherungsnummer

Forumthread: Rentenversicherungsnummer

03.07.2024 20:37:23

Erwin

Guten Abend,

aus einer Auswertung erhalte ich regelmäßig Exceltabellen mit korrupten Rentenversicherungsnummern; es ist jedoch immer das Geburtsdatum und der Buchstabe des Geburtsnamens enthalten; der Rest kann falsch sein, muss aber nicht.
Zur besseren Lesbarkeit würde ich gerne das 6-stellige Datum und den Buchstaben hervorheben (s. Beispielsdatei).
Ich stelle mir das so vor, dass ich über eine Inputbox das 1. RV-Aktenzeichen markiere und sich das Programm dann den Buchstaben in der Zelle sucht und blau markiert; anschließend vom Buchstaben ausgehend nach links das 6-stellige Datum rot markiert. Das ganze wäre perfekt, wenn der Code dann bis zum Ende der Spalte alles abarbeiten würde.
Beispieldatei: https://www.herber.de/bbs/user/170664.xlsb

Danke - Erwin

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Rentenversicherungsnummer

03.07.2024 21:00:43

Uduuh
AW: Rentenversicherungsnummer

03.07.2024 21:07:10

Erwin
AW: Rentenversicherungsnummer

03.07.2024 22:57:47

Uduuh
AW: Rentenversicherungsnummer

03.07.2024 23:02:15

Erwin

AW: Rentenversicherungsnummer

03.07.2024 21:00:43

Uduuh

Hallo,
für deine Datei:

Sub markieren()

  Dim rngC As Range

  Dim i As Integer

  Application.ScreenUpdating = False

  For Each rngC In Range(Cells(2, 4), Cells(Rows.Count, 4).End(xlUp)) 'Spalte D abklappern

    For i = Len(rngC.Value) To 1 Step -1

      If Not IsNumeric(Mid(rngC, i, 1)) Then

        With rngC.Characters(i, 1).Font

          .Color = vbBlue

          .Bold = True

        End With

        With rngC.Characters(i - 6, 6).Font

          .Color = vbRed

          .Bold = True

        End With

        Exit For

      End If

    Next i

  Next rngC

End Sub

Gruß aus'm Pott
Udo

AW: Rentenversicherungsnummer

03.07.2024 21:07:10

Erwin

Hi Udo,

der Code macht genau das, was ich will ;) danke.

Wenn noch jemand kann und will, dann wäre noch die flexible Eingabe über Inputbox toll, damit der Code nicht immer fix ab D2 läuft.

Grüße - Erwin

AW: Rentenversicherungsnummer

03.07.2024 22:57:47

Uduuh

für die ausgewählte Spalte:

Sub markieren()

  Dim rngC As Range

  Dim i As Integer

  Dim lngSpalte As Long

  Application.ScreenUpdating = False

  lngSpalte = Selection.Column

  For Each rngC In Range(Cells(2, lngSpalte), Cells(Rows.Count, lngSpalte).End(xlUp)) 'Spalte D abklappern

    For i = Len(rngC.Value) To 1 Step -1

      If Not IsNumeric(Mid(rngC, i, 1)) Then

        With rngC.Characters(i, 1).Font

          .Color = vbBlue

          .Bold = True

        End With

        With rngC.Characters(i - 6, 6).Font

          .Color = vbRed

          .Bold = True

        End With

        Exit For

      End If

    Next i

  Next rngC

End Sub

Gruß aus'm Pott
Udo

AW: Rentenversicherungsnummer

03.07.2024 23:02:15

Erwin

Hi Udo,
danke, muss ich morgen prüfen, hab grad nur noch das handy an.
Grüße - Erwin

Beliebteste Forumthreads (12 Monate)

Forumthread: Rentenversicherungsnummer

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread