Formel zu lang beim Suchen und ersetzen
17.08.2004 21:55:08
Matthias
wie bekomme ich es hin in Zellen zu suchen und zu ersetzen wenn dort über 600 Zeichen vorhanden sind. Es kommt dann beim ersetzen immer die Meldung "Formel zu lang".
Wie geht das Über VBA, bzw. Wo ist der Fehler?
Sub Suchen_Ersetzen()
Dim s_Such As String
Dim s_Ersetz As String
s_Such = InputBox("Geben Sie den Suchbegriff ein!")
s_Ersetz = InputBox("Geben Sie den Ersetzbegriff ein!")
Cells.Replace What:=s_Such, Replacement:=s_Ersetz, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Anzeige