Hi,angenommen die Vornamen stehen in Spalte A,die Nachnamen in B ,dann könnte folgender Code helfen:Sub Vorname_Name()Dim zähler As Longzähler = 0For zähler = 1 To 8000 Cells(zähler, 2).Select Cells(zähler, 2).Value = Cells(zähler, 1).Value & " " & Cells(zähler, 2).Value Next zählerColumns("A:A").Select Selection.Delete Shift:=xlToLeftEnd SubCUDaniel

geschrieben von Daniel Günther , 30.05.2000, 13:20 Uhr , 26 mal gelesen