Verwende http://www.vba-forum.de/Forum/View.aspx?ziel=8327-Makro_das_Zeichen_z%C3%A4hlt,_ab_bestimmter_Anzahl_letzte_4_Stellen_ersetzt
Dort brauchst Du nur die Bedingung
If IsNumeric(Mid(strInhalt, lngLaufZahl, 4)) Then
strInhalt = Left(strInhalt, lngLaufZahl - 1) & strReplace & Right(strInhalt, Len(strInhalt) - lngLaufZahl - 3)
lngStart = lngLaufZahl + Len(strReplace)
lngEnde = Len(strInhalt) - 3
Exit For
End If
durch
If IsNumeric(Mid(strInhalt, lngLaufZahl, 4)) Then
If Mid(strInhalt, lngLaufZahl, 4) < 1990 And Mid(strInhalt, lngLaufZahl, 4) > 2020 Then
strInhalt = Left(strInhalt, lngLaufZahl - 1) & strReplace & Right(strInhalt, Len(strInhalt) - lngLaufZahl - 3)
lngStart = lngLaufZahl + Len(strReplace)
lngEnde = Len(strInhalt) - 3
Exit For
End If
End If
ersetzen.
Severus
|