aufgrund des gestrigen Fussballabends bin ich heute morgen nicht in der Lage, den Fehler im folgenden Makro zu finden. Das Problem ist ganz einfach, dass das Programm die Verknüpfungen nicht updated (Replacement). Ergänzend vielleicht noch zusa gen, dass H16 und H19 jeweils als Text definiert ist.
Sub DateiUpdate()
Sheets("Help").Select
Selection.Copy
Range("H16").Select
Application.CutCopyMode = False
Selection.Copy
Alt = Range("H16").Value
Neu = Range("H19").Value
Sheets("DT").Select
Cells.Replace What:=Alt, Replacement:=Neu, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("CF").Select
Cells.Replace What:=Alt, Replacement:=Neu, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("PS").Select
Cells.Replace What:=Alt, Replacement:=Neu, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("VR").Select
Cells.Replace What:=Alt, Replacement:=Neu, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("BC").Select
Cells.Replace What:=Alt, Replacement:=Neu, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("CS").Select
Cells.Replace What:=Alt, Replacement:=Neu, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Help").Select
Range("E20").Select
Application.CutCopyMode = False
End Sub
Danke für Eure Hilfe
Gruß
Martin