Suchen und ersetzen automatisiert

[homejukebox]

Hallo zusammen,

für eine kleine Projektarbeit muss ich in einer Excel 2010 Datei 70000 Textzelle mit Namen und Vornamen anonymisieren.

Die Excel-Datei sie wie folgt aus:

Tabelle1 - In der Spalte A sind die Textzellen untereinander. Manche Zellen enthalten ein bis mehrere Sätze. Die Sätze beinhalten Vornamen und Namen.

Tabelle2 - Enthält zwei Spalten- Spalte A Vorname und Spalte B Nachname.

Jetzt möchte ich in Tabelle 1, dass die echten Vornamen und Nachnamen in den letzten durch " Vorname" und "Nachname" automatisch ersetzt werden. Beispiel: Peter = Vorname und Pan = Nachname. Die Routine soll so lange suchen und ersetzen, bis alle echten Namen in Tab. 1 ersetzt sind.

Ich hoffe, dass sich das verständlich ausgedrückt habe und freue mich auf die Rückmeldung aus dem Forum.


Mit besten In die Runde

[Fennek]

Hallo,

teste mal mit

Code:

Sub Main
Nm = sheets(2).cells(1,1).currentregion

with sheets(1)
    for n = 2 to ubound(Nm)
    
        .columns(1).replace Nm(n,1) & " " & Nm(n,2), "Vorname Nachname"
    
    next n
end with

End Sub

mfg

[homejukebox]

Hallo Fennek,

vielen Dank für die schnelle Hilfe. Ich teste den Code gerade mal an den 70000 Zeilen - dauert etwas.

Wie könnte ich "hier" auf eine zweite Exceldatei verweisen: C:/Kontakte.xls

Sub Main
Nm = "hier" sheets(2).cells(1,1).currentregion

with sheets(1)
    for n = 2 to ubound(Nm)
    
        .columns(1).replace Nm(n,1) & " " & Nm(n,2), "Vorname Nachname"
    
    next n
end with

Wie müsste das aussehen.

Vielen Dank schon mal

[Fennek]

ungeprüft:

Code:

Sub Main

set WB = workbooks.open("c:\Kontakte.xls")

Nm = WB.sheets(1).cells(1,1).currentregion
WB.close 0

with sheets(1)
    for n = 2 to ubound(Nm)
        .columns(1).replace Nm(n,1) & " " & Nm(n,2), "Vorname Nachname"
    next n
end with
End Sub