Suchen/ersetzen mal wieder

Forumthread: Suchen/ersetzen mal wieder

15.12.2003 16:16:57

Alexej

Hallo allerseits, ich bins mal wieder.

Also nach ganz langem Stoebern bin ich immer noch nicht auf eine Idee gekommen, wie ich in einer Zelle aus einem "." ein "," machen kann, ohne dabei die Formel zu beruehren, wo ebenfalls "." enthalten ist.

Weiss wirklich keiner ein Rat?

Verzweifelt,
Alexej

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Bleib bitte bei deinem Thread

15.12.2003 16:23:50

Reinhard
AW: Bleib bitte bei deinem Thread

15.12.2003 17:11:51

Alexej

Bleib bitte bei deinem Thread

15.12.2003 16:23:50

Reinhard

...da habe ich grad geanwortet.
Gruß
Reinhard

AW: Bleib bitte bei deinem Thread

15.12.2003 17:11:51

Alexej

Hallo Reinhard,

Leider funktioniert dein Workaround nicht. Sobald ich die Formel aendere, versucht Excel auf die neue Verknuepfung zuzugreifen, sodass wieder der selbe Fehler auftritt :((

Gruss,
Alexej

ThisWorkbook.Worksheets("Blatt. " + CStr(i) + " Gesamt").Activate

Application.Calculation = xlCalculationManual

ThisWorkbook.Worksheets("Blatt. " + CStr(i) + " Gesamt").Range("E226:F231").Select
Selection.Replace What:="Blatt. ", Replacement:="Placeholder", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Find(What:="Blatt. ", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.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

ThisWorkbook.Worksheets("Blatt. " + CStr(i) + " Gesamt").Range("E226:F231").Select
Selection.Replace What:="Placeholder", Replacement:="Blatt.", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Find(What:="Placeholder", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

Application.Calculation = xlCalculationAutomatic

Forumthread: Suchen/ersetzen mal wieder

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread