caramela88
02.09.2021, 14:21
in Excel Namen mit Initialen über VBA suchen und ersetzen?

Ich bin absolute VBA Anfängerin.

Ich möchte ein Makro erstellen welches Namen in Initiale umwandelt.

im Arbeitsblatt1 befinden sich im Bereich B:G unterschiedliche
Namen z.B. Max Mustermann, Thomas Müller in über 100 Zeilen

im Arbeitsblatt 2 befinden sich die Initialen zu den unterschiedlichsten Personen

Spalte A ist der Name und Spalte B das Initial

Max Mustermann = MM

Thomas Müller = TM

Da ich nicht immer alle Namen suchen und ersetzen möchte will ich hierzu ein Makro welches die Arbeit erleichtert.

Kann mir hierzu jemand helfen? Vielleicht gibt es auch eine einfachere Lösung?

Vielen Dank

...zum Beitrag
Antwort
von caramela88
03.09.2021, 09:34

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

 ...zur Antwort