Suchen und ersetzen
11.12.2017 12:44:28
Michael
zum Suchen und Ersetzen nehme ich folgenden Code
Sub test_02()
Dim Lz As Long
Range("B2:B" & Lz).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Replace What:="2017_", Replacement:="2018_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Wie muss ich den Code ändern, wenn die Begriffe Suchen und Ersetzen im Tabellenblatt 1 Zelle B1 und B2 stehen.
Schon einmal vorab vielen Dank für eure Hilfe.
Gruß
Michael
Anzeige