Suchen und Ersetzen mit Text aus definierten Zelle
31.07.2019 14:52:28
fledergeTier
ich habe eine Datei, die aus anderen Exceltabellen über Funktionen Daten ausliest, in der Grundfassung klappt das mit dem folgenden Makro auch perfekt.
Leider komme ich aktuell mit meiner Recherche nicht weiter - der Text "Max Mustermann" in meinem Makro soll immer durch den Inhalt der Zelle B3 ersetzt werden, nicht durch "Erika Mustermann". In der Zelle B3 ist eine Liste hinterlegt, aus dieser Liste sind die Namen der Kollegen abrufbar und diese ergeben in den Funktionen wiederum den Bezug zu den entsprechenden anderen Tabellen.
Ich müsste also in dem Makro klar machen, dass das Replacement in B3 zu finden ist - also im Grunde mit: Range("B3").Value. Aber wie muss ich das in das Makro einarbeiten? Ich finde viele Makros, aber immer wird der neue Text fest vorgegeben.
Sub Daten_auslesen()
' Daten_auslesen Makro
' Tastenkombination: Strg+Umschalt+D
Application.ScreenUpdating = False
Range("B3").Select
ActiveCell.FormulaR1C1 = "Erika Mustermann"
Range("A16:O400").Select
Selection.Replace what:="Max Mustermann", Replacement:="Erika Mustermann", _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True
End Sub
Ich hoffe, Ihr könnt mir helfen.
Danke im voraus und schöne Grüße vom
fledergeTier