Hallo, hatte gestern schon ein Problem beschrieben (07.09. um 15:13 Uhr). Dank eurer Hilfe funktioneirt das ersetzen jetzt.
Jetzt ist folgendes Phänomen aufgetreten:
Führe ich das Makro im Einzelschritt aus, wird das Ersetzen durchgeführt. Lasse ich es aber automatisch durchlaufen, wird der fehlende Bezug nicht ersetzt. Es kommt aber auch kein Fehlerhinweis.
Hat jemand eine Erklärung dafür und ggfs. Tipp, woran das liegen könnte?
Bis auf den nachstehenden Code läuft Makro einwandfrei durch.
Danke und Gruß Hartmut
Range("A4:G4,B7:G7,B9:G9,A18:J18").Select
Selection.Replace What:="#REF", Replacement:="'Controlling " & jahr & "'", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select