ich habe das Script hier aus dem Forum. Was auch gut funktioniert, bis ich versucht habe Sheets( _ "2") als Range zu definieren. Jetzt sucht er nur in der Zeile N2 und schreibt überall den Wert von O2 rein. Leider bricht dann aber das Script ab und N3 wird nicht mehr gesucht. Was mache ich falsch?
Option Explicit
Sub SuchenErsetzen()
Dim arName1 As Variant
Dim arName2 As Variant
Dim i As Long
Dim lngSpalte As Long
arName1 = Sheets("2").Range("N2:N" & Cells(Rows.Count, 14).End(xlUp).Row).Value
arName2 = Sheets("2").Range("O2:O" & Cells(Rows.Count, 14).End(xlUp).Row).Value
On Error Resume Next
lngSpalte = Columns(InputBox("Spalte angeben!", "Werte ändern", "A")).Column
On Error GoTo Ende
If lngSpalte > 0 Then
For i = LBound(arName1) To UBound(arName1)
Columns(lngSpalte).Replace arName1(i, 1), arName2(i, 1), xlWhole
Next
End If
Exit Sub
Ende:
Err.Clear
End Sub
Was funktioniert:(Sofern die Werte in der gleichen Tabelle sind)
arName1 = Range("N2:N" & Cells(Rows.Count, 14).End(xlUp).Row).Value
arName2 = Range("O2:O" & Cells(Rows.Count, 14).End(xlUp).Row).Value