VBA: Suche nach einem bestimmten Kürzel in einem Text und diese Kürzel löschen?

Hello!

Before – you should separate the names and roles. There are different entities that should get their own column. This makes data processing much easier.

The following VBA script deletes all character strings specified by you in a value range you have to forgive:

Sub ersetzeWort(ByVal noNeedString As String)
    Range("A1:Z900").Replace What:=noNeedString, Replacement:=""
End Sub

To automatically and parameterize the script, you need the following snippet in the worksheet yourself:

Sub Worksheet_Change(ByVal Target As Range)
    Dim werteBereich As Range
    Set werteBereich = Range("A1:Z900")
    
    If Not Application.Intersect(werteBereich, Range(Target.Address)) _
               Is Nothing Then
    
        Call ersetzeWort("ETL")
        Call ersetzeWort(" ")
    
    End If
End Sub

At this point, the value range is observed to “value changes” as soon as you write a new value into a cell, the sub will be executed automatically.

green: the function “Sub Worksheet_Change()”

orange: the function “replace()”

Please contact 🙂