Clever-Excel-Forum

Seiten: 1 2

Code:
sub M_snb())

  sn = split("az bu cf b z r")

  For j=0 to ubound(sn)\2

    columns(3).Replace sn(j),sn(j+3)

  Next

End Sub

(14.12.2015, 16:15)RPP63 schrieb: [ -> ]("" und Kommata musst Du ergänzen)

… oder auch nicht, wie man sieht! :18: Thumps_up

@Erich:
Ich würde dennoch bei zwei Arrays bleiben.
snbs Algorithmus ist zwar simpel, aber der Übersicht wohl eher nicht zuträglich. :21:
Das "Beste aus zwei Welten" dürfte demnach dies hier sein.
(incl Option Explicit und Variablendeklaration; beides hier wirklich überflüssig, sollte aber nur von denjenigen weggelassen werden, die genau wissen, was sie da tun)

Code:
Sub mehrfachSuchenUndErsetzen()

 Dim suchArray

 Dim ersetzArray

 Dim k As Long

 suchArray = Split("G AG HK HV R Rep S SL SP SW")

 ersetzArray = Split("T G H V D R O L S W")

 For k = LBound(suchArray) To UBound(suchArray)

   Columns("C").Replace suchArray(k), ersetzArray(k), xlWhole, , False

 Next k

End Sub

Gruß Ralf

oder:

Code:
Sub M_snb()

  [C1:C2000] = [if(C1:C2000="","",substitute(substitute(substitute(C1:C2000,"az","b"),"bu","z"),"cf","r"))]

End Sub

Na dann viel Spaß bei den ursprünglich 18 Substitutes … :17:
Da kannst Du WECHSELN(), bis der Arzt kommt! :19:

Gruß Ralf

Hallo Ralf,

vielen Dank, hab Deine Version getestet. Läuft perfekt und schnell.
Den Code kann ich auch nachvollziehen und ist verständlich.

Toll, danke! Btw. "Split" hatte ich auch noch nie Shy

Den Beitrag von snb verstehe ich überhaupt nicht und beide Code-Beispiele funktionieren auch nicht.

Hi,

(14.12.2015, 22:58)sharky51 schrieb: [ -> ]Den Beitrag von snb verstehe ich überhaupt nicht

tja, das ist halt das Problem, wenn die Hilfe zur Selbsthilfe zu rudimentär ist (für einen Excel-Anfänger).

Hi,

das sollte keine Kritik sein...für meine Unkenntnis können ja andere nichts!

Hi,

(15.12.2015, 11:16)sharky51 schrieb: [ -> ]das sollte keine Kritik sein...für meine Unkenntnis können ja andere nichts!

mein Beitrag sollte Dich auch nicht kritisieren.

Seiten: 1 2

snb

RPP63

snb

RPP63

sharky51

Rabe

sharky51

Rabe