Suche& Ersetzen in einem Bereich
01.05.2017 15:52:28
Inshin
ich möchte gerne in einem Bereich (Spalten A bis D) nach einem Namen suchen und diesen ersetzen. Das klappt mit meinem Code nicht, es wird immer das gesamte Arbeitsblatt durchsucht in geändert. In Spalte F sollen alle Namen unverändert stehen bleiben.
Danke für Eure Hilfe....
Hier mein Code
Private Sub changeName_Click()
Dim varSucheName As String
Dim varTauscheName As String
Dim Zelle As Range
varSucheName = InputBox(" Suche nach", "Werteingabe")
If varSucheName = "" Then Exit Sub
varTauscheName = InputBox(" neuer Name eingeben", "Werteingabe")
If varTauscheName = "" Then Exit Sub
On Error Resume Next
Columns("A:D").Select
Selection.Replace What:=varSucheName, Replacement:=varTauscheName, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
MsgBox ("der Name ") & varSucheName & (" wurde durch ") & varTauscheName & (" ersetzt ")
End Sub
Anzeige