Gruppe
Allgemein
Bereich
Zeichenfolge
Thema
Zeichenfolgen ändern, wenn ein sie einen bestimmten Text enthalten
Problem
Wie kann ich alle Zeichenfolgen in Spalte A ändern, die einen bestimmten Text enthalten?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub StringEdit()
Dim rng As Range
Dim iCounter As Integer
For Each rng In Range("A1").CurrentRegion.Cells
If Left(rng, 4) = "Test" Then
iCounter = iCounter + 1
rng = "Testzeile" & iCounter
End If
Next rng
End Sub