der folgende Codeteil prüft, ob in B2 und C2 die Überschriften ZUNAME und VORNAME stehen. Wenn ja, wird vor der Spalte B eine neue Spalte eingefügt und die beiden Spalten ZUNAME und VORNAME werden in der neu eingefügten Spalte eingetragen. Kurz gesagt, die Einträge in den beiden getrennten Spalten werden in der neu eingefügten Spalte zusammengefasst. Das funktioniert auch alles.
Was ich gerne ändern würde: Alle Namen bestehen nur aus Großbuchstaben. Kann mir jemand den Code so abändern, dass in der neu eingefügten Spalte bei allen Namen nur der 1. Buchstabe groß ist, also z.B. Maier-Loss Ulrike
Dim varCol_ZUNAME As Variant, lngZeileLetzte As Long
varCol_ZUNAME = Application.Match("ZUNAME", Rows(2), 0)
If IsError(varCol_ZUNAME) Then Exit Sub
lngZeileLetzte = Cells(Rows.Count, CLng(varCol_ZUNAME)).End(xlUp).Row
If lngZeileLetzte
Besten Dank für die Hilfe und Servus, Walter