Clever-Excel-Forum

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

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

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 Blush

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

homejukebox

Fennek

homejukebox

Fennek