Hallo!
Ich habe ein Makro welches in einem Arbeitsblatt einen bestimmten Teil der enthaltenen Formeln löschen soll. Hierzu wird mit den beiden "For-Schleifen" das Arbeitsblatt nach dem Formelteil (s. u.) durchforstet. Leider bekomme ich nach dem Ausführen des Makros immer eine Bezug-Fehlermeldung. Demnach wird der erste Teil der Formel gelöscht "+'Au Nr " & srcObj & " Alles'!" & Chr(64 + a) & CStr _(j) & ". Es steht aber weiterhin da "*#BEZUG!D61". D. h. ja, daß die Ersetzung ab dem *-Zeichen nicht mehr funktioniert? Woran liegt das? Es wäre sehr nett wenn mir einer mit diesem Problem helfen könnte. Habe nämlich schon einiges ausprobiert, Variablen geändert und dergleichen, aber ich hab immer das gleiche Problem.
For a = 1 To 25
For j = 1 To 100
Range(Chr(64 + a) & CStr(j)).Select
ActiveCell.Replace What:="+'Au Nr " & srcObj & " Alles'!" & Chr(64 + a) & CStr _(j) & "*'Au Nr " & srcObj & " Alles'!D" & CStr(j), _
Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False
Next j
Next a
Vielen Dank!
Karlheinz