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

Answer 1

[caramela88]

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

Answer 2

[GutenTag2003]

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 ...

... die Initialen erstellen .

Woher ich das weiß: eigene Erfahrung

Comments

[caramela88]

Habe es nun selbst gelöst mit folgendem Makro

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

[caramela88]

Das hilft mir leider bei meinem Problem nicht. In den 100 Zeilen die Namen mit den Initialen zu ersetzen. Die Namen und Initialen habe ich schon in Arbeitsblatt2.