Thema Datum  Von Nutzer Rating
Antwort
03.03.2011 11:12:37 David
Solved
Blau Makro das Zeichen zählt, ab bestimmter Anzahl letzte 4 Stellen ersetzt
 03.03.2011 13:09:13 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
03.03.2011 13:09:13		 Views:
896		 Rating:
     
Antwort:
  Ja
Thema:
Makro das Zeichen zählt, ab bestimmter Anzahl letzte 4 Stellen ersetzt		 
Option Explicit

Sub Zahlen_quartette_ersetzen()
Const strReplace As String = " Ersatz " 'Hier den Ersatzstring für die vier Zahlen eingeben
Dim strInhalt As String
Dim lngLaufZahl As Long
Dim lngStart As Long
Dim lngEnde As Long
strInhalt = ActiveCell 'Inhalt der aktiven Zelle auslesen
lngStart = 1
lngEnde = Len(strInhalt) - 4
Do
    For lngLaufZahl = lngStart To lngEnde
        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
    Next lngLaufZahl
    If lngStart > lngEnde - 3 Then Exit Do
    If lngLaufZahl >= lngEnde Then Exit Do
Loop
ActiveCell = strInhalt 'Text in aktive Zelle zurückschreiben
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.03.2011 11:12:37 David
Solved
Blau Makro das Zeichen zählt, ab bestimmter Anzahl letzte 4 Stellen ersetzt
 03.03.2011 13:09:13 Severus
NotSolved