Ersetzen in Formeln - Spezial - per Makro

Sub Makro1() ' Makro1 Makro Range("D4:D6").Select Selection.Replace What:="#=", Replacement:="=", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo lieber Erich,
ich hatte mich gestern ausgiebig mit dem Problem befasst und nach ca. 6 Stunden eine Lösung für meine Belange erarbeitet. Das Excel-Programm in Verbindung mit VBA verhält sich mitunter recht merkwürdig. Mit Deiner Lösung werden zwar einfache kleine Formeln - so wie in meinem Beispiel gebracht - ordentlich mit "Replace" geändert. Dies funktioniert jedoch bei großen, langen Formeln nicht. Es wird zwar geändert, aber die Formeln werden dann nicht aktiviert und es erscheint die Fehlermeldung "#Name?". Die mit "Replace" be- handelten Formeln müssen daher nachbehandelt werden: ich habe das mit 'SendKeys "{F2}{ENTER}" gemacht, was aber nicht ausreichend war, weil Excel/VBA bei "SendKeys" Zeit benötigt, die Eingaben zu senden. Jede Änderung musste zunächst einmal Zelle für Zelle erfolgen und nach jeder Änderung musste eine Wartezeit eingerichtet werden. Mit einem "Wait"-Befehl kam ich leider auch nicht weiter. Es funktionierte nur, als ich eine Wartezeit mit Verweis auf einen Anschlussmakro einführte. Meine etwa 20 Formeln habe ich auf die englische Schreibweise umgebaut (IF und VLOOKUP). Nach 6 Stunden hatte ich es endlich geschafft, dank Deiner freundlichen Hilfe. Es ist nicht das erste Mal, dass ich Hilfe aus Kamp-Lintfort bekomme und daher möchte ich mich mit einem kleinen Geschenk bedanken, habe jedoch keine Anschrift. Schreibe sie mal bitte an meine E-Mail-Adresse 'peter.klossek@online.de' und lasse Dich überraschen!
Herzliche Grüße
Peter Kloßek

Hi Peter,
ich vermute stark, dass du dir da jetzt unnötig viel Arbeit gemacht hast.
Meine Andeutung: Wenn Replace nicht geht - dann mit FormulaLocal" war sicher zu unklar.
Schau dir mal diesen Code (laufen lassen auf einem leeren Blatt) an:


Sub aaaa()
Cells(1, 1).Value = "#=WENN(A4>1;A4*B4;SVERWEIS(E5;F2:G9;2;0))"
Cells(3, 1).FormulaLocal = Mid(Cells(1, 1), 2)
Cells(4, 1).FormulaLocal = Replace(Cells(1, 1).Value, "#=", "=")
End Sub

Da wird eine "#-gesicherte" Formel in A1 geschrieben und dann in A3 und A4 als Formel reaktiviert.
Statt in A3 oder A4 kannst du die Formel natürlich auch in A1 schreiben lassen - das entspräche dann einem Replace.
Geschenke müssen hier IMHO gar nicht sein. Hier treffen sich Leute, die Hilfe oder Tipps brauchen und bekommen,
mit Leuten, die ein gutes Gefühl bekommen, wenn sie Hilfe geben können (und dabei zeigen, wie toll sie das können... ;-)).
Und manchmal vertauschen sich diese Rollen auch noch. Wir sind eben ein Forum.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Beliebteste Forumthreads (12 Monate)

Ersetzen in Formeln - Spezial - per Makro

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ersetzen in Formeln - Spezial - per Makro

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread