Replacement mit Änderungszähler
Wolfgang
ich habe folgendes Problem, ich hätte gern in meinem Makro (aus dem Archiv) gerne noch ein Zähler eingebaut , der die Anzahl der Änderungen zählt. Die Bedienung des Makros läuft über eine Userform.
Mein versuch, zählt nur dir Suchbereiche!
Hier das Makro:
Option Explicit
Public Sub TextErsetzenUF()
Dim such()
Dim ersetz As String
Dim i As Integer
Dim iCounter As Long
such = Array(UFTextAendern.TextBox1.Value, UFTextAendern.TextBox2.Value, UFTextAendern.TextBox3. _
Value)
ersetz = UFTextAendern.TextBox4.Value
'iCounter = 0
For i = 0 To UBound(such)
Selection.Replace What:=such(i), Replacement:=ersetz: iCounter = iCounter + 1
Next
UFTextAendern.Label6.Caption = "Es wurden " & iCounter & " Texte geändert"
End Sub
Hier die Datei:
https://www.herber.de/bbs/user/72653.xls
Gruß Wolfgang
Anzeige