Excel VBA: Suchen und ersetzen mittels Array

[snb]

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

[RPP63]

("" und Kommata musst Du ergänzen)

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

@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

[snb]

oder:

Code:

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

[RPP63]

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

Gruß Ralf

[sharky51]

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  


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

[Rabe]

Hi,

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).

[sharky51]

Hi,

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

[Rabe]

Hi,

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

mein Beitrag sollte Dich auch nicht kritisieren.