Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Suchen und Ersetzen in Formel

Forumthread: VBA Suchen und Ersetzen in Formel

VBA Suchen und Ersetzen in Formel
25.06.2024 09:36:38
Christian Nehring
Hallo zusammen,

ich verzweifle gerade an einer Suchen und Ersetzen Prozedur die eine Wenn-Formel durch einen bestimmten Text ersetzen soll.

In sämtlichen Zellen der Arbeitsmappe soll beispielsweise nach folgender Formel gesucht werden: =IF(Database="MISAlea";"SEGMENT2";VLOOKUP("SEGMENT2";Dim_Tbl;2;FALSE))

Diese Formel soll durch das Makro durch den Text "SEGMENT2" ersetzt werden.

Mit Suchen und Ersetzen aus der normalen Excel-Funktionalität funktioniert das einwandfrei. Aufgenommen als Makro hingegen nicht mehr.

Cells.Replace What:= _
"IF(Database=""MISAlea"";""SEGMENT2"";VLOOKUP(""SEGMENT2"";Dim_Tbl;2;FALSE))" _
, Replacement:="SEGMENT2", LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
FormulaVersion:=xlReplaceFormula2

Ich verstehe nicht warum das aufgenommene Makro nicht funktioniert.

Vielen Dank für eure Hilfe.

Gruß Christian
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Suchen und Ersetzen in Formel
25.06.2024 10:02:29
Oberschlumpf
Hi Christian,

a) du kannst in eine Zelle nicht einfach VBA-Code als FORMEL eintragen = das funktioniert sooo nich, weil Formeln sind Formeln und VBA-Code ist VBA-Code!

b) der von dir aufgezeichnete Code besteht aus fünf! Codezeilen; Zeilenumbruch immer das _ Zeichen am Ende der ersten 4 Codezeilen
Würde also VBA-Code als Formel doch funktionieren, dann müsstest du auch - den gesamten Code - als Formel eintragen und nicht nur die erste Codezeile

Was dagegen aber funktionieren kann:

1. Füg im VBE ein allgemeines Modul hinzu (wie DAS geht, wird im Inet erklärt)
2. Füg im Modul diesen Code ein: 


Public Function fcSuchenErsetzen()



Cells.Replace What:= _

"IF(Database=""MISAlea"";""SEGMENT2"";VLOOKUP(""SEGMENT2"";Dim_Tbl;2;FALSE))" _

, Replacement:="SEGMENT2", LookAt:=xlPart, SearchOrder:=xlByRows, _

MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _

FormulaVersion:=xlReplaceFormula2



End Function

3. Trag nun im Tabellenblatt in deiner Wunschzelle (da, wo du vorher den Code als Formel haben wolltest) das hier als Formel ein: 
=fcSuchenErsetzen()


Wenn alles funktioniert, sollte nun in deiner Wunschzelle ein Eregebnis erscheinen.

Hilfts?
Nein? Dann zeig uns bitte per Upload eine Excel-Bsp-Datei mit genügend Bsp-Datenzeilen in den richtigen Zeilen/Spalten, so dass dann auch wir deinen Code testen können.

Ciao
Thorsten
Anzeige
AW: VBA Suchen und Ersetzen in Formel
25.06.2024 10:21:28
daniel
Hi

dein Ersetzen lässt das "=" am Anfang stehen.
damit bekommst du "=Segment2" als Formel, was aber keine korrekte Formel ist (außer Segment2 wäre ein Name, der auf eine Zelle referenziert)

ersetze also auch das "=" am Anfang der Formel mit 
... what:="=IF...", ...


oder, wenn es sich bei der Formel um einen Teil einer längeren Formel handelt, dann müsstet du den Text in Anführungszeichen setzen: 
..., Replacement:="""SEGMENT2""",...


Gruß Daniel

Anzeige
AW: VBA Suchen und Ersetzen in Formel
25.06.2024 19:43:27
Piet
Hallo

ich bin mal einen anderen Weg gegangen, einen einfachen Suchlauf mit nachfolgendem Replace.
Es interessiert mich sehr, ob das Problem auf diese Art einfacher zu lösen ist???
Würde mich sehr freuen, Viel Spass beim testen.

mfg Piet 

Sub Formel_inText_tauschen()

    'Suche nach "IF(Database"

    Set rFind = Cells.Find(What:="=IF(Database=", After:=[a1], LookIn:=xlFormulas, _

        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

    

    If Not rFind Is Nothing Then

       Adr1 = rFind.Address

       Do 'weitere Suche nach "SEGMENT2"

          If InStr(rFind.Formula, "SEGMENT2") Then

             rFind.Value = "SEGMENT2"

             Set rFind = Cells.FindNext(rFind)

          End If

       Loop Until rFind.Address = Adr1

    End If

End Sub
Anzeige
AW: VBA Suchen und Ersetzen in Formel
26.06.2024 10:40:38
Christian Nehring
Hallo Piet,
vielen Dank. Ja, das funktioniert auch. Nach dem Ersetzen gibt es aber noch einen kleinen Laufzeitfehler bei "Loop Until rFind.Address = Adr1".
Ich habe probiert das Makro auf mein Folgeproblem von gestern um 19:07:09 anzuwenden. Jedoch bekomme ich es nicht hin.
Hast du hier noch einen Rat?
Gruß Christian
Anzeige
AW: VBA Suchen und Ersetzen in Formel
26.06.2024 10:50:15
daniel
Hi
probier mal das, diese Zeile sollte reichen.
Beachte die Einstellung lookat:=xlwhole in Verbindung mit den Jokern 
Cells.Replace "*=IF(Database=*", "SEGMENT2", lookat:=xlwhole, matchcase:=false


Gruß Daniel
Ganz einfach: Korrekt umsetzen
25.06.2024 12:28:00
MCO
Mahlzeit!

Die Formel im englischen Format zu bearbeiten bzw. zu ersetzen ist schon richtig.
Jetzt musst du das nur konsequent bis zu ende machen:

Im englischen wird "," in den Formeln benutzt, nicht ";". Also lautet der VBA-Befehl: 
    Cells.Replace what:= _

        "=IF(Database=""MISAlea"",""SEGMENT2"",VLOOKUP(""SEGMENT2"",Dim_Tbl,2,FALSE))" _

        , replacement:="SEGMENT2"


Gruß, MCO
Anzeige
AW: Ganz einfach: Korrekt umsetzen
25.06.2024 13:27:59
Christian Nehring
Perfekt. Super vielen Dank. Daran hat es gelegen. Es sind eben die Kleinigkeiten.
Gruß Christian
AW: Ganz einfach: Korrekt umsetzen
25.06.2024 19:07:09
Christian Nehring
Hallo MCO,

jetzt hatte ich mich doch zu früh gefreut. Das beschriebene Problem ist gelöst, allerdings gibt es einen ähnlichen abgewandelten Fall.
Im "gelösten" Beispiel wurde der komplette Zelleninhalt ersetzt. Wie müsste das Makro aussehen, wenn ein Teil der Excel-Formel geändert werden soll.

Die neue "Problemformel" in Excel sieht beispielsweise wie folgt aus:
=@AT.GET(Datenbank;WENN(Datenbank="MISAlea";"F_ACOUNT";SVERWEIS("F_ACOUNT";Dim_Tbl;2;FALSCH));Attribut_Tbl_Account;B37;Language_Account)

Folgende Formelbestandteile sind Namen: Datenbank, Dim_Tbl, Attribut_Tbl_Account, Language_Account.

Jetzt möchte ich in der Formel wieder die WENN-Bedingung ersetzen: WENN(Datenbank="MISAlea";"F_ACOUNT";SVERWEIS("F_ACOUNT";Dim_Tbl;2;FALSCH)) soll zu "F_ACOUNT" innerhalb der Formel werden.
Ergebnis sollte sein: =@AT.GET(Datenbank;"F_ACOUNT";Attribut_Tbl_Account;B37;Language_Account)

Das Problem ist, dass in der Gesamtformel auch ein variabler Bestandteil enthalten ist, der sich von Zelle zu Zelle und Arbeitsmappe zu Arbeitsmappe unterscheidet --> hier "B37"...

Wie bekomme ich es hin, dass das Makro nur die WENN-Bedingung innerhalb der Formel sucht und ersetzt? Ich habe wieder mit Aufzeichnen, Abändern auf Englisch, usw. herumprobiert. Bin letztlich aber nicht zum Erfolg gekommen.

Danke im Voraus.

Gruß Christian
Anzeige
AW: Ganz einfach: Korrekt umsetzen
26.06.2024 10:26:10
MCO
Moin,

das ist eingentlich nicht anders. 


    Cells.Replace _

        what:="IF(Database=""MISAlea"",""F_ACOUNT"",VLOOKUP(""F_ACOUNT"",Dim_Tbl,2,FALSE))", _

            replacement:="F_ACOUNT", lookat:=xlPart


In Kombination mit der nachgestellten Änderung jeder Formelzelle von B37 in was auch immer: 

Sub ersetzte()



    Cells.Replace _

        what:="IF(Database=""MISAlea"",""F_ACOUNT"",VLOOKUP(""F_ACOUNT"",Dim_Tbl,2,FALSE))", _

            replacement:="F_ACOUNT", lookat:=xlPart

        

    For Each cl In Cells.SpecialCells(xlCellTypeFormulas)

    

        If InStr(cl.FormulaLocal, "B37") > 0 Then

            neu_adress = cl.Offset(0, -2).Address

            cl.Replace _

                what:="B37", _

                replacement:=neu_adress, lookat:=xlPart

        End If

    Next cl

End Sub

Gruß, MCO
Anzeige
AW: Ganz einfach: Korrekt umsetzen
26.06.2024 11:05:58
Christian Nehring
Perfekt. Erneut vielen Dank. Das ist genau das wonach ich gesucht habe.
Gruß Christian
AW: Ganz einfach: Korrekt umsetzen
26.06.2024 14:42:42
Piet
Hallo

die Lösung von Daniel ist um Klassen besser. Vielleicht hat ihn mein makro auf die Idee gebracht??
Ich korrigiere meinen Code trotzdem damit er funktioniert. - Der Wert in Adr1 wurde ja geändert!
Set rFind = Cells.FindNext(rFind)
If rFind Is Nothing Then Exit Do 'Aussprung weil Adr1 nicht mehr gefunden wird!
Loop Until rFind.Address = Adr1

mfg Piet
Anzeige
AW: VBA Suchen und Ersetzen in Formel
25.06.2024 10:34:27
Christian Nehring
Hallo Daniel,
Auch dir danke für die schnelle Rückmeldung.
Bzgl. "=" am Anfang der Formel die gesucht werden soll: Das hatte ich auch schon probiert und funktioniert leider auch nicht.
"Segment2" ist ein einfacher Text und kein Name. Ich habe die mehrfachen Anführungszeichen in den Code aufgenommen.
Letztlich funktioniert es immer noch nicht per VBA... über das normale Excel läuft das Suchen und Ersetzen :-/
Gruß Christian

P.S. in der Excel-Formel die z.B. in Zelle A1 steht "=WENN(Datenbank="MISAlea";"SEGMENT2";SVERWEIS("SEGMENT2";Dim_Tbl;2;FALSCH))" sind Datenbank und Dim_Tbl hinterlegte Namen. Ich möchte eigentlich nur nach dieser Formel in allen Arbeitsblättern suchen und diese durch einen Text (Segment2) ersetzen.
Anzeige
AW: VBA Suchen und Ersetzen in Formel
25.06.2024 10:19:59
Christian Nehring
Hallo Thorsten,
danke für die schnelle Rückmeldung. Ich habe den VBA Code nicht in einer Excel-Zelle eintragen wollen :-) Das habe ich selbstverständlich in einem Modul getan bzw. ich habe das Vorgehen über den Makro-Recorder aufgezeichnet.
Wenn ich das aufgezeichnete Makro starte, dann führt es leider nicht zum gewünschten Erfolg. Im Excel soll mittels VBA eine Wenn-Formel durch einen Text ersetzt werden.
Gruß Christian
Anzeige
AW: VBA Suchen und Ersetzen in Formel
25.06.2024 10:26:52
Oberschlumpf
Tja Christian,

und welchen Teil in meiner Antwort, beginnend mit "Nein? ...usw", hast du nich gelesen?

Zumindest ich könnte jetzt nur weiterraten, aber im Raten war ich noch nie gut.
Aber wer weiß, vllt hilft dir ja der Tipp von Daniel - ich bin neugierig auf deine Antwort an ihn.

Ciao
Thorsten
Anzeige
;

Forumthreads zu verwandten Themen

Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
Suchen und ersetzen
zink

Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Suchen und Ersetzen durch
pitt_111@gmx.de

Hallo Excel Gemeinde,
brauche wieder Eure EErfahrung und Hilfe.
In angehängter Tabelle soll nach Werten gesucht werden und diese
sollen entsprechend durch 1 ersetzt werden.
https://www.herber.de/bbs/user/59198.xls
Das suchen und ersetzen soll sich aber nur auf das betreffen...
07.02.2009 09:50:37
Thread-ID: 1047999
2 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Suchen und ersetzen per Makro...?
Horst

Hey !
Ich möchte Tabellenblätter kopieren und während oder nach dem kopieren des Tabellenblattes im kopierten Tabellenblatt eine Volltextsuche mit Textersetzung durchführen.
Kann mir jemand dazu einen Tipp geben?
Und gibt es zur Suche/Ersetzen eine bessere Variant als die aus der Ma...
02.04.2009 11:43:43
Thread-ID: 1066267
3 Beiträge
suchen und ersetzen
Detlef

Hallo alle zusammen,
ich habe mehrere Arbeitsblätter in denen ich immer den Inhalt einer Spalte überprüfe. Dabei wird der jeweilige Inhalt der Zelle mit dem Inhalt eines KorrekturArbeitsblattes verglichen. Wird der Zellinhalt gefunden, wird er ersetzt.
Im Moment mache ich das mit folgen...
04.06.2009 14:35:31
Thread-ID: 1079155
5 Beiträge
Anzeige
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Anzeige
Werte teilweise suchen und ersetzen
Ahmadian

Hallo zusammen,
ich möchte mit einem VBA-Code im z.B. Tabelle 1, Range("A1:B100") alle darin befindlichen "TO" durch ein "D" ersetzen.
Z.B.
In Zellen stehen: 18:00 - 06:00 TO (durch ein "D" die kompletten Zelleninhalte ersetzen).
Leere Zellen sollen leer bleiben.
Für eine...
08.09.2009 14:45:06
Thread-ID: 1101262
5 Beiträge
Wert suchen und ersetzen
VBAmateur

Hallo an alle,
bin noch Neuling in VBA und hier im Forum, und hoffe ich mache nicht zuviel falsch.
Ich habe ein Problem das ich auch nach vielen Stunden probieren mit meinen mageren Kenntnissen nicht lösen konnte. Hoffentlich kann mir jemand helfen.
Ich habe 10 Spalten von denen 3 i...
13.09.2009 15:45:57
Thread-ID: 1102420
6 Beiträge
Suchen und Ersetzen mit Ergebinsliste
Horst

Hey!
Ich möchte gerne Das Suchen und Ersetzen im Excel per VBA nachimplementieren.
Ich habe dann den VBA-Recorder angeschissen und dan kam dieses heraus:
------------------------------------------------------------------------
Cells.Replace What:="ABC", Replacement:="def", LookA...
24.09.2009 09:33:51
Thread-ID: 1105113
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige