Suchen und Ersetzen
03.08.2017 14:39:17
Bon
ich habe einen Code zum Suchen und Ersetzen gefunden.
Der Suchbegriff (StrWhat) stellt in Cells(2,1).
Der Begriff mit dem der Suchbegriff ersetzt werden soll (strReplacement) in Cells(2,2).
Folgende Zeile ergibt mir eine Fehlermeldung ("1004 Laufzeitfehler"): Worksheets("Test").UsedRange.Value = arr
Wisst ihr woran es liegt?
Sub Suchen_und_Ersetzen
Dim strWhat As String
Dim strReplacement As String
strWhat = Cells(2, 1)
strReplacement = Cells(2, 2)
Dim i As Integer
Dim sp As Long, ze As Long
Dim arr
'For i = 1 To .Worksheets.Count
arr = Worksheets("Test").UsedRange.FormulaLocal
For sp = 1 To UBound(arr, 2)
For ze = 1 To UBound(arr, 1)
arr(ze, sp) = WorksheetFunction.Substitute(arr(ze, sp), strWhat,_
strReplacement)
Next
Next
Worksheets("Test").UsedRange.Value = arr
End Sub
Anzeige