Gruppe
Allgemein
Problem
Wie kann ich alle Zeichenfolgen in Spalte A ändern, die einen bestimmten Text enthalten?
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