Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeichenfolgen ändern, wenn ein sie einen bestimmten Text enthalten

Gruppe

Zeichenfolge

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