suchen und ersetzen
30.04.2021 10:21:13
hofe
ich habe mal wieder was, wo ich nicht so recht weiterkomme.
hier hat Gerd am 15.11.12 einen Nutzer mit diesen Code geholfen
Sub SuchenErsetzen()
Dim arName1 As Variant
Dim arName2 As Variant
Dim i As Long
Dim lngSpalte As Long
arName1 = Range("N2:N" & Cells(Rows.Count, 14).End(xlUp).Row).Value
arName2 = 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
Source https://www.herber.de/forum/archiv/1284to1288/1286879_VBA_SuchenErsetzen_laut_Liste.html
Ich versuche jetzt den Code so abzuändern, das er die Liste von einem anderen Tabellenblatt abgreift und den Code wie folgt geändert/erweitert.
Dim sWorksheet As String
sWorksheet = "Tabelle2"
With Sheets(sWorksheet)
arName1 = .Range("N2:N" & Cells(Rows.Count, 14).End(xlUp).Row).Value
arName2 = .Range("O2:O" & Cells(Rows.Count, 14).End(xlUp).Row).Value
End With
leider klappt es nicht.
Kann mir eventuell einer von euch helfen und sehr gerne mit einer kleinen Erklärung, da ich das mit der With Funktion noch nicht so ganz verstehe.
LG Marco
