Hallo Rudolf!
Hast du die Sortierung mit im Code der Schaltfläche integriert oder läuft das nachher in einem andern Code / manuell? Wenn du den Code von Speichern bzw. Löschen mit postest, könnte man da ggf. was mit einfügen. Ansonsten würde folgender Ablauf nach dem Speichern helfen. Spalte A durchlaufen und immer zwei aufeinanderfolgende Zellen vergleichen. Ist der Name identisch weitergehen sonst ein Zelle einfügen, Namen einfügen und dann weitergehen. Folgende Code würde das bsps. machen.
Sub nameneintragen()
Dim i As Integer
If Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row > 3 Then
For i = 3 To Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then
Worksheets(1).Rows(i + 1).Select
Selection.Insert Shift:=xlDown
Worksheets(1).Range(Worksheets(1).Cells(i + 1, 1), Worksheets(1).Cells(i + 1, 3)).MergeCells = True
Worksheets(1).Cells(i + 1, 1) = Cells(i + 2, 1).Value
Worksheets(1).Cells(i + 1, 1).HorizontalAlignment = xlCenter
End If
Next i
End If
End Sub
Problem wäre dann aber im Nachgang, dass du jetzt verbundene Zellen drin hast. Das könnte ggf. bei deiner Sortierung Probleme machen und Fehler erzeugen. Da müsstest du dann ggf. die Sortierung bzw. das Speichern anpassen (oder vorher die Namensüberschriften erst per Marko löschen lassen).
Gruß Matthias
|