Ersetzen-Makro funktioniert nicht
30.08.2017 11:51:32
Christian
Ich habe folgendes Problem:
In einem Tabellenblatt habe ich eine Vielzalh von Sverweis-Formeln mit folgendem Aufbau:
=WENN($A28"";SVERWEIS(D$22;Daten!$D$30:$HI$1004;17;FALSCH);"").
Es wird also jeweils ein Wert aus Spalte 17 (oder auch je nach Formel aus Spalte 12, 20 oder 8) der Tabelle im Blatt Daten ausgegeben. Nun musste ich im Blatt Daten 3 Spalten neu einfügen. Damit muß jede Sverweis-Formel mit dem jeweiligen Spaltenindex um 3 erhöht werden.
Ändert man die Formel von Hand in:
=WENN($A28"";SVERWEIS(D$22;Daten!$D$30:$HI$1004;17+3;FALSCH);"")
funktioniert die Formel.
Mach ich es durch nachfolgendes Makro (mit Makrorecorder aufgezeichnet), funktioniert es nicht:
ActiveSheet.Unprotect
Sheets("Druck").Select
Range("D28:AG29").Select
Selection.Replace What:=";FALSCH);"""")", Replacement:="+3;FALSCH);"""")", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Was ist falsch? Vielen Dank!