Excel: Suchen und ersetzen erste Zeile und Excel-Blatt

Question

Ich möchte einen Code zum Suchen und Ersetzen aller Zellen in einer ersten Zeile eines Excel-Blattes. Ich habe diesen folgenden Code, indem ich google suche.

Sub FindReplace() 

Dim sht As Worksheet 
Dim fndList As Variant 
Dim rplcList As Variant 
Dim x As Long 

fndList = Array("Fname", "Lname", "Phone") 
rplcList = Array("First Name", "Last Name", "Mobile") 

For x = LBound(fndList) To UBound(fndList) 
    For Each sht In ActiveWorkbook.Worksheets 
     Rows(1).Replace What:=fndList(x), Replacement:=rplcList(x), _ 
       LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ 
       SearchFormat:=False, ReplaceFormat:=False 
    Next sht 
Next x 

End Sub 

Das funktioniert gut. aber wir sollten die Liste zum Suchen und Ersetzen im Code selbst erwähnen. Wie man es macht, um Eingaben vom Benutzerende zu nehmen, anstatt es manuell im Code einzugeben. Eingabe als Text oder Datei wäre gut.

Answer 1

fndList = Split(Application.InputBox("List the values to be searched for in the following format: " & vbCrLf & "val1, val2, val3, ...", Type:=2), ",") '<--| this returns an array of 'String's 
rplcList = Split(Application.InputBox("List the values to be replaced in the following format: " & vbCrLf & "val1, val2, val3, ...", Type:=2), ",") '<--| this returns an array of 'String's 

For Each sht In ActiveWorkbook.Worksheets 
    For x = LBound(fndList) To UBound(fndList) 
     sht.Rows(1).Replace What:=fndList(x), Replacement:=rplcList(x), _ 
         LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ 
         SearchFormat:=False, ReplaceFormat:=False 
    Next x 
Next sht