Excel Werte in array übergeben
22.10.2017 21:47:32
Richard
ich habe einen Code geschrieben mit dem man bestimmte Wörter welche in einer Spalte stehen löschen kann. Das ganze klappt auch recht gut, doch die Berechnungszeit ist sehr lange. Der zu durchsuchende Text steht in Spalte E, das wonach gesucht werden soll steht in Spalte F, wenn ein Wort oder eine Zahl in beiden Spalten vorkommt dann soll es aus Spalte E gelöscht werden.
Sub Zellen_mit_Inhalt_loeschen()
Dim c As Range
For Each c In Intersect(ActiveSheet.UsedRange.Cells, Columns(6))
If InStr(LCase(c.Value), "gs") 0 Then
Range(c, c.Offset(0, 5)).ClearContents
End If
Next c
End Sub
Würde mich über ein paar Tipps freuen.
Gruß