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