Excel VBA: Suchen und Ersetzen

[Goleo]

Hallo zusammen,

Ich schreibe aktuell ein Makro und brauche da mal Eure Hilfe! Ich möchte die Suchen und Ersetzen-Funktion für einen bestimmten Tabellenbereich (Beispiel: A3:K34) anwenden. Die Zahl, die gesucht werden soll, befindet sich in Zelle A1. In Zelle B1 steht die Zahl für "Ersetzen durch". Wie muss hier der VBA-Code aussehen?

Vielen Dank im Voraus :)

[Kuwer]

Hallo Goleo,

so in der Art:

Dim rngF As Range
Dim Suchbereich As Range
Dim rngSuchwert As Range

Set Suchbereich = Range("A3:K34")
Set rngSuchwert = Range("A1")
Set rngF = Suchbereich.Find(What:=rngSuchwert.Value, _
                            After:=Suchbereich.Cells(Suchbereich.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlPart, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False, _
                            SearchFormat:=False)

Gruß Uwe