Du könntest dir ein Suchen / Ersetzen Makro schreiben das die Namen vereinheitlicht!
Code
Private Sub CommandButton1_Click()
'hier den Bereich ändern:
Range("f2:f2000").Select
With Selection
.Replace What:="Nahhhme", Replacement:="Name", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
End With
Range("A1").Select
End Sub
Alles anzeigen
Grüße, Jens