Suchen / Ersetzen VBA
27.02.2006 20:32:25
Taz
ich habe folgendes Makro:
Sub Ersetzen_Funktion()
Dim s_Such As String
Dim s_Ersetz As String
Dim Blatt As Worksheet
s_Such = InputBox("Geben Sie den Suchbegriff ein!")
s_Ersetz = InputBox("Geben Sie den Ersetzbegriff ein!")
For Each o In Range("A1", "B6")
o.Value = Replace(o.Value, s_Such, s_Ersetz)
Next o
End Sub
Ich weiss leider nicht genau wie ich nur den selektierten Bereich durchsuchen kann.
D.H. ich markiere ein paar Zellen und dort soll nach den inhalten gesucht werden. Der Sinn ist die Grenze von 255 Zeichen in einer Zelle.
Kann mir vielleicht einer von euch weiterhelfen?
Danke
Anzeige