Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zeichenfolge