Hallo Severus, Hallo Holger.

Danke für eure Vorschläge, ich muss jedoch genau dieses Makro benutzen das ich gepostet habe, also folgendes:

_______________________________________________________________________________

Private Function ziffernfolge_zensieren(ByVal xZeile As String) As String
    Dim MomentanePositionDesZeigers As Integer
    Dim AnzahlZeichenvonXZeile As Integer
    Dim AnzahlGefundeneZiffern As Integer
    Dim i As Integer  ' Laufvariable
    Dim AuswertbaresZeichen As String
    Dim ZuErsetzenderString As String
    Dim ZuErsetzenderStringZeichen As String
   
    ziffernfolge_zensieren = ""
    xZeile = xZeile & " "
    AnzahlZeichenvonXZeile = Len(xZeile)
   
    For MomentanePositionDesZeigers = 1 To AnzahlZeichenvonXZeile Step 1
   
        AuswertbaresZeichen = Mid(xZeile, MomentanePositionDesZeigers, 1)

        If IsNumeric(AuswertbaresZeichen) Then
   
            ZuErsetzenderString = ZuErsetzenderString & AuswertbaresZeichen
            ZuErsetzenderStringZeichen = ZuErsetzenderStringZeichen & "*"

        Else
            If Len(ZuErsetzenderString) = 4 Then
                If Not IsNumeric(AuswertbaresZeichen) Then
                    ziffernfolge_zensieren = Replace(ziffernfolge_zensieren, ZuErsetzenderString, ZuErsetzenderStringZeichen)
                    ZuErsetzenderString = ""
                    ZuErsetzenderStringZeichen = ""
               Else
                    ZuErsetzenderString = ZuErsetzenderString & AuswertbaresZeichen
                    ZuErsetzenderStringZeichen = ZuErsetzenderStringZeichen & "*"
                End If
           
            Else
                ZuErsetzenderString = ""
                ZuErsetzenderStringZeichen = ""
            End If
           
   
        End If
       
        ziffernfolge_zensieren = ziffernfolge_zensieren & AuswertbaresZeichen
       
    Next
   
    ziffernfolge_zensieren = Trim(ziffernfolge_zensieren)
   
     
End Function

Private Sub TestaufrufZiffernfolgeerstezen()
    Dim Uebergabestring, ergebnisstring As String
    Uebergabestring = "Herr XYZ mit der Personalnummer 8282 möchte für 2009 den...."
ergebnisstring = ziffernfolge_zensieren(Uebergabestring)
ergebnisstring = ergebnisstring
End Sub

_______________________________________________________________________________

Ich soll nur ersetzen bzw hinzufügen, dass Zahlen zwischen 1990 und 2020 nicht zensiert werden. Das Personalnummern dann nicht zensiert werden, die dann in diesem Zahlenbereich wären, ist akzeptabel.

Ich bitte um eure Hilfe, ich weiß nämlich nicht weiter.

Viele Grüße