Sub Test()
Dim rngC As Range
Application.ScreenUpdating = False
With Sheets("Daten")
For Each rngC In .Range(.Cells(1, 19), .Cells(Rows.Count, 19).End(xlUp))
If LCase(rngC) Like "*test*" Then rngC = "Test vorhanden"
Next
End With
End Sub
Sub setze_bestimmten_Text()
Dim c as object
With Worksheets("Daten").Columns("S")
Set c = .Find("Test", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = "Test vorhanden"
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen