ich bräuchte bitte eure Hilfe... ich möchte mittels VBA Einträge einer Spalte solange mit einem "-" ersetzen, bis ein bestimmtes Wort gefunden wird (das Wort soll stehen bleiben)... könnt ihr mir da helfen?
Danke und viele Grüße
Sub BestimmtesWort()
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
Dim sBegriff As String
sBegriff = ws.Range("E1")
Dim lRow As Long
lRow = ws.Range("A1").CurrentRegion.Rows.Count
Dim rng As Range
Set rng = ws.Range("A1:A" & lRow)
Dim zelle As Range
For Each zelle In rng
If zelle sBegriff Then zelle = "-"
Next zelle
End Sub
mit einem "-" ersetzen, bis ein bestimmtes Wort gefunden wird
Dein Code ersetzt alle Wörter ungleich sBegriff und endet nicht beim sBegriff.