Problem mit suchen und ersetzen..
15.12.2003 13:01:30
Alexej
Dieses Stueckchen Code, das mir so lieb gegeben wurde, funktioniert einwandfrei. Leider zu einwandfrei.
Ich habe in vielen Zellen, wo gesucht werden sollte, Bezuege zu anderen Blaettern, die volgendermassen aussehen:
=summe'Blt.1$A1:$A20'+'Blt.2$A1:A20'
Wie ihr sehen koennt, zerschiesst mir das Makro leider alle Formel. Gibt es denn keine Moeglichkeit nach dem "." nur in den Ergebnissen zu suchen und die Formeln, die die Ergebnisse erzeugen in Ruhe lassen?
Liebe Gruesse,
Alexej
ThisWorkbook.Worksheets("Blatt " + CStr(i) + " Gesamt").Activate
ThisWorkbook.Worksheets("Blatt " + CStr(i) + " Gesamt").Range("E226:F231").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate