ich habe ein Script, dass in einer Suchen/Ersetzen macht.
In Arbeitsblatt 2 soll er aus der Spalte A schauen, was er suchen soll und ersetzt es durch B.
Dies macht er im ersten Arbeitsblatt für die Spalte die ich wähle.
Leider funktionierte das Script eigentlich, habe aber alles in einem Arbeitsblatt gehabt.
Könnt ihr mir helfen, aktuell sagt das Script nach der Auswahl der Spalte leider nichts mehr ;)
Option Explicit
Sub SuchenErsetzen()
Dim arName1 As Variant
Dim arName2 As Variant
Dim i As Long
Dim lngSpalte As Long
With Sheets("2")
arName1 = .Range("G2:G" & .Cells(.Rows.Count, 7).End(xlUp).Row).Value
arName2 = .Range("H2:G" & .Cells(.Rows.Count, 7).End(xlUp).Row).Value
End With
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
Ich könnte mir vorstellen, dass er unten noch in die richtige Tabelle springen muss?Vielen Dank für Eure Hilfe!
VG
Philip