Office: Array; Name, Vorname vertauschen

Hallo zusammen,

ich habe mal folgendes Problem:

Ich will in ca 11.000 Datensätzen Name, Vorname in Vorname Name tauschen.
Das habe ich erstmal ganz einfach mit Worksheetfunction (siehe Code) gemacht. Leider dauert das ziemlich lange bis die Sub durch ist. Meine Frage: Geht das vielleicht mit einem Array schneller? Und wie kann ich die Worksheetfunction in das Array einbauen?

Code:

Hat da jemand ein Idee?


Vielen Dank vorab schonmal,

Gruß
Wiing

:)

 

Hallo Wiing

Versuch es mal so:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Public Sub test()
Dim arr
Dim Tmp
arr = Sheets("Tabelle1").Range("A1:A20000")
Dim L As Long
On Error Resume Next
For L = 1 To UBound(arr)
Tmp = Split(arr(L, 1), ", ")
arr(L, 1) = Tmp(1) & " " & Tmp(0)
Next
Sheets("Tabelle1").Range("B1:B20000") = arr
End Sub


Die Bereiche mussst du dir anpassen.

ransi

 

Ja danke für die schnelle Antwort!!

Funktioniert perfekt. Arrays sind echt superschnell!
Kannst du mir vielleicht noch einen kleinen Tip geben?
Wie kann ich in einem Array eine Art Vlookup einbauen?
Code:

Danke,
Wiing

 

HAllo

Ich versteh den Codeschnipsel nicht.
Was hast du genau vor ?

ransi

 

Ah okay:

ich möchte in worksheet PZE dei Namen mit den Namen in einer anderen Mappe in worksheet Mitarbeiter vergleichen. Wenn Name vorhanden, dann die Abteilung die in wsMA in der nächsten Spalte steht dem Namen in ws PZE in der nächsten Spalte zugewiesen werden.

ist es so ein bisschen verständlicher?