Sehr geehrte Damen und
Ich muss
-So finden und ersetzen Sie Text in Excel-Tabellen mit STRG+H und VBA
Wie ich finde https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html über Textfeld und Diagramm
WENN ich „Text in Excel-Tabelle suchen und ersetzen“ benötige, dasselbe STRG+H mit VBA
Vielen Dank.
Art
Dieser Code, den ich überarbeite, funktioniert nicht
Ich muss
-So finden und ersetzen Sie Text in Excel-Tabellen mit STRG+H und VBA
Wie ich finde https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html über Textfeld und Diagramm
WENN ich „Text in Excel-Tabelle suchen und ersetzen“ benötige, dasselbe STRG+H mit VBA
Vielen Dank.
Art
Dieser Code, den ich überarbeite, funktioniert nicht
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
Dim YY As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For
Each YY In xWs.Worksheest("Sheet1").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
Each YY In xWs.Worksheets("Sheet2").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
Each YY In xWs.Worksheets("Sheet3").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
Each YY In xWs.Worksheets("Sheet4").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub