Office: WECHSEL-Funktion kombinieren mit WENN-Funktion

Guten Morgen Helmut,

vielen Dank für deine Antwort.

Bei mir dauert es tatsächlich eher länger als eine halbe Stunde. Ich habe jetzt einmal einen Auszug meiner Tabelle erstellt, den ich hier hochlade. Das Tauschen UDF-ist im vierten Blatt angewendet. Um es auszuprobieren, kannst du im ersten Blatt einen Personenbezeichnung (+ Leerzeichen am Ende des Wortes) hinzufügen. Dann werden die Blätter 4 bis 7 automatisch ausgefüllt. Meine richtige Tabelle umfasst mittlerweile rund 2300 Zeilen.

Viele Grüße

 

Hi,

habe mir gerade mal deine Formeln angeschaut. Wenn du bei Tauschen() als 2.Parameter, also dem Bereich mit den Tauschpaaren komplette Spalten angibst, dann hast du je Tauschen() etwas über 1 Million Ersetzungen zu machen. Das sind bei 2000 Zeilen und 2 Spalten mit der Formel, in der Tausch() 2x auftaucht, lächerliche 8 Milliarden Ersetzungen. Kein Wunder, dass das Excel in die Knie zwingt.

Lösung: Gib als Bereich mit den Tauschpaaren nur den tatsächlichen Bereich an. Da du sowieso strukturierte Tabellen (= Strg-T-Tabellen) verwendest, geht das ganz einfach. Statt deinem bisherigen
=WENN(tauschen([@Column1];$E:$F)=[@Column1];"x";tauschen([@Column1];$E:$F))
verwendest du halt
=WENN(tauschen([@Column1];Table_4[[#Alle];[Column4]:[Column5]])=[@Column1];"x";tauschen([@Column1];Table_4[[#Alle];[Column4]:[Column5]]))

Wenn du deine Tabelle korrekt mit Überschriften definiert hättest, würde die Formel so lauten
=WENN(tauschen([@Person];[Singular1]:[Singular2]])=[@Person];"x";tauschen([@Person];[Singular1]:[Singular2]]))
Ist doch besser lesbar, oder?

Wenn dein Excel schon die Funktion LET() kennt, dann kannst du die Zeit nochmals halbieren:
=LET(xx;tauschen([@Person];[Singular1]:[Singular2]]);WENN(xx=[@Person];"x";xx)
So wird das Tauschen nur einmal anstatt zwei mal ausgeführt.

Übrigens könnte man die überflüssigen Berechnungen - zumindest in begrenztem Maße - auch in der Function unterdrücken:

Code:

Function Tauschen(t As String, x As Range) As String
Dim i As Long
Dim xx
Set x = Intersect(x, x.Worksheet.UsedRange)
xx = x
For i = 1 To UBound(xx)
    t = Replace(t, xx(i, 1), xx(i, 2))
Next i
Tauschen = t
End Function

Hier wird der übergebene Bereich künstlich auf den im Excel benutzten Bereich beschränkt. Das kann je nach Excelblatt aber immer noch mehr als das Notwendige sein. Daher besser gleich den korrekten Bereich übergeben.

 

Wow, Helmut, vielen Dank!

Ich bin deinem Vorschlag gefolgt und habe nur den relevanten Bereich der Spalten angegeben. Jetzt geht es ruckzuck.

Auch an deinen anderen Vorschlägen habe ich mich versucht (die LET-Funktion ist vorhanden), bin aber leider schon daran gescheitert, den Spalten nachträglich eine Überschrift zuzuweisen. Ich hatte die Tabelle vorher in Google Tabellen geführt und von dort heruntergeladen, sodass die Überschriften anscheinend nicht übernommen wurden.

Viele Grüße

 

Hi,
schau dir mal die beiden blauen WENN-Formeln an. Dann bekommst du schon raus, wie du die LET-Formel umschreiben musst, wenn du die Tabelle nicht änderst.