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