in Excel Namen mit Initialen über VBA suchen und ersetzen?

2 Antworten

Public Sub Ersetzen()

Dim i As Long

'Blattname anpassen

With ThisWorkbook.Worksheets("Tabelle2")

  For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row

    'Dateiname und Blattname anpassen

    ThisWorkbook.Worksheets("Tabelle1").Cells.Replace What:=.Cells(i, 1), _

    Replacement:=.Cells(i, 2), LookAt:=xlPart

  Next i

End With

   

End Sub

Woher ich das weiß:Recherche

Ohne VBA. Wenn Du die Namen so ...

Max Mustermann

... in einer Zelle hast, dann würde ich sie über - Daten - Text in Spalten - getrennt - (Trennzeichen) Leerzeichen in 2 Zellen/Spalten aufteilen. Danach mit ...

Bild zum Beitrag

... die Initialen erstellen .

Woher ich das weiß:eigene Erfahrung
 - (Computer, Microsoft Excel, VBA)